Графика в Паскале Опции

[Logan]

НАРОД ПОМОГИТЕ!!! Только начал недавно заниматься PASCALем и дошел до графики. Вопросов у меня будет много!!! для начала: как нарисовать вот этот рисунок

[klem4]

Первая достаточно просто

uses crt,graph;

var
   x,y,d,r : word;

procedure GrInit;
var
  gD,gM,gE:integer;
begin

   gD:=detect;
   InitGraph(gD,gM,'');
   gE:=GraphResult;

   if gE<>grOk then begin
      writeln('Error = ', GraphErrorMsg(gE));
      halt(1);
   end;
end;


Begin

   GrInit;

   SetColor(Yellow);

   x:=GetMaxX div 2;
   y:=GetMaxY div 2;

   r:=50;

   d:=r-10;



   Circle(x, y, r);

   Rectangle(x-d,y-d,x+d,y+d);

   SetFillStyle(1,white);

   FloodFill(x,y,yellow);

   readln;

   CloseGraph;
End.

щас нарисую второй.

Сообщение отредактировано: klem4 - 8.08.2005 14:58