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

[-Shurik-]

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

[-Shurik-]

Привожу листинг своей программы

Код

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 -');

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

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

  a:=0;
  Setcolor(red);
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));
  a:=a+round((2*pi/n));
  line(320,240,640*round((Sin(a)/(abs(Sin(a)+00000.1)))),round(320*((Sin(a) / (Cos(a)+0000000.1)))));

  Readln;
  CloseGraph;
end.

[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-]

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

[-Shurik-]

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

[volvo]

Погоди, так надо получить N кусков или N разрезов "от края до края"... Это далеко не одно и то же...

Представь N = 2... Что есть 2? 2 куска - один разрез хватит, 2 разреза - больше двух кусков...

Ты с заданием определись...

[-Shurik-]

Ты с заданием определись...

Я вчера сдал задачу уже.. Большое спасибо Volvo за поддержку!!