//
you're reading...
Bài tập huấn luyện, Giáo trình Programming Practice: Pascal

Thực hành Pascal cơ bản: Đổi ra giờ, phút, giây

Bấm vào các liên kết dưới đây để xem các trang liên quan:


Mục lục
Đến trang sau
Dự phòng


Ví dụ: Chương trình đổi tổng số giây sang giờ, phút, giây:

INPUT: Nhập tổng số giây.

OUTPUT: In ra số giờ, phút và giây ứng với tổng đã nhập.

Phần mã sẽ được trình bày trong vùng màu xám như dưới đây:


Mẫu chương trình


PROGRAM Doigiophutgiay;
(* Doi ra gio phut va giay *)
VAR
   Tonggiay: INTEGER;
   Sodu: INTEGER;
Sogio: INTEGER;
Sophut: INTEGER;
Sogiay: INTEGER;

BEGIN
    (* Nhap *)
    Write('Nhập vào tổng số giây: ');
    Read(Tonggiay);

    (* Thuc hien chuyen doi *)
    Sogio  := Tonggiay DIV 3600;
    Sodu   := Tonggiay MOD 3600;
    Sophut := Sodu DIV 60;
    Sogiay := Sodu MOD 60;

    (* In ra ket qua *)
    Writeln('Kết quả (giờ:phút:giây) là: ',Sogio:2,':',Sophut,':',Sogiay);
    readln;
END.  


[PAS]


Nguồn tài liệu

Tài liệu: Programming Practice: Pascal.


Trang bài học Pascal cơ bản
Dự phòng
Dự phòng

About pascalteacher

Trang thông tin Toán học và Tin học

Thảo luận

Chưa có phản hồi.

Gửi phản hồi

Mời bạn điền thông tin vào ô dưới đây hoặc kích vào một biểu tượng để đăng nhập:

WordPress.com Logo

Bạn đang bình luận bằng tài khoản WordPress.com Log Out / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Log Out / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Log Out / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Log Out / Thay đổi )

Connecting to %s

Các tác giả

Danh mục

Tháng Mười Hai 2016
M T W T F S S
« Nov   Jan »
 1234
567891011
12131415161718
19202122232425
262728293031  

NCT Computer

Flickr Photos

Silver Fox Vixen Hunting

cold calm

Limenitis reducta - the Southern White Admiral

More Photos

Thống kê

  • 95,355 lượt xem

%d bloggers like this: