Exercícios
1- Faça um programa que mostre o primeiro número inteiro que elevado
ao quadrado seja maior que este número multiplicado por 5.
2- Faça um programa Pascal que dado um número inteiro entre 1 e 10,
exiba a sua tabuada (ficar lendo valores até que o número esteja no
intervalo desejado).
2- Idem, mas depois de exibir uma tabuada, perguntar ao usuário se este
deseja ver a tabuada de um outro número.
3- Um determinado material radioativo perde metade de sua massa a
cada 50 segundos. Dada a massa inicial, em gramas, fazer um
programa que determine o tempo necessário para que essa massa se
torne menor do que 0,5 gramas. Escreva a massa inicial, a massa
final e o tempo calculado em horas, minutos e segundos.
Exemplo de solução: exercício 1
{primeiro numero inteiro que elevado ao quadrado
seja menor que ele multiplicado por 5}
var
I:integer;
begin
I:=1;
while I*I<I*5 do I:=I+1;
writeln(i);
readln;
end.
Exemplo de solução: exercício 2
{exibe a tabuada de um número inteiro entre 1 e 10 }
var
N,I,R:integer;
begin
repeat
write('Forneca um numero entre 1 e 10: ');
readln(N);
if (N<1) or (N>10) then writeln('numero invalido!');
until (N>0) and (N<11);
writeln;writeln('Tabuada do ',N);
for I:=1 to 10
do begin
R:=N*I;
writeln(N,' x ',I,' = ',R);
end;
readln;
end.
Exemplo de solução: exercício 3
{exibe a tabuada de números inteiros entre 1 e 10 }
var
N,I,R:integer;
cont:char;
begin
cont:='s';
while cont='s'
{loop para a leitura de novo numero}
do begin
repeat
{loop para leitura de numero valido}
write('Forneca um numero entre 1 e 10: ');
readln(N);
if (N<1) or (N>10) then writeln('numero invalido!');
until (N>0) and (N<11);
writeln;writeln('Tabuada do ',N);
for I:=1 to 10
do begin
R:=N*I;
writeln(N,' x ',I,' = ',R);
end;
writeln;write('Deseja a tabuada de outro numero? [s/n]: ');
readln(cont);
end;
{fim do comando while}
readln;
end.
{Exercício 4: material radioativo}
var
mi:real;
I,horas,minutos,segundos,ts,sobra:integer;
begin
I:=0;
write('massa inicial: ');
readln(mi);
writeln('a massa inicial foi de ',mi:1:3,' gramas');
repeat
mi:=mi/2;
I:=I+1;
until mi<0.5;
ts:=I*50;
horas:=ts div 3600;
sobra:=ts mod 3600;
minutos:=sobra div 60;
segundos:=sobra mod 60;
writeln('massa final: ',mi:1:3);
writeln('tempo: ',horas,' horas ',minutos,' minutos e
',segundos,' segundos');
readln;
end.