нарисовать Олимпийский знак Опции

[k0sT]

Помогите пожалуйста с кодом, моих знаний оказалось мало для написания такой графики, дали задание а сроки уже поджимают,плз

[Айра]

Вроде похожи))

uses graph;
const r=100;
      r2=r*2;
var x,y,err,gd,gr: integer;

procedure krug(a,b,c: integer);
var i: byte;
begin
  setcolor©;
  for i:=0 to 4 do circle(a,b,r-i); //чтобы потолще круги были
end;

begin
  gd:=detect;
  gr:=VGAHi;
  InitGraph(gd,gr,'');
  if err <> grOk then
    begin
      writeln('не удалось инициализировать Graph');
      exit;
    end;
  x:=getmaxx div 2;
  y:=(getmaxy div 2) - r;
  setfillstyle(1,7);
  floodfill(0,0,7);
  krug(x,y,0);
  krug(x-r2,y,1);
  krug(x+r2,y,4);
  krug(x-r,y+r,14);
  krug(x+r,y+r,2);
  readln;
  closegraph;
end.

Если есть вопросы - спрашивай..

[k0sT]

Огромнейшее спасибо, вы даже представить не можете как вы меня выручили, спасибо, спасибо, спасибо!!!!!

P.S. все работает!!!!!!!!!!!!!