Tin học Đồng hồ trong pascal

[dangxuanchuon]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Chạy trong FPC, TP không có thư viện sysutils
Mã:

Program dongho;
Uses crt, sysutils;
var t: string[8];
Begin
clrscr;
t:= timetostr(time);
Write('Bay gio la:');
gotoxy(1,2);
write('nhan phim bat ki de thoat');
repeat
        if t <> timetostr(time) then
                begin
                gotoxy(13,1);
                t:= timetostr(time);
                if t[2] <> ':' then
                write(t[1], t[2], ' gio ', t[4], t[5], ' phut ', t[7], t[8], ' giay!')
                else write(t[1], ' gio ', t[3], t[4], ' phut ', t[6], t[7], ' giay! ')
                end;
        //lam the de con tro chuot khong di chuyen nhieu
until keypressed; //den khi nhan phim bat ky
end.

Kết quả:

(yeah, nó chán thật, mình làm khá rườm rà, tua sang 1:43 cho nhanh.)
Giá trị của bài này cho chia sẻ với mọi người cách lấy thời gian trong FPC
(phân hoá giữa người thông thường với thông thái)
edit: mình mới chỉnh lại lệnh từ :

write(t[1], t[2], ' gio ', t[4], t[5], ' phut ', t[7], t[8], ' giay!')

thành:

                if t[2] <> ':' then
                write(t[1], t[2], ' gio ', t[4], t[5], ' phut ', t[7], t[8], ' giay!')
                else write(t[1], ' gio ', t[3], t[4], ' phut ', t[6], t[7], ' giay! ')

do nếu giữ lại thì nó bị lỗi lúc ban ngày.