Анимация(((, наверняка одминам это как 2 пальца об асфальт)) Опции

[yakudza_m]

доброго времени суток!!
привет вам из далекой (или не далекой) Беларуси!
у меня проблема: нужно написать на зачет по информатике 2 графические задачи((((

помогите чем сможете...

1. сектор вращается против часовой стрелки и меняет цвета (7 цветов). внутренний угол 30 градусов

2. фигура, состоящая из 2-х кругов с диаметрами D=40 и d=18, движется по горизонтальной поверхности длиной L=180. При достижении стенок на концах поверхности направление движения фигуры меняется...

помогите пожалуйста, не то у меня отберут стипендию(((

[volvo]

а как сделать так чтоб сектор менял цвет??

Когда-то я делал программу "Поле чудес", так вот чуть-чуть подкорректированный код вращения барабана. По-моему, то, что тебе нужно...

uses crt,graph;

var
  gm, gd, x, y: Integer;
  ac: ArcCoordsType;

const
  numSectors = 12;
  EverySector = 360 div numSectors;

  Colors: array[1 .. numSectors] of integer =
    (1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0);

var
  pass, p, T: Integer;

begin
  gd := Detect;
  InitGraph(gd, gm, '');
  if GraphResult <> grOk then begin
    WriteLn('Error'); Halt(100)
  end;

  x := 200; y := 200;
  Ellipse(x, y, 0, 360, 103, 103);

  repeat

    for p := 1 to numSectors do begin
      SetColor(DarkGray);
      Ellipse(x, y,
        Pred(p) * EverySector, p * EverySector, 100, 100);

      GetArcCoords(ac);
      with ac do begin
        Line(x, y, xStart, yStart);
        Line(x, y, xEnd, yEnd);

        SetFillStyle(SolidFill, colors[p]);

        if colors[p] > 0 then begin
          inc(colors[p]); if colors[p] > LightGray then colors[p] := 1;
        end;

        FloodFill( (xStart+xEnd) div 2,
                   (yStart+yEnd) div 2, DarkGray);
      end;
    end;
    T := colors[numSectors];
    move(colors[1], colors[2], pred(numSectors)*sizeof(integer));
    Colors[1] := T;

    delay(25000);

  until keypressed;

  ReadLn;
  CloseGraph
end.

[yakudza_m]

клёво!!
но у меня почему-то рисует только 1 сектор синим, а остальные чёрным...