Aula 6

Exercício 1

Program baskara ;

uses crt;

var

a,b,c,delta,x1,x2:real;

Begin

clrscr;//limpa a tela

writeln(‘Este programa calcula a formula de baskara’);

writeln(‘Digite, A, B, C’);

read(a,b,c);

delta:= sqr(b) -4*a*c; //sqr=Ao quadrado

if (delta>=0) then

begin

x1:=(-b+sqrt(delta))/2*a;

x2:=(-b-sqrt(delta))/2*a;

write(‘x1 e :’,x1:2:2,’x2 e :’,x2:2:2);

end

else

write(‘Nao existe raiz para esta equacao’);

readkey;

End.

Exercício 2

Program diferenca ;

var

a,b,dif:integer;

Begin

writeln(‘Esse programa calcula a diferença entre dois numero’);

writeln(‘Digite os numeros’);

read(a,b);

if (a>b) then

begin

dif := a-b;

writeln(‘A diferenca e :’,dif);

end;

if (a<b) then

begin

dif:= b-a;

writeln(‘A diferenca e :’,dif);

end

else

writeln(‘Nao existe diferenca’);

readkey

End.

Exercício 3

Program Positivo ;

var

n,p:real;

Begin

writeln(‘Por favor, digite um numero, positivo ou negativo’);

read(n);

if (n<0) then //se n for negativo ou seja menor que zero entao

begin

p := n*-1;//multiplica o valor de n por menos 1 para torna-lo um valor positivo

writeln(‘O numero digitado foi ‘, p:2:2, ‘ sim ele foi passado para positivo’)

end

else

writeln(‘O numero digitado foi’, n,’ ele nao precisou ser transformado’);

End.

Exercício 4

Program media ;

var

nota1, nota2, nota3, nota4, md1, md2, ne:real;//sendo md1=media 1, md2=media 2, e ne=nota exame

Begin

writeln(‘Esse programa calcula a media de um aluno’);

writeln(‘Tendo como base 4 notas’);

writeln(‘Por favor digite as quatro notas’);

read(nota1,nota2,nota3,nota4);

md1 := (nota1+nota2+nota3+nota4)/4;//dividido pelo numero de notas

if (md1 >7) then //se a nota for maior que sete

begin

writeln(‘Parabens você foi aprovado o/’);//diz ao usuario que ele foi aprovado

end;

if (md1<7) then //se a nota for menor que sete

begin

writeln(‘Qual foi a nota no Exame Final?’);

read (ne);

md2 := (md1+ne)/2;

if (md2>7) then

writeln(‘Parabéns você foi aprovado’);

if (md2<7)then

writeln(‘Você foi reprovado’);

end

End.

Exercício 5

Program ordemCrescente ;

var

a, b, c: integer;

begin

writeln(‘Esse programa coloca em ordem crescente tres numeros dados pelo usuario’);

writeln(‘Entre com tres numeros: ‘);

read (a,b,c);

if c>a then

begin

if a>b then writeln(‘A ordem crescente: ‘,b,’ ‘,a,’ ‘,c)

else if b<c then writeln(‘A ordem crescente: ‘,a,’ ‘,b,’ ‘,c);

end;

if a>b then

begin

if b>c then writeln(‘A ordem crescente: ‘,c,’ ‘,b,’ ‘,a)

else if c<a then writeln(‘A ordem crescente: ‘,b,’ ‘,c,’ ‘,a);

end;

if a<b then

begin

if c<a then writeln(‘A ordem crescente: ‘,c,’ ‘,a,’ ‘,b)

else if c<b then writeln(‘A ordem crescente: ‘,a,’ ‘,c,’ ‘,b);

end;

end.

Exercício 6

Program DivisaoPor2e3 ;

var

n1,n2,n3,n4,n5:integer;

Begin

writeln(‘Digite 5 numeros’);

read(n1,n2,n3,n4,n5);

if((n1)mod(2)=0) and ((n1)mod(3)=0) then //o ‘and’ diz ao programa que o numero só é

//divisivel se satisfazer as duas condições

writeln(‘O numero ‘,n1, ‘ é divisivel por 2 e por 3′ );

