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

Question

Информатика

Гесперия

4 сентября, 10:09

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

+3

Ответы (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.