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

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


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.


Похожие ответы
  1. Ничего,не получается(как и с Азбукой морзе(тема созданная раннее))

  1. Нарисуйте пару десятков концентрических окружностей, то есть окружностей разного радиуса, но имеющих общий центр.

  1. Напишите графику в паскаль...рисунок машины)

  1. Помогите пожалуйста. Нарисуйте 3 окружности с заключенными в них треугольником,квадратом и звездой.Все фигуры должны быть разного цвета.

  1. Нарисуйте треугольник по данным, введенным пользователем. Цвет линий и стиль заполнения треугольника задает пользователь. Выведите площадь этого треугольника. Заранее благодарен.

  1. Нарисуйте на экране дисплея: а)российский флаг (гори¬зон¬таль¬ные полосы: белая, синяя, красная - одинаковой ширины)так, чтобы размеры и место на экране вводились с клавиатуры. б)французский флаг(вертикаль¬ные полосы: синяя, белая, красная - одинаковой ширины)так, чтобы размеры и место на экране вводились с клавиатуры. в)японский флаг(красный круг в центре белого прямоугольника)так, чтобы размеры и место на экране вводились с клавиатуры.

  1. никак не могу решить помогите советами В случайных точках местности расположено несколько столбов, некоторые из них соединены заборами. Пьяница с равное вероятностью делает шаг в 8 возможных напрвлениях, под 45 градусов. Натолкнувшись на столб или забор, он падает на некоторое время. Изобразить траекторию его движения.

  1. Буду краток. Есть задача:"В точке плоскости с координатами (0, 0) находится собака, в точке Z0 - заяц. С момента времени t=0, заяц бежит все время вдоль линии L(x) с постоянной скоростью 5 м/с. Cобака преследует зайца так, что всегда бежит по направлению прямой, соединяющей в данный момент собаку и зайца. Найти траекторию движения собаки, если скорость собаки 10 м/с. Для решения считать, что собака меняет направление бега не постоянно, а в некоторые моменты времени, в соответствии с положением зайца в этот момент. Между этими моментами – бежит по прямой. L=100+x" Вот код "на скорую руку".

  1. Нарисуйте круг цвета произвольного радиуса, закрасив цветом cyan все, что лежит все этого круга.