Помогите пожалуйста С оператором for Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной...

Вам нужно узнать решение и ответ на вопрос Помогите пожалуйста С оператором for Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной... и правильно выполнить домашнюю работу по предмету Информатика? Готовое решение смотрите далее.

Помогите пожалуйста
С оператором for

Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной стене. Определить значение угла между палкой и полом (в градусах) с момента начала скольжения до падения палки через каждые 0.2 м.

Держи
uses crt;
var d,r,x,dx,h,u:real;
begin
clrscr;
d:=4.5;
r:=3;
dx:=0.2;
x:=r;
repeat
h:=sqrt(d*d-x*x);
u:=arctan(h/x);
writeln('x=',x:4:1,' Угол=',u*180/pi:0:1,#248);
x:=x+dx
until x>d;
readln
end.

Нужно именно с оператором for

Подобные ответы

в виде блок схемы, при помощи цикла повторение, составить алгоритм, нарисовки окружности, так, чтобы машина смогла его осуществить или человек
в виде блок схемы, при помощи цикла повторение, составить алгоритм, нарисовки окружности, так,
удалить из строки каждую пару символов "?!",подсчитать количество символов "Z" и отдельно количество символов "T" стоящих перед "."
удалить из строки каждую пару символов ?!,подсчитать количество символов Z и отдельно количество
Сколько бит памяти занимает чёрно-белое изображение (без градаций серого) шириной 10 точек и высотой 70 точек?
Сколько бит памяти занимает чёрно-белое изображение без градаций серого шириной 10 точек и высотой
Помогите решить (delphi7)
Помогите решить delphi7