LATIHAN LATIHAN PASCAL

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