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.

Anúncios

2 Responses to Aula 6

  1. MAria de Fatima Ferreira da SIlva diz:

    Adorei…quanto custa para assistir as aulas…mande-me proposta.

    • Gustavo Del Negro diz:

      Cara Maria Fatima,

      não sou professor, apenas programador, logo não posso lecionar. Porém qualquer dúvida, basta entrar em contato.

      Att.,

      Gustavo Del Negro

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s

%d bloggers like this: