Biasanya anda hanya menggunakan CRT saja di dalam pemrograman Pascal, nah sekarang kita mencoba menggunakan DOS.
Ketikkanlah program berikut di bawah ini :
USES Dos, 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 ( 25, 10) ; Write('Jam Sekarang : ', LeadingZero(h), ':', LeadingZero(m), ':', LeadingZero(s), '.', LeadingZero(hund) ) ; UNTIL Keypressed ; END.
Hasilnya yaitu ?
Advertisements
Filed under: Pemrograman Pascal, Pemrograman Pascal