//
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

Advertisements

About pascalteacher

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

Thảo luận

Không có bình luận

Trả lờ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 Đăng xuất / Thay đổi )

Twitter picture

Bạn đang bình luận bằng tài khoản Twitter Đăng xuất / Thay đổi )

Facebook photo

Bạn đang bình luận bằng tài khoản Facebook Đăng xuất / Thay đổi )

Google+ photo

Bạn đang bình luận bằng tài khoản Google+ Đăng xuất / Thay đổi )

Connecting to %s

Các tác giả

Chuyên mục

Tháng Mười Hai 2016
H B T N S B C
« Th11   Th1 »
 1234
567891011
12131415161718
19202122232425
262728293031  

NCT Computer

Flickr Photos

Thống kê

  • 252,853 lượt xem

pascalteacher.nct@gmail.com


Trang huấn luyện học sinh giỏi Tin học

%d bloggers like this: