графика в паскале

[Kravec]

Никогда не занимался графикой в паскале, вот по єтому не знаю что к чему...
вот само задание

За заданными координатами центра описанного кола и его радиусом нарисовать 5 - лучевую звезду. Соединить каждую вершину звезды с 2 несопредельными , а также с ее центром

Она должна выглядить вот так

[Serge_Bliznykov]

на Дельфи пойдёт?
(вставить код в событие onPaint формы):

procedure TForm1.FormPaint(Sender: TObject);
type
  point = record
   x : integer;
   y : integer;
  end;

var
  Pent : array[1..5] of point;
  p0 : point;
  widthStar  : integer;
  i  : integer;
var
  Radians : double;
  angle     : double;
begin
  p0.x := 250;
  p0.y := 250;
  widthStar := 200;
  angle := 270;

With Form1.Canvas do
  begin
    Pen.Width:= 1;
    Pen.Color:= clRed;

    for i:=1 to 5 do begin
      MoveTo(p0.x,p0.y);
      Radians := angle * Pi / 180;
      Pent[i].x := p0.x + round(Cos(Radians) * widthStar);
      Pent[i].y := p0.y + round(Sin(Radians) * widthStar);
      LineTo(Pent[i].x, Pent[i].y);
      angle := angle + 72;
    end;

    Pen.Width:= 2;
    Pen.Color:= clBlack;
    MoveTo(Pent[1].x, Pent[1].y);
    LineTo(Pent[3].x, Pent[3].y);
    LineTo(Pent[5].x, Pent[5].y);
    LineTo(Pent[2].x, Pent[2].y);
    LineTo(Pent[4].x, Pent[4].y);
    LineTo(Pent[1].x, Pent[1].y);
  end;

end;

[Kravec]

спасибо большое ) а как его преобразовать в Паскале ?

[OCTAGRAM]

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

[Stilet]

Радуйся:

uses graph;
type
  point = record
   x : integer;
   y : integer;
  end;
var        gd,gm:integer;
  Pent : array[1..5] of point;
  p0 : point;
  widthStar  : integer;
  i  : integer;
  Radians : double;
  angle     : double;
begin
  p0.x := 250;
  p0.y := 250;
  widthStar := 200;
  angle := 270;
           initgraph(gd,gm,'');
  begin
    for i:=1 to 5 do begin
      MoveTo(p0.x,p0.y);
      Radians := angle * Pi / 180;
      Pent[i].x := p0.x + round(Cos(Radians) * widthStar);
      Pent[i].y := p0.y + round(Sin(Radians) * widthStar);
      LineTo(Pent[i].x, Pent[i].y);
      angle := angle + 72;
    end;
    MoveTo(Pent[1].x, Pent[1].y);
    LineTo(Pent[3].x, Pent[3].y);
    LineTo(Pent[5].x, Pent[5].y);
    LineTo(Pent[2].x, Pent[2].y);
    LineTo(Pent[4].x, Pent[4].y);
    LineTo(Pent[1].x, Pent[1].y);
  end;
  readln;
 closegraph;
end.

[Serge_Bliznykov]

Сообщение от OCTAGRAM

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

OCTAGRAM, полностью с Вами согласен, коллега!

___________________________________ __
Kravec, дело в том, что выше приведён практически готовый код!
Добавить иницилизацию графики, заменить задание цвета (пара строчек)... и всё!
Как же Вы собираетесь всё это сдавать, если ровном счётом ничего в этом не понимаете?! И даже не пытаетесь?! ;(

впрочем, что я распинаюсь...
вот ПОЛНОСТЬЮ ГОТОВАЯ программа:

uses Graph;
type
  point = record
   x : integer;
   y : integer;
  end;

var
  Pent : array[1..5] of point;
  p0 : point;
  widthStar  : integer;
  i  : integer;
  Radians   : double;
  angle     : double;
  grDriver  : Integer;
  grMode    : Integer;
  ErrCode   : Integer;

begin

  grDriver := Detect;
  InitGraph(grDriver, grMode,'');{bgi драйвера должны лежать рядом с exe-шником!}
  ErrCode := GraphResult;
  if ErrCode = grOk then
  begin  { Do graphics }
    p0.x := 250;
    p0.y := 250;
    widthStar := 150;
    angle := 270;

     setfillstyle(9,red);
     setcolor(red);

     for i:=1 to 5 do begin
        MoveTo(p0.x,p0.y);
        Radians := angle * Pi / 180;
        Pent[i].x := p0.x + round(Cos(Radians) * widthStar);
        Pent[i].y := p0.y + round(Sin(Radians) * widthStar);
        lineTo(Pent[i].x, Pent[i].y);
        angle := angle + 72;
      end;

      setcolor(White);
      MoveTo(Pent[1].x, Pent[1].y);
      LineTo(Pent[3].x, Pent[3].y);
      LineTo(Pent[5].x, Pent[5].y);
      LineTo(Pent[2].x, Pent[2].y);
      LineTo(Pent[4].x, Pent[4].y);
      LineTo(Pent[1].x, Pent[1].y);
      readln;
      CloseGraph;
  end
  else begin
    Writeln('Graphics error:', GraphErrorMsg(ErrCode));
    Readln;
  end;
end.

___________________________________ __________
ДОБАВЛЕНО!
да.. Виталий, не успел... опять не обновил страницу, и не увидел Вашего сообщения...
за что сам и поплатился - иначе бы не тратил время на готовый код...