Нужно нарисовать ЗВЕЗДУ!, ПОМОГИТЕ, кто может!!! Срочно надо!!!!! Опции

[Студент]

Помогите пожалуйста!!!
Решите задачу: "Вывод на экран изображение пятиконечной звезды " !!!!!

Сообщение отредактировано: volvo - 5.01.2005 5:06

[killerfriz]

Можно так но тут я координаты заранее забил ... а если тебе надо чтоб он сам выщитывал то не знаю думать надо <_<

Код

uses graph,crt;

type Point=record
    x:Word;
    y:word;
end;
Var
  gr,dr:integer;
    pol:array[1..11] of point;{массив для хранения вершин}

begin
   gr:=detect;
   initgraph(gr,dr,'E:\TP7\BGI\');
   directvideo:=false;
   pol[1].x:=50;   pol[1].y:=100;
   pol[2].x:=55;   pol[2].y:=115;
   pol[3].x:=70;   pol[3].y:=115;
   pol[4].x:=57;   pol[4].y:=125;
   pol[5].x:=62;   pol[5].y:=140;
   pol[6].x:=50;   pol[6].y:=130;
   pol[7].x:=36;   pol[7].y:=140;
   pol[8].x:=43;  pol[8].y:=125;
   pol[9].x:=30;  pol[9].y:=115;
   pol[10].x:=45; pol[10].y:=115;
   pol[11].x:=50; pol[11].y:=100;
   drawpoly(11,pol);
   readkey;
   closegraph;
end.