Как нарисовать олимпийские кольца в PascalABC?

Question

Информатика

Есфирь

6 декабря, 00:34

Как нарисовать олимпийские кольца в PascalABC?

+3

Ответы (1)

Знаете ответ на вопрос?

Аника · Answer 1

Uses graphabc;

var x, y:integer;

begin

x:=100;

y:=100;

setpenwidth (8) ;

setpencolor (clBlue) ;

drawcircle (x, y, 50) ;

inc (x, 110) ;

SetPenColor (clBlack) ;

Drawcircle (x, y, 50) ;

inc (x, 110) ;

SetPenColor (clred) ;

Drawcircle (x, y, 50) ;

inc (y, 65) ;

dec (x, 165) ;

SetPenColor (clyellow) ;

Drawcircle (x, y, 50) ;

inc (x, 110) ;

SetPenColor (clgreen) ;

Drawcircle (x, y, 50) ;

inc (x, 110) ;

end.