Resumindo GAE3

Este guia de auto estudo ja apresentou uma complexidade maior, já que tivemos que desenvolver um programa em PascaL para calcular a variação da velocidade de um avião e seu deslocamento em um intervalo de tempo pré-determinado. Para isso, é necessário utilizar uma linguagem de programação de alto nível. Começamos aqui a utilização do comando "for".


Programa Fonte:
program aviaosilasviveirostoledo;
var velocidade,i,x,k,tempo,tempof:integer;
velocidadefinal,aceleracao,velocidademach,deslocamento:real;
begin
writeln('informe o indice de variação do tempo em s');
readln(tempo);
k:=tempo;
writeln('informe a velocidade para o calculo da aceleraçao em m/s');
readln(velocidade);
writeln('informe o tempo final para a aceleracao em s');
readln(tempof);
x:=tempof div tempo;
aceleracao:= velocidade div tempo;
writeln('a sua aceleracao e ',aceleracao);
write('tempodecorrido ');
write('velocidade final ');
write('velocidade mach ');
writeln('deslocamento ');
for i:=1 to x do begin
write(tempo);
velocidadefinal:= aceleracao * tempo * 3.6;
velocidademach:= velocidadefinal/1224.0;
deslocamento:=(velocidadefinal*(tempo/3600.0))/2;
tempo:=tempo + k;
write(velocidadefinal,' ');
write(velocidademach,' ');
writeln(deslocamento);
end;
end.