Кольца - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Помогите, пожалуйста! Написать программу, рисующую систему разноцветных концентрических колец.

Решение задачи: «Кольца»

textual
Листинг программы
uses graphABC;
const cv:array[1..5] of integer=(clRed,clBlue,clGreen,clLime,clPurple);
var c,n,i,r,dr:integer;
begin
setwindowsize(400,400);
c:=200;
r:=200;
dr:=20;
for i:=1 to 10 do
 begin
  if odd(i) then
   begin
    setpencolor(cv[i div 2+1]);
    setbrushcolor(cv[i div 2+1]);
   end
  else
   begin
    setpencolor(clWhite);
    setbrushcolor(clWhite);
   end;
  circle(c,c,r);
  r:=r-dr;
 end;
end.

Оцени полезность:

10   голосов , оценка 3.6 из 5
Похожие ответы