Часы Опции

[Pascal]

Подскажите, как сделать часы на Паскале, лучше со стрелками. Очень надо!

[Артемий]

немного подделал по твоему наброску..Если не очень красиво, без обид.

uses crt;
var  i,k,m,d: integer;
f: boolean;
c: char;
dat: record
h,m,s: Integer;
end;
label 10,11;
begin
 clrscr;
 writeln('Press 2 to prepare the alarm clock!');
 readln(d);
 case d of
 2: begin goto 10 end;
 end;
11:  for i:=0 to 23 do
  begin
   for k:=0 to 59 do
    begin
     for m:=0 to 59 do
       begin
       if not (2 <> d) then begin
	if (i=Dat.h) and (k=Dat.m) and (m=Dat.s) then begin
         gotoxy (11,11);
	 writeln('Stand up!');
         f:=true;
	 break;
	end;
       end;
       gotoxy (11,11);
       delay (50000);
       delay (50000);
       delay (50000);
       write(i,' з б®ў : ',k,' ¬Ё­гв : ',m,' ᥪ㭤');
      end;
  if f then break;
    end;
  if f then break; goto 10
   end;
   writeln('Do you want to exit? (y/n)');
   readln( c);
   case c of
   'y': begin exit; end;
   'n': begin writeln; end;
   end;
10: writeln('Put your settings: ');
    readln(Dat.h,Dat.m,Dat.s);
    goto 11;

Сообщение отредактировано: Артемий2 - 14.03.2007 21:28