Задание по программированию 8 класс. Pascal. По холсту перемещаются два шарика разного цвета и разного радиуса, один - слева направо, второй - сверху вниз. Скорости движения шариков разные. Разработайте программу для выполнения этой анимации.

Question

Алиса Агеева

Информатика

13 марта, 00:11

Задание по программированию 8 класс. Pascal. По холсту перемещаются два шарика разного цвета и разного радиуса, один - слева направо, второй - сверху вниз. Скорости движения шариков разные. Разработайте программу для выполнения этой анимации.

+5

Ответы (1)

Знаешь ответ на этот вопрос?

Нина Кузнецова · Answer 1

uses

graphabc; / / подключаем графику.

var

x, y : integer; / / объявляем переменные целочисленного типа.

label l; / / объявляем метку.

begin

setpenwidth (5); / / устанавливаем ширину линии.

l: x : =0; / / точка возврата после выхода из цикла.

repeat / / начало цикла.

clearwindow; / / очищаем окно.

setpencolor (clRed); / / устанавливаем цвет линии.

Circle (20+2*x, 30,20); / / рисуем круг.

setpencolor (clGreen); / / устанавливаем цвет линии.

Circle (580,130+x, 50); / / рисуем круг.

sleep (100); / / делаем паузу 100 мсек.

x : = x + 10; / / увеличиваем щаг для рисования следующего круга.

until x = 300; / / условие выхода из цикла.

goto l; / / переход на метку.

end.