Предмет: Информатика,
автор: missdashik1
Помогите пожалуйста
С оператором for
Около стены наклонно стоит палка длиной 4.5 м. Нижний конец находится на расстоянии 3 м от стены. Он начинает скользить в плоскости перпендикулярной стене. Определить значение угла между палкой и полом (в градусах) с момента начала скольжения до падения палки через каждые 0.2 м.
Ответы
Автор ответа:
0
Держи
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.
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.
missdashik1:
Нужно именно с оператором for
Интересные вопросы
Предмет: Английский язык,
автор: nikolaygogol696
Предмет: История,
автор: karinakass
Предмет: Химия,
автор: rudueroma
Предмет: История,
автор: brilevayulechka2005
Предмет: Українська мова,
автор: YourShinobi