Паскаль графика

[Asira]

Нарисовать круг, касающийся границы экрана, разделенный на n равных секторов, каждый из которых закрашен случайным цветом; два соседних сектора не должны иметь одинаковый цвет; центр круга - точка (x,y);

uses graph;
var c,e,d,m,n,a,b,w:integer;
begin
randomize;
d:=detect;
initgraph(d,m,'');
writeln('Vvedute_chislo_sektorov');
readln(n);
a:=0;
b:=0;
w:=n;
e:=0;
while w>0 do
begin
c:=random(16);
if (c=e) and (c=16) then c:=c-1;
if (c=e) and (c<>16) then c:=c+1;
b:=b+round(360/n);
setfillstyle(1,c);
sector(320,240,a,b,240,240);
a:=a+(360 div n);
w:=w-1;
e:=c;
end;
circle(320,240,240);
readln;
closegraph;
end.

ПОмогите убрать погрешность чтоб для нечётных n программа тоже работала

[Alex_FF]

это из-за погрешности при переходе от вещественных чисел к целым...

uses
    Crt, Graph;

var
   C, E, D, M, N, A, B, W: Integer;
begin
     Randomize;
     D := Detect;
     WriteLn('Enter number of sectors');
     ReadLn(N);
     InitGraph(D, M, '');
     if GraphResult <> GrOK then Exit;
     A := 0;
     B := 0;
     W := N;
     E := 0;
     while W > 0 do
     begin
          C := Random(16);
          if (C = E) and (C = 16) then Dec(C);
          if (C = E) and (C <> 16) then Inc(C);
          if W = 1 then B := 360 else B := B + 360 div N;
          SetFillStyle(1, C);
          Sector(320, 240, A, B, 240, 240);
          A := A + (360 div N);
          Dec(W);
          E := C;
     end;
     Circle(320, 240, 240);
     ReadKey;
     CloseGraph;
end.

[Asira]

Спасибо но ошибка не пропала............всё равно погрешность остаётся......
ошибка накапливается из-за этих вычислений B := B + 360 div N;
A + (360 div N)
я хотел заменить их произведением но ничего не вышло

[Alex_FF]

а в чём собственно ошибка?

[Asira]

когда нечётное число секторов то в конце накапливается маленький сектор которого не должно быть............

[Alex_FF]

вот введите 11 и посмотрите... нету там никакого маленького сектора...
Это, конечно, в моем решении нету

И чтобы поточнее было, замените B := B + 360 div N на B := B + Round(360 / N)
и A := A + 360 div N на A := A + Round(360 / N)

вот так будет

uses
    Crt, Graph;

var
   C, E, D, M, N, A, B, W: Integer;
begin
     Randomize;
     D := Detect;
     WriteLn('Enter number of sectors');
     ReadLn(N);
     InitGraph(D, M, '');
     if GraphResult <> GrOK then Exit;
     A := 0;
     B := 0;
     W := N;
     E := 0;
     while W > 0 do
     begin
          C := Random(16);
          if (C = E) and (C = 16) then Dec(C);
          if (C = E) and (C <> 16) then Inc(C);
          if W = 1 then B := 360 else B := B + Round(360 / N);
          SetFillStyle(1, C);
          Sector(320, 240, A, B, 240, 240);
          A := A + Round(360 / N);
          Dec(W);
          E := C;
     end;
     Circle(320, 240, 240);
     ReadKey;
     CloseGraph;
end.

[Asira]

вот как раз так у меня сделано как у вас во втором варианте но сектор пустой остаётся точнее он не пустой он чёрный и не равный всем остальным........ только что в паскале запускал
погрешность в цикле всё равно остаётся........так как тут сумма....


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


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

[Alex_FF]

сейчас, 5 сек., с другой задачей разберусь...

[Alex_FF]

у черного цвета номер 0. Random(16) генерирует числа от 0 до 15. Когда выпадает 0, то тот сектор закрашивается черным... Напишите вместо Random(16) вот так: 1 + Random(15)

[Asira]

ДАК ВЫПАДАЕТ СЕКТОР НЕ РАВНЫЙ ОСТАЛЬНЫМ СЕКТОРАМ........ОНИ ВСЕ ДОЛЖНЫ БЫТЬ МЕЖДУ СОБОЙ =