вращение диска Опции

[Sensitive]

Вообще не знаю каким способом делать эту задачу.
Условие прилагается. Подскажите пожалуйста, как это всё реализовать.

[volvo]

Зачем тебе вручную рассчитывать все координаты, когда это за тебя может сделать Паскаль?

Запусти вот это, к примеру:

uses graph;

procedure disk(f: real; r:integer);

  const delta = 6;
  procedure put_arc(start, finish: integer;
            var r_out: integer);
  var
    xs_in, ys_in, xf_in, yf_in: integer;
    arc_coords: arccoordstype;
  begin
    arc(0, 0, round(start + f),round(finish + f), r_out);
    getarccoords(arc_coords);
    with arc_coords do begin
      xs_in := xstart; ys_in := ystart;
      xf_in := xend; yf_in := yend;
    end;

    dec(r_out, delta);

    arc(0, 0, round(start + f), round(finish + f), r_out);
    getarccoords(arc_coords);
    with arc_coords do begin
      line(xs_in, ys_in, xstart, ystart);
      line(xf_in, yf_in, xend, yend);
    end;
  end;

begin
  arc(0,0,round(180+180*f/pi)-1,round(360+180*f/pi)+1,r);

  dec(r, 16);
  put_arc(135, 180, r);
  put_arc(90, 135, r);
  put_arc(45, 90, r);
  put_arc(0, 45, r);
end;

var gd, gm: integer;

begin
  initgraph(gd, gm, '');
  setviewport(getmaxx div 2, getmaxy div 2, getmaxx, getmaxy, false);
  disk(0, 50);
  readln;
  closegraph;
end.