Разрезать пиццу на N равных частей Опции

[-Shurik-]

Нужно разрезать круговую пиццу заданного радиуса на n равных частей, делая прямолинейные разрезы.
Не могу понять где я ошибаюсь, и может кто то уже это реализовывал?

[volvo]

Не могу понять где я ошибаюсь

Это - не линейный, а циклический алгоритм...

uses Graph,crt;

var
  Gd, Gm : Integer;
  Radius : Integer;
  e,n,mx,my,i,j,a,dif : Integer;
  r:integer;

begin

  clrscr;
  writeln('vvedite n -'); readln(n);


  Gd := Detect;
  InitGraph(Gd, Gm, '');
  if GraphResult <> grOk then
    Halt(1);

  mx:=320;my:=240;
  Circle(mx,my,80);
  Circle(mx,my,1);

  Setcolor(red);
  for i := 1 to n do begin
    line( mx, my, mx + trunc(80 * sin((i - 1) * (360 div n) / (180/Pi))),
                  my - trunc(80 * cos((i - 1) * (360 div n) / (180/Pi))) );
  end;
  Readln;
  CloseGraph;
end.

(лишние переменные убери сам...)

[-Shurik-]

Спасибо за задачу!! Очень удобная реализация