Работа с графикой в паскале.

[Серафимий Долговяз]

Помогите написать процедуру,строющую звезду давида.Два правильный треугольника,вершина одного лежит на верхней точке окружности,другого на нижний, саму окружность выводить не надо.
Заранее спасибо!

[_Dmitry]

Простейшая геометрия. Рисуешь на бумаге окружность и линии, определяешь координаты концов и программируешь.

uses graph,crt;
var
  X0,Y0,R,dr,dr1: integer;
  a: real;
begin
  dr:=Detect;
  InitGraph(dr,dr1,'C:\BP\BGI');
  if GraphResult <> GrOk then
    begin
      writeln('graph error'); halt;
    end;

  X0:=round(GetMaxX/2); Y0:=round(GetMaxY/2); {центр окружности}
  R:=100; {радиус окружности}
  a:=2*R*sin(pi/3); {сторона треугольника}

  MoveTo(X0,Y0-R);
  LineTo(X0+round(a/2),Y0+round(sqrt(R*R-a*a/4)));
  LineTo(X0-round(a/2),Y0+round(sqrt(R*R-a*a/4)));
  LineTo(X0,Y0-R);

  MoveTo(X0,Y0+R);
  LineTo(X0+round(a/2),Y0-round(sqrt(R*R-a*a/4)));
  LineTo(X0-round(a/2),Y0-round(sqrt(R*R-a*a/4)));
  LineTo(X0,Y0+R);

  while not Keypressed do;
  CloseGraph;
end.

[Гуля Гульназ]

А почему выводит ошибка detect неизвестный идентификатор?

[Serge_Bliznykov]

проверьте, что Вы не забыли в Uses указать модуль Graph