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

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

[volvo]

Shults99, я не понял, "тебе шашечки, или ехать?" (С) Задача, которая стоит перед тобой, какова? Именно использовать просто так GetActivePage/SetActivePage? Зачем они нужны здесь? Искусство ради искусства?

Понимаешь, дело в том, что у каждого метода есть своя область использования. Никто, например, для того, чтобы найти наименьшее из 2-х чисел, не применяет алгоритм быстрой сортировки, чтобы потом с гордостью сказать, что ПЕРВОЕ из чисел минимально. Это просто глупо.

Точно так же и твой случай.

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

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