הנה הקוד, ואגב הוספתי רק 2 שורות למה שיש ב HELP
אני חושב שאתם מסוגלים להתמודד עם זה, חוץ מזה לגבי
ה- DELAY בחיים אל תשתמשו בו כטיימר או בתור שעון
כי בכל מחשב זה שונה... uses Windos, Crt;var h, m, s, hund : Word; function LeadingZero(w : Word) : String; var s : String; begin Str(w:0,s); if Length(s) = 1 then s := '0' + s; LeadingZero := s; end; begin Clrscr; Repeat GetTime(h,m,s,hund); Gotoxy(1,1); Writeln('Time: ',LeadingZero(h),':', LeadingZero(m),':',LeadingZero(s), '.',LeadingZero(hund)); Until KeyPressed; end.
|