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

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

[Sensitive]

да,действительно и без ручного расчета тот код,что ты дал работает верно. Но я теперь не могу понять,как теперь остаток программы переделать. У меня всё получается делается для рисунка,если черные линиии справа...не могу понять что нужно изменить...или всё переделать надо?

uses   graph,crt; 
 const   r = 100;   d = 9000 ;   df = pi/50; 
 var   f:real;   i , k:integer ; 
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,r2:integer;
    arc_coords:arccoordstype;
begin
r2:=r+1;
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;

begin
init;{инициализация граф режима}
setbkcolor(15);
setpalette(1,0);
setviewport(getmaxx div 2,getmaxy div 2,getmaxx,getmaxy,false);
f:=2*pi;
k:=1;
i:=0;
repeat
if (i=100) or (i=-100) then begin f:=2*pi; i:=0 end;
setcolor(1);
disk(f,r);   {изменила параметры}
delay(d);
setcolor(15);
setfillstyle(1,15);
fillellipse(0,0,r+1,r+1);
if keypressed then
   if readkey=#0 then
           case ord(readkey) of
            59: k:=-1;
            68: k:=1;
            79: halt;
           end;
i:=i+k;
f:=f+df*k;
until false;
end.

P.S. Не знаю как сделать правильно движение это...подскажите, как сделать правильно поворот?

Сообщение отредактировано: Sensitive - 7.06.2007 15:29

[Sensitive]

С диском так и "воюю"...
как закрасить диск,если программа выглядит таким образом:

uses   graph,crt; 
 const   r = 100;   d = 9000 ;   df = pi/50; 
 var   f:real;   i , k:integer ; 
begin
init;
setbkcolor(15);
setpalette(1,0);
setviewport(getmaxx div 2,getmaxy div 2,getmaxx,getmaxy,false);
f:=2*pi;
k:=1;
i:=0;
repeat
if (i=100) or (i=-100) then begin f:=2*pi; i:=0 end;
setcolor(1);
disk(f,r);
delay(8000);
setcolor(15);
setfillstyle(1,15);
fillellipse(0,0,r+1,r+1);
if keypressed then
   if readkey=#0 then
           case ord(readkey) of
            59: k:=-1;
            68: k:=1;
            79: halt;
           end;
i:=i+k;
f:=f+df*60*k;
until false;
end.

И в чём ошибка: почему "еллипс"(точнее его часть) вращается намного быстрее,чем дуги...