if ((n2)mod(2)=0) and ((n2)mod(3)=0) then

writeln(‘O numero ‘,n2,’ é divisivel por 2 e por 3′);

if ((n3)mod(2)=0) and ((n3)mod(3)=0) then

writeln(‘O numero ‘,n3,’ é divisivel por 2 e por 3′);

if ((n4)mod(2)=0) and ((n4)mod(3)=0) then

writeln(‘O numero ‘,n4,’ é divisivel por 2 e por 3′);

if ((n5)mod(2)=0) and ((n5)mod(3)=0) then

writeln(‘O numero ‘,n4,’ é divisivel por 2 e por 3′);

End.

Exercício 7

Program DivisaoPor2ou3 ;

var

n1,n2,n3,n4,n5:integer;

Begin

writeln(‘Digite 4 numeros’);

read(n1,n2,n3,n4);

if((n1)mod(2)=0) or ((n1)mod(3)=0) then //o ‘or’ diz ao programa que o numero satisfaz à condição

//se for divisivel tanto por 2 ou por 3

writeln(‘O numero ‘,n1, ‘ é divisivel por 2 ou por 3′ );

if ((n2)mod(2)=0) or ((n2)mod(3)=0) then

writeln(‘O numero ‘,n2,’ é divisivel por 2 ou por 3′);

if ((n3)mod(2)=0) or ((n3)mod(3)=0) then

writeln(‘O numero ‘,n3,’ é divisivel por 2 ou por 3′);

if ((n4)mod(2)=0) or ((n4)mod(3)=0) then

writeln(‘O numero ‘,n4,’ é divisivel por 2 ou por 3′);

End.

Exercício 8

Program ComparacaoValores ;

var

n1,n2,n3,n4,n5:integer;

maior,menor:boolean;

Begin

writeln(‘Escreva 5 numeros que deseja comparar’);

read(n1,n2,n3,n4,n5);

//numero n1

if (n1>n2) and (n1>n3) and (n1>n4) and (n1>n5) then

maior:=true;

if (n1<n2) and (n1<n3) and (n1<n4) and (n1<n5) then

menor :=true;

if maior then

writeln(‘O número ‘, n1, ‘ é o maior número’);

if menor then

writeln(‘O número ‘, n1,’ é o menor número’);

//numero n2

if (n2>n1) and (n2>n3) and (n2>n4) and (n2>n5) then

maior:=true;

if (n2<n1) and (n2<n3) and (n2<n4) and (n2<n5) then

menor :=true;

if maior then

writeln(‘O número ‘, n2, ‘ é o maior número’);

if menor then

writeln(‘O número ‘, n2,’ é o menor número’);

//numero n3

if (n3>n1) and (n3>n2) and (n3>n4) and (n3>n5) then

maior:=true;

if (n3<n1) and (n3<n2) and (n3<n4) and (n3<n5) then

menor :=true;

if maior then

writeln(‘O número ‘, n3, ‘ é o maior número’);

if menor then

writeln(‘O número ‘, n3,’ é o menor número’);

//numero n4

if (n4>n1) and (n4>n2) and (n4>n3) and (n4>n5) then

maior:=true;

if (n4<n1) and (n4<n2) and (n4<n3) and (n4<n5) then

menor:=true;

if maior then

writeln(‘O número ‘, n4, ‘ é o maior número’);

if menor then

writeln(‘O número ‘, n4,’ é o menor número’);

//numero n5

if (n5>n1) and (n5>n2) and (n5>n3) and (n5>n4) then

maior:=true;

if (n5<n1) and (n5<n2) and (n5<n3) and (n5<n4) then

menor :=true;

if maior then

writeln(‘O número ‘, n5, ‘ é o maior número’);

if menor then

writeln(‘O número ‘, n5,’ é o menor número’);

End.

Exercício 9

Program ParImpar;

//declarando variáveis

Var

n1,n2,n3,n4 : integer;

Par : boolean; //boolean é uma especie de verdadeiro ou falso.

Begin

Write(‘Informe os numeros a serem testados: ‘);

ReadLn(n1,n2,n3,n4);

//Se o mod de 2 for igual a 0 ele vai ser um par

If ((n1)mod(2)=0) then

Par:=true

//se não for vai ser um impar

Else

Par:=false;

//Se par for verdadeiro, o número será par

If Par Then

Write(‘O número ‘,n1, ‘ é par.’)

//Se não, o número será impar

Else

Write(‘O número ‘,n1, ‘ é ímpar.’);

//numero 2

If ((n2)mod(2)=0) then

Par:=true

Else

Par:=false;

If Par Then

Write(‘O número ‘,n2, ‘ é par.’)

Else

Write(‘O número ‘,n2, ‘ é ímpar.’);

//Numero 3

If ((n3)mod(2)=0) then

Par:=true

Else

Par:=false;

If Par Then

Write(‘O número ‘,n3, ‘ é par.’)

Else

Write(‘O número ‘,n3, ‘ é ímpar.’);

//numero 4

If ((n4)mod(2)=0) then

Par:=true

Else

Par:=false;

If Par Then

Write(‘O número ‘,n4, ‘ é par.’)

Else

Write(‘O número ‘,n4, ‘ é ímpar.’);

readkey;

End.

Exercício 10

Program MenorQue3 ;

var

n1 :integer;

Begin

writeln(‘Digite um numero’);

read(n1);

if not (n1>=3) then

writeln(‘o numero que voce digitou’, n1, ‘ não é maior que 3′);

End.

Exercício 11

Program NomeESexo ;

var

nome: string;

sexo: char;//o sexo é do tipo caractere, por que só iremos considerar 1 letra, M ou F;

genero: boolean;

Begin

writeln(‘Digite seu nome’);

read(nome);

writeln(‘Digite seu sexo(m ou f)’);

read(sexo);

if (sexo=’m') or (sexo=’M')then  //o m encontra-se entre aspas para mostrar ao programa que ele depende da entrada do usuário

writeln(‘Olá prezado senhor ‘, nome);

if (sexo=’f') or (sexo=’F') then

writeln(‘Olá prezada senhora ‘,nome);

if (sexo<>’f') and (sexo<>’F') and (sexo<>’m') and (sexo<>’M') then//

writeln(‘Sexo Inválido’);

readkey;

End.

Program PesoIdeal;

var

nome: string;

sexo: char;//o sexo é do tipo caractere, por que só iremos considerar 1 letra, M ou F;

altura,peso :real;

Begin

writeln(‘Digite seu nome’);

read(nome);

writeln(‘Digite seu sexo(m ou f)’);

read(sexo);

writeln(‘Digite sua altura’);

read(altura);

if (sexo=’m') or (sexo=’M')then  //o m encontra-se entre aspas para mostrar ao programa que ele depende da entrada do usuário

begin

peso:=(72.7 * altura) – 58;

writeln(‘Olá prezado senhor ‘, nome, ‘ seu peso ideal é’, peso:3:2);

end;

if (sexo=’f') or (sexo=’F') then

begin

peso:=(62.1 * altura) – 44.7;

writeln(‘Olá prezada senhora ‘,nome, ‘ seu peso ideal é’, peso:3:2);

end;

if (sexo<>’f') and (sexo<>’F') and (sexo<>’m') and (sexo<>’M') then

writeln(‘Sexo Inválido’);

readkey;

End.

Program idade;

Var

nome: string;

resultado, AnoNasc, AnoAtual: integer;

Begin

writeln(‘Este programa calcula a idade de uma pessoa. Qual o seu nome ?’);

read(nome);

writeln(‘Digite o ano de nascimento:’);

read(AnoNasc);

writeln (‘Digite o ano atual:’);

read(AnoAtual);

resultado := AnoAtual – AnoNasc;

if (resultado >= 16) then

writeln(nome, ‘ você já pode votar’);

if (resultado >= 18) then

writeln(nome, ‘ você já pode dirigir’);

End.

Program CodigoProduto;

var

codigo_prod:integer;

Begin

writeln(‘Digite o código do produto’);

read(codigo_prod);

if (codigo_prod=1) then

writeln(‘Alimento Não-perecível’)

