whiley<=460 do begin. whilex<=620 do begin. whiley<=460 do begin. whilex<=620 do begin. circle (x, 460, 8);. whiley<=460 do begin. circle (20, y, 8);. Задание

⇐ ПредыдущаяСтр 2 из 2

whiley<=460 do begin

circle (620, y, 8);

y:=y+20;

end;

Полностью программа выглядит теперь вот так:

programcircles;

uses GraphABC;

var

x, y: integer;

begin

x:=20;

whilex<=620 do begin

circle (x, 20, 8);

x:=x+20;

end;

y:=40;

whiley<=460 do begin

circle (620, y, 8);

y:=y+20;

end;

end.

Для того, чтобы завершить работу, надо добавить операторы, рисующие окружности вдоль двух других границ окна. Например, так:

programcircles;

uses GraphABC;

var

x, y: integer;

begin

x:=20;

whilex<=620 do begin

circle (x, 20, 8);

circle (x, 460, 8);

x:=x+20;

end;

y:=40;

whiley<=460 do begin

circle (620, y, 8);

circle (20, y, 8);

y:=y+20;

end;

end.

Результат:

Задание

Разобраться с работой предложенной программы.

Написать программу, в результате выполнения которой вдоль границ графического окна будут нарисованы квадраты (по горизонтали) и треугольники (по вертикали).

Файл с текстом программы прислать мне на почту yelenasutotskaya@gmail.com

Если будут вопросы, пишите по тому же адресу.

Жду ваших писем до вечера пятницы.

⇐ Предыдущая 12