//
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: Tính tiền công

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 nhập số giờ làm việc, tính ra tiền công phải trả:

INPUT: Nhập tổng số giờ làm việc.

OUTPUT: In ra số tiền công phải trả.

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 Payroll;
{ Repetitive pay algorithm }
CONST 
    WeekHours = 7 * 24; (* Hours in a week *)
VAR 
    Hours, Rate, Pay: INTEGER;
BEGIN
    Write('Give number of hours and rate ');
    Read(Hours, Rate);
    WHILE Hours >= 0 DO 
        BEGIN
            IF (Hours < 0) OR (Hours > WeekHours) THEN
               Writeln('Error in hours')
            ELSE 
                 BEGIN
                     IF Hours <= 60 THEN
                        IF Hours <= 40 THEN
                           Pay := Hours * Rate
                        ELSE
                           Pay := ROUND(40*Rate + 1.5*Rate*(Hours-40))
                     ELSE
                           Pay := 70 * Rate + 2 * Rate * (Hours - 60);
                     Writeln('The pay is ', Pay);
                 END; 
         Write('Give number of hours and rate ');
         Read(Hours, Rate);
    END;{WHILE}
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ả

Categories

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ê

  • 179,897 lượt xem

pascalteacher.nct@gmail.com


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

%d bloggers like this: