Моделировать движение пропеллера.

@Vishan · Регистрация: 03.02.2017

Author24 — интернет-сервис помощи студентам

моделировать движение пропеллера путём вращения отрезка вокруг своего центра. abc pascal

@Puporev · 06.04.2017, 18:06

Pascal

uses graphABC;
var c,x1,y1,x2,y2,r:integer;
    u:real;
begin
setwindowsize(400,400);
centerwindow;
c:=200;
r:=c-50;
x1:=c;
y1:=c-r;
x2:=c;
y2:=c+r;
u:=pi/2;
setpenwidth(3);
setpencolor(clBlue);
line(x1,y1,x2,y2);
lockdrawing;
repeat
sleep(10);
clearwindow;
u:=u-0.1;
x1:=c+round(r*cos(u));
y1:=c-round(r*sin(u));
x2:=c+round(r*cos(u+pi));
y2:=c-round(r*sin(u+pi));
line(x1,y1,x2,y2);
redraw;
until false;
end.

@Vishan 0 / 0 / 0 Регистрация: 03.02.2017 Сообщений: 37
		1
	Моделировать движение пропеллера. 06.04.2017, 17:22. Показов 1078. Ответов 1 Метки нет (Все метки) моделировать движение пропеллера путём вращения отрезка вокруг своего центра. abc pascal 0

	06.04.2017, 18:06

Моделировать движение пропеллера.

Решение