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

[Logan]

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

[Logan]

Второй вопрос такой: /-/-/-/:

[volvo]

Для начала - НЕ надо постить в чужие темы !!! И второе - "одна тема - один вопрос".

[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 18:58

[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:=100;

   d:=r-10;

   Circle(x, y, r);

   Rectangle(x-d,y-d,x+d,y+d); // маленький

   Rectangle(x-r-10,y-r-10,x+r+10,y+r+10); // большой

   SetColor(Yellow);

   {
    За отправные точки для закришивания маленьких
    треугольников я взял вершины меньшего прямоугольника
   }

   SetFillStyle(1,red);
   FloodFill(x,y,Yellow); // внутри окружности

   SetFillStyle(1,Green);
   FloodFill(x+d-1,y-d+1,Yellow); // правый верхний

   SetFillStyle(1,white);
   FloodFill(x-d+1,y-d+1, Yellow); // левый верхний

   SetFillStyle(1,Blue);
   FloodFill(x+d-1,y+d-1, Yellow); // правый нижний

   SetFillStyle(1,LightBlue);
   FloodFill(x-d+1,y+d-1, Yellow); // левый нижний

   readln;

   CloseGraph;
End.

ps
я сам первый раз такую фигню рисовал, открой учебник по паскалю и посмотри ф-и и процедуры для работы с цветами и заливкой. Все достаточно просто.

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

[volvo]

klem4, опять программы ПОЛНОСТЬЮ??? Ну пускай уже сами думать начинают, в конце-то концов!