Esse
Enviado por Programa Chuletas y clasificado en Otras materias
Escrito el en español con un tamaño de 2,76 KB
{Chico tem 1,50 metro e cresce 2 centímetros por ano, enquanto Zé tem 1,10 metro e
cresce 3 centímetros por ano. Construa um algoritmo que calcule e imprima quantos
anos serão necessários para que Zé seja maior que Chico.}
Program LT03_EX08 ;
var
chico, ze:real;
ano:integer;
Begin
ano:=0;
chico:=1.50;
ze:=1.10;
while(ze < chico) do
begin
chico:=chico+0.02;
ze:=ze+0.03;
ano:=ano+1;
end;
writeln('ANOS NECESSÁRIOS PARA QUE ZÉ FIQUE MAIOR QUE CHICO: ',ano);
writeln('ALTURA DE CHICO: ',chico:0:2);
writeln('ALTURA DE ZÉ: ',ze:0:2);
End.
{Faça um programa que leia as seguintes informações de alunos: matrícula, valor da mensalidade e percentual de aumento devido
ao atraso. Este programa deverá calcular e imprimir:
a matrícula de cada aluno
o valor da mensalidade
o valor a ser pago com o percentual de aumento.
Ao final do programa deverá ser exibida a quantidade de alunos processado e o total das
mensalidades pagas com aumento. Encerre o programa quando for digitada a
matricula igual a zero.}
Program Pzim ; exercício 07
var
mat,cont,cont_atraso,aumento:integer;
mensal,perc_atraso,tot:real;
Begin
cont:=0;
cont_atraso:=0;
write('DIGITE A MATRÍCULA: ');
readln(mat);
while (mat <> 0) do
begin
cont:=cont+1;
write('DIGITE O VALOR DA MENSALIDADE: ');
readln(mensal);
write('PERCENTUAL DE ATRASO: ');
readln(perc_atraso);
if(perc_atraso <> 0) then
begin
cont_atraso:=cont_atraso+1;
tot:=(mensal*perc_atraso)/100+mensal;
end
else
tot:=mensal;
writeln('MATRÍCULA: ',mat);
writeln('VALOR DA MENSALIDADE: R$',mensal:0:2);
writeln('VALOR MENSALIDADE + MULTA DE ATRASO: R$',tot:0:2);
writeln;
writeln('*************************************');
writeln;
write('DIGITE A MATRÍCULA: ');
readln(mat);
end;
clrscr;
writeln('TOTAL DE ALUNOS: ',cont);
writeln('MENSALIDADES PAGAS COM ATRASO: ',cont_atraso);
End.