Вопрос по информатике:
Помогите пожалуйста составить в "паскале" программу, чтобы шар летел вверх))))
Пожаловаться
- 23.01.2018 12:10
- Информатика
- remove_red_eye 4759
- thumb_up 12
Ответы и объяснения 1
Uses graphabc;
var i: 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.
var i: 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.
Пожаловаться
- 24.01.2018 12:51
- thumb_up 38
Знаете ответ? Поделитесь им!
Есть сомнения?
Не нашли подходящего ответа на вопрос или ответ отсутствует? Воспользуйтесь поиском по сайту, чтобы найти все ответы на похожие вопросы в разделе Информатика.
Трудности с домашними заданиями? Не стесняйтесь попросить о помощи - смело задавайте вопросы!
Информатика — наука о методах и процессах сбора, хранения, обработки, передачи, анализа и оценки информации с применением компьютерных технологий, обеспечивающих возможность её использования для принятия решений.
Новые вопросы
Интересные вопросы