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

Question

Информатика

Эма

18 ноября, 11:31

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

+4

Ответы (1)

Знаете ответ на вопрос?

Мариамночка · Answer 1

Написано для 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.