Смена страниц, Начала мультипликации Опции

[Shults99]

Дана задача, что-то не допирает, как решить.
Используя две страницы памяти, запишите программу моделирующую движение секундной стрелки. Изображая стрелку примените процедуру PieSlice.

Вот до чего мне только удалось дойти. Нужно изменить PieSlice так, чтобы стрелка перемещалась на 6 градусов, но ничего не выходит.

program prog32;
Uses CRT,GRAPH;
Var
d, r, k, m: Integer;
A, B: Real;
Procedure Kadr (A:Real; cvet:Word);
Var x, y, z, w: Integer;
begin
z:=300;
w:=150;
x:= Round (240 + 200*w*Sin(A));
y:= Round (320 + 200*w*Cos(A));
SetColor (cvet);
SetFillStyle (1,cvet);
PieSlice(z, w, 0, 360, 5);
PieSlice(z, w, x, y, 200);
End;

BEGIN
d:= EGA;
r:= 1;
InitGraph(d,r,'\tp7\bgi');
A:=0; B:=0; k:=1; m:=1;
SetBkColor(blue);
SetActivePage(1);
Repeat
Kadr(B,GetBkColor);
B:= A; A:=A+6;
{If Abs(A)>0.5 Then m:=-m;}
Kadr(A,yellow);
SetVisualPage(k);
SetActivePage(1-k);
Delay(60000);
k:= 1-k;
A:=A+1;
Until KeyPressed
END.

Help, if you can!

[klem4]

Shults, используем поиск :yes: http://forum.pascalnet.ru/index.php?showtopic=6562


+ загляни еще сюда (тема про часы) и там внутри еще ссылки есть

Сообщение отредактировано: klem4 - 25.10.2005 20:06