8 класс
Оператор цикла

Тест

Простые и составные условия. Команда ветвления

Задание 1 (Пример 17.1)

// Написать программу для рисования // ряда окружностей радиусом 10

// пикселей // вдоль верхнего края графического // окна.

uses graphabc; var x, y, r : integer; begin r:=10; x:=10; y:=10; SetBrushStyle(bsClear); while x<640 do begin circle(x,y,r); x:=x+20; end; end.


Задания 2-4

2. Какие изменения нужно внести в программу из примера 17.1, чтобы рисунок выглядел следующим образом:

3. Измените программу пример 17.1:

радиусы окружностей равны 20.

4. Измените программу пример 17.1:

радиус окружности вводится пользователем

ReadLn(R).

(Расстояние между центрами окружностей 2*R)


Задание 5. Задание 6*.

5. Напишите программу, которая рисует 10 концентрических окружностей с центром в середине графического окна

(размер окна по умолчанию 640х480).

Радиус самой большой окружности – 200 пикселей.

Разница между радиусами – 20 пикселей.

6*. Раскрасьте каждую окружность в свой цвет SetBrushColor(clrandom);

Домашнее задание

5. Измените программу пример 17.1:

окружности располагаются вдоль левого края окна.

6. Добавьте цвет окружностям. SetBrushColor(clrandom);