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

Question

Информатика

Фридерика

13 августа, 20:38

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

+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.