else

if (codigo_prod>=2) and (codigo_prod<=4) then

writeln(‘Alimento Perecível’)

else

if (codigo_prod=5) or (codigo_prod=6) then

writeln(‘Vestuário’)

else

if (codigo_prod=7) then

writeln(‘Higiene Pessoal’)

else

if (codigo_prod>=8) and (codigo_prod<=15) then

writeln(‘Limpeza e Utensílios domésticos’);

if not(codigo_prod >=1) or not (codigo_prod<=15)then

writeln(‘Código inválido’);

readkey;

End.

Program IdadeNadador;

var

idade:integer;

Begin

writeln(‘Digite a idade do nadador’);

read(idade);

if (idade>=5) and (idade<=7) then

writeln(‘Categoria Infantil A’)

else

if (idade>=8) and (idade<=10) then

writeln(‘Categoria Infantil B’)

else

if (idade>=11) and (idade<=13) then

writeln(‘Categoria Juvenil A’)

else

if (idade>=14) and (idade<=17)then

writeln(‘Categoria Juvenil B’)

else

if (idade>=18) then

writeln(‘Categoria Adulto’);

readkey;

End.

Program Juros ;

var

preco,preco_final,parcela:real;

condicao_pgto:integer;

Begin

writeln(‘Qual o preço do produto?’);

read(preco);

writeln(‘Qual a condição de pagamento?’);

writeln(’1) Para à vista ou cheque’);

writeln(’2) Para pagamento com Cartão de Crédito’);

writeln(’3) Para pagamento parcelado em 2 vezes’);

writeln(’4) Para pagamento parcelado em 3 vezes’);

read(condicao_pgto);

if (condicao_pgto =1) then

begin

preco_final := (preco – (preco*0.10));

writeln(‘O preco final do produto com 10% de desconto é ‘, preco_final:3:2,’R$’);

end

else if (condicao_pgto = 2) then

begin

preco_final := (preco – (preco*0.05));

writeln(‘O preco final do produto com 5% de desconto é ‘, preco_final:3:2,’R$’);

end

else  if (condicao_pgto = 3) then

begin

preco_final := (preco – (preco*0.10));

parcela := preco_final/2;

writeln(‘O preco final do produto é ‘, preco_final:3:2,’R$’,’ em 2 parcelas de ‘, parcela:3:2,’R$’);

end

else  if (condicao_pgto = 4) then

begin

preco_final := (preco + (preco*0.10));

parcela := preco_final /3;

writeln(‘O preco final do produto com 10% de juros é ‘, preco_final:3:2,’R$’,’ em 3 parcelas de ‘, parcela:3:2,’R$’);

end;

End.

Program Calculadora ;

var

n1, n2, resultado :real;

operador :char;//o operador é do tipo char, pois apenas nos importa os símbolos *,+,- e /

Begin

writeln(‘Digite os dois numeros que deseja fazer a operação’);

read(n1,n2);

writeln(‘Especifique a operação. Soma:+, Subtração:-, Divisão:/ e Multiplicação: *’);

read(operador);

if (operador =’+')then

begin

resultado := n1 + n2;

writeln(‘O resultado da soma de ‘,n1:3:0,’ com ‘,n2:3:0,’ é: ‘,resultado:3:0);

end

else if(operador =’-') then

begin

resultado := n1 – n2;

writeln(‘O resultado da subtração de ‘,n1:3:0,’ com ‘,n2:3:0,’ é: ‘,resultado:3:0);

end

else if(operador =’*') then

begin

resultado := n1 * n2;

writeln(‘O resultado da multiplicação de ‘,n1:6:0,’ com ‘,n2:6:0,’ é: ‘,resultado:6:0);

end

else if(operador =’/') then

begin

resultado := n1 / n2;

writeln(‘O resultado da divisão de ‘,n1:6:2,’ com ‘,n2:6:2,’ é: ‘,resultado:6:3,’…’);

end

else

writeln(‘Operador Inválido’);

readkey;

End.

Program Calculadora ; Outro jeito de fazer

var

n1, n2, resultado :real;

operador :string;//o operador é do tipo string, pois usaremos as palavras soma, subtração e etc

Begin

writeln(‘Especifique a operação. Soma; Subtração; Divisão;Multiplicação;’);

read(operador);

writeln(‘Digite os dois numeros que deseja fazer a operação’);

read(n1,n2);

if(operador =’soma’) or (operador =’Soma’) or (operador =’soma’) or (operador = ‘Soma’)then

begin

resultado := n1 + n2;

writeln(‘O resultado da soma de ‘,n1:3:0,’ com ‘,n2:3:0,’ é: ‘,resultado:3:0);

end

else if(operador =’subtração’) or (operador =’Subtração’) or (operador =’subtracao’) or (operador = ‘Subtracao’) then

begin

resultado := n1 – n2;

writeln(‘O resultado da subtração de ‘,n1:3:0,’ com ‘,n2:3:0,’ é: ‘,resultado:3:0);

end

else if(operador =’multiplicação’) or (operador =’Multiplicação’) or (operador =’multiplicacao’) or (operador = ‘multiplicacao’)then

begin

resultado := n1 * n2;

writeln(‘O resultado da multiplicação de ‘,n1:6:0,’ com ‘,n2:6:0,’ é: ‘,resultado:6:0);

end

else if(operador =’divisão’) or (operador =’Divisão’) or (operador =’divisao’) or (operador = ‘Divisao’) then

begin

resultado := n1 / n2;

writeln(‘O resultado da divisão de ‘,n1:6:2,’ com ‘,n2:6:2,’ é: ‘,resultado:6:3,’…’);

end

else

writeln(‘Operador Inválido’);

readkey;

End.

Program Notas ;

var

nota:real;

Begin

writeln(‘Qual a sua nota no sistema Decimal?Ex: 9.9′);

read(nota);

if (nota>=9) and (nota<=10) then

writeln(‘A nota’, nota:2:1,’ do sistema decimal equivale à nota A’)

else if (nota>=7) and (nota <=8.9) then//se for usado vírgula aqui dara erro, pois ele considera com virgula como sendo menor que 8 e 9

writeln(‘A nota’, nota:2:1,’ do sistema decimal equivale à nota B’)

else if (nota>=5) and (nota<=6.9) then

writeln(‘A nota’, nota:2:1,’ do sistema decimal equivale à nota C’)

else if (nota>=3)and (nota<=4.9) then

writeln(‘A nota’, nota:2:1,’ do sistema decimal equivale à nota D’)

else if (nota>=0) and (nota<=2.9) then

writeln(‘A nota’, nota:2:1,’ do sistema decimal equivale à nota E’);

readkey;

End.

Program Divisivel2e3 ;

var

n1,n2,n3,n4:integer;

Begin

writeln(‘Digite 4 numeros’);

read(n1,n2,n3,n4);

if((n1)mod(2)=0) and ((n1)mod(3)=0) then //o ‘and’ diz ao programa que o numero só é

//divisivel se satisfazer as duas condições

writeln(‘O numero ‘,n1, ‘ é divisivel por 2 e por 3′ );

if ((n2)mod(2)=0) and ((n2)mod(3)=0) then

writeln(‘O numero ‘,n2,’ é divisivel por 2 e por 3′);

if ((n3)mod(2)=0) and ((n3)mod(3)=0) then

writeln(‘O numero ‘,n3,’ é divisivel por 2 e por 3′);

if ((n4)mod(2)=0) and ((n4)mod(3)=0) then

writeln(‘O numero ‘,n4,’ é divisivel por 2 e por 3′);

End.

Program NumerosPares ;

var

n1,n2,n3,n4:integer;

Begin

writeln(‘Digite 4 numeros’);

read(n1,n2,n3,n4);

if((n1)mod(2)=0) then

writeln(‘O numero ‘,n1, ‘ é par’ );

if ((n2)mod(2)=0) then

writeln(‘O numero ‘,n2,’ é par’);

if ((n3)mod(2)=0) then

writeln(‘O numero ‘,n3,’ é par’);

if ((n4)mod(2)=0) then

writeln(‘O numero ‘,n4,’ é par’);

readkey;

End.