Помощь - Поиск - Пользователи - Календарь
Полная версия: Разрезать пиццу на N равных частей
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
-Shurik-
24.05.2006 16:37
Нужно разрезать круговую пиццу заданного радиуса на n равных частей, делая прямолинейные разрезы.
Не могу понять где я ошибаюсь, и может кто то уже это реализовывал?
-Shurik-
24.05.2006 16:41
Привожу листинг своей программы
Код

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
24.05.2006 17:46
Цитата(-Shurik- @ 24.05.2006 12:37)
Не могу понять где я ошибаюсь
Это - не линейный, а циклический алгоритм...
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-
24.05.2006 20:09
Спасибо за задачу!! Очень удобная реализация
-Shurik-
25.05.2006 13:27
Условия задачи изменились.. Нужно разрезать круговую пиццу на заданное количество кусков, делая n прямолинейных разрезов от края пиццы до края.
volvo
25.05.2006 14:09
Погоди, так надо получить N кусков или N разрезов "от края до края"... Это далеко не одно и то же...

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

Ты с заданием определись...
-Shurik-
26.05.2006 11:38
Цитата

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

Я вчера сдал задачу уже.. Большое спасибо Volvo за поддержку!! good.gif
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.