Нарисуйте траекторию полета камня - Turbo Pascal

Формулировка задачи:

У меня есть задание, вот оно: Камень бросили горизонтально со 100-метровой башни со скоростью v=20м/с. Его расстояние от башни по горизонтали (s) выражается формулой s=v*t, где t – время полета камня в секундах. Высота над землей h выражается формулой h=100 – 9.81*t2/2. Нарисуйте башню, землю, камень (маленькая окружность). Затем камень летит. Добейтесь, чтобы время полета камня на экране примерно соответствовало реальному времени. Нарисуйте траекторию полета камня. Для этого достаточно, чтобы камень оставлял за собой следы в виде точек. Впринципе, я понимаю как сделать эту прогу, но я дошел до места где нужно прописать движение окружности (камня), но там проблема : координаты s и h не целые числа, тоесть тип Real, а паскаль выдает ошибку: несоответствие типов. Как обойти эту проблему?

Код к задаче: «Нарисуйте траекторию полета камня - Turbo Pascal»

textual
Program ifp;
uses crt;
var
t,s,h,v:real;
begin
v:=20;
t:=0;
repeat
s:=v*t;
h:=100-9.81*t*t/2;
writeln ('t=',t,' s=',s:8:2,' h=',h);
t:=t+0.2;
until h<=0;
ReadLn
end.

8   голосов, оценка 4.125 из 5


СОХРАНИТЬ ССЫЛКУ