Construa um algoritmo que resolva o seguinte problema. Roberto tem 1,50 metros de altura hoje e cresce 2 centímetros em ano par e 1 centímetro em ano ímpar, enquanto José tem 1,10 metros de altura e cresce 3 centímetros em ano par e 2 centímetros em ano ímpar. Construa um algoritmo que calcule e imprima quantos anos serão necessários para que José seja maior que Roberto. Ao final, imprima na tela a altura final de Roberto e José e em qual ano José passou Roberto em estatura.
preciso do código inteiro q seja em PASCAL!
Soluções para a tarefa
Resposta:
Abaixo segue a solução da tarefa em código Pascal!!!
Se quiser testar o código, acesse online_pascal_compiler
Espero ter ajudado!!! Dárcio Carvalho
github: DarcioCarvalho
Explicação:
program alturaJoseMaiorRoberto;
var
alturaRoberto, alturaJose: real;
ano: integer;
begin
// Para efeito de precisão do cálculo
// as alturas estão em centimetros (Números inteiros)
alturaRoberto:= 150;
alturaJose:= 110;
ano:= 2021;
repeat
ano:= ano + 1;
if ((ano mod 2) = 0 ) then
begin
alturaRoberto:= alturaRoberto + 2;
alturaJose:= alturaJose + 3;
end
else
begin
alturaRoberto:= alturaRoberto + 1;
alturaJose:= alturaJose + 2;
end;
until (alturaJose > alturaRoberto);
// Ajustar as alturas para metros
alturaJose:= alturaJose / 100;
alturaRoberto:= alturaRoberto / 100;
writeln ('Serão necessários ', (ano - 2022), ' anos para que José fique maior que Roberto.' );
writeln ('Em ', ano, ', José medirá ', alturaJose:0:2, ' de altura e Roberto medirá ', alturaRoberto:0:2, ' de altura.' );
end.