Задача в Паскале. Нарисовать в экране 300x300 пикселей рамку из кружков, с радиусом 15 пикселей

Question

Информатика

Назик

4 декабря, 19:48

Задача в Паскале. Нарисовать в экране 300x300 пикселей рамку из кружков, с радиусом 15 пикселей

+5

Ответы (1)

Знаете ответ?

Анни · Answer 1

uses GraphABC;

var x:integer;

begin

SetWindowWidth (300) ;

SetWindowHeight (300) ;

x:=15;

while x<300 do

begin

circle (x, 15,15) ;

circle (x, 285,15) ;

circle (15, x, 15) ;

circle (285, x, 15) ;

x:=x+30

end;

end.