Информатика, опубликовано 2018-08-22 22:20:21 by Гость

Помогите пожалуйста составить в "паскале" программу, чтобы шар летел вверх))))

Ответ оставил Гость

Uses graphabc;
vari: integer;
begin
window.Init(0, 0, 800, 600, clwhite);
window.IsFixedSize := true;
pen.Color := clMediumVioletRed;
pen.Width := 4;
lockdrawing;
for i := 1 to 150 do
begin
if(i=2)then sleep(100);
circle(400, 600 - (i * 4), 80);
redraw;
window.Clear;
end;
end.

Не нашли ответа?

Если вы не нашли ответа на свой вопрос, или сомневаетесь в его правильности, то можете воспользоваться формой ниже и уточнить решение. Или воспользуйтесь формой поиска и найдите похожие ответы по предмету Информатика.