Задание:
Составьте программу которая имитирует падение брошенного с башни яблока
Решение:
Для Pascal ABCuses 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.
Знаете другой ответ?