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

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

[Shults99]

Не, ну, лафа... :molitva:
Ты, наверное, столько уже бабок заработал, что их тебе девать некуда...

"Закрывать графику кто будет ?" - а я знаю ,что графику закрывать надо!.., просто не обратил внимание..
Все-таки ненавижу делать что-то из-под палки. Такая хорошая вещь программинг, но когда сам что-то делаешь идет творчество, а когда по заданию... Плюс дистанционное обучение - информация только "через глаза поступает", а жизненных примеров нету...
Такого не получается :yessss:
Спасибо!