Составьте программу которая имитирует падение брошенного с башни яблока

alena230886 alena230886    1   03.03.2019 02:30    4

Ответы
gelyusya gelyusya  23.05.2020 23:00

Для Pascal ABC

uses GraphABC;
begin
Window.Title := 'Apple';
var y,y0,x,t: integer;

Brush.Color := clGreen;
y0:=70;
x:=70;
LockDrawing;
for t := 0 to 8 do
begin
y:=y0+5*t*t;
Window.Clear(clWhite);
Circle(x,y,50);
Redraw;
Sleep(100);
end;
end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика