Часы в турбо паскаль

[Sour1]

Помогите сделать затирание минутной и часовой стрелки, и убрать лишние линии

program clock;
uses Dos,graph,Crt;
var
  H, M, S, Hund : Word;
 x,y,x0,y0:integer;
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, 'X:\BP');
if graphresult <>grOk then
halt(1);
circle(250,250,100);
repeat
x0:=250;
y0:=250;
begin

setCOLOR(blue);
x:=round(100*sin((pi/30)*s));
y:=round(100*cos((pi/30)*s));
line(x+x0,-y+y0,x0,y0);

delay(1000);
setCOLOR(black);
x:=round(100*sin((pi/30)*s));
y:=round(100*cos((pi/30)*s));
line(x+x0,-y+y0,x0,y0);

setCOLOR(red);
x:=round(100*sin((pi/30)*m));
y:=round(100*cos((pi/30)*m));
line(x+x0,-y+y0,x0,y0);

setCOLOR(white);
x:=round(50*sin((pi/6)*H));
y:=round(50*cos((pi/6)*H));
line(x+x0,-y+y0,x0,y0);

 GetTime(H, M, S, Hund);
end;
until keypressed;
   CloseGraph;

end.

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор

[Aleksandr H.]

program clock;
uses Dos,graph,Crt;
var
  H, M, S, Hund : Word;
 x,y,x0,y0:integer;xh,yh,xm,ym,xs,ys:integer;
  grDriver : Integer;
  grMode   : Integer;
  ErrCode  : Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
if graphresult <>grOk then
halt(1);
circle(250,250,100);
x0:=250;
y0:=250;
repeat
GetTime(H, M, S, Hund);

setCOLOR(black);
xm:=round(100*sin((pi/30)*m));
ym:=round(100*cos((pi/30)*m));
line(xm+x0,-ym+y0,x0,y0);
setCOLOR(red);
xm:=round(100*sin((pi/30)*m));
ym:=round(100*cos((pi/30)*m));
line(xm+x0,-ym+y0,x0,y0);

setCOLOR(black);
xh:=round(50*sin((pi/6)*H));
yh:=round(50*cos((pi/6)*H));
line(xh+x0,-yh+y0,x0,y0);
setCOLOR(white);
xh:=round(50*sin((pi/6)*H));
yh:=round(50*cos((pi/6)*H));
line(xh+x0,-yh+y0,x0,y0);

setCOLOR(blue);
xs:=round(100*sin((pi/30)*s));
ys:=round(100*cos((pi/30)*s));
line(xs+x0,-ys+y0,x0,y0);
delay(1000);
setCOLOR(black);
xs:=round(100*sin((pi/30)*s));
ys:=round(100*cos((pi/30)*s));
line(xs+x0,-ys+y0,x0,y0);

until keypressed;

CloseGraph;

end.

[Sour1]

Аа ничего не поменялось
Появляется вторая минутная стрелка

[Аватар]

Затирай все по каждому такту и по новой в соответствии с текущим временем. Это самый простой и кардинальный вариант. Можно и предыдущее положение стрелок затирать цветом фона.

[Serge_Bliznykov]

а если так?

program clock;
uses Dos, graph, Crt;
var
  H, M, S, Hund: Word;
  H0, M0, S0: Word;
  x, y, x0, y0: integer; xh, yh, xm, ym, xs, ys: integer;
  grDriver, grMode, ErrCode : Integer;
begin
  grDriver := Detect;
  InitGraph(grDriver, grMode, '');
  if graphresult <> grOk then halt(1);
  circle(250, 250, 100);
  x0 := 250;
  y0 := 250;
  GetTime(H0, M0, S0, Hund);
  repeat
    GetTime(H, M, S, Hund);

    if M0 <> M then
    begin
      SetColor(black);
      xm := round(100 * sin((pi / 30) * M0));
      ym := round(100 * cos((pi / 30) * M0));
      line(xm + x0, -ym + y0, x0, y0);
      M0 := M;
    end;

    SetColor(red);
    xm := round(100 * sin((pi / 30) * M));
    ym := round(100 * cos((pi / 30) * M));
    line(xm + x0, -ym + y0, x0, y0);

    if H0 <> H then begin
      SetColor(black);
      xh := round(50 * sin((pi / 6) * H0));
      yh := round(50 * cos((pi / 6) * H0));
      line(xh + x0, -yh + y0, x0, y0);
      H0 := H; 
    end;
    SetColor(white);
    xh := round(50 * sin((pi / 6) * H));
    yh := round(50 * cos((pi / 6) * H));
    line(xh + x0, -yh + y0, x0, y0);

    SetColor(blue);
    xs := round(99 * sin((pi / 30) * S));
    ys := round(99 * cos((pi / 30) * S));
    line(xs + x0, -ys + y0, x0, y0);

    delay(1000);

    SetColor(black);
    xs := round(99 * sin((pi / 30) * S));
    ys := round(99 * cos((pi / 30) * S));
    line(xs + x0, -ys + y0, x0, y0);
  until keypressed;

  CloseGraph;

end.