Tiêu đề: BÀI GIẢI VÍ DỤ Pascal (bốn bước) Mon Nov 15, 2010 4:33 pm
Bài III.1 Nhập số giờ làm và lương giờ rồi tính số tiền lương tổng cộng. Nếu số giờ làm lớn hơn 40 thì những giờ làm vượt trội được trả gấp 1,5 lần bình thường. Giải 1. Phân tích : Dữ liệu vào là số giờ làm và lương giờ nhập từ từ bàn phím. Sau đó ta kiểm tra xem số giờ làm nhỏ hơn hay lớn hơn 40 và tính số tiền lương tổng cộng theo điều kiện bài toán. Cuối cùng là in số tiền lương tính được ra màn hình.
2. Bảng dữ kiện :
Tên Loại Cách tính Ghi chú heso số thực const hệ số sg số thực nhập từ bàn phím số giờ lg số thực nhập từ bàn phím lương giờ tl số thực tính theo điều kiện bài toán tiền lương
3. Thuật giải : - Bắt đầu - Dùng lệnh if kiểm tra xem số giờ lớn hay nhỏ hơn 40 - Nếu nhỏ hơn hay bằng thì tl :=sg*lg - Nếu lớn hơn thì tl :=40*lg + (sg-40)*lg*heso - In kết quả là giá trị tiền lương tl ra màn hình - Kết thúc.
4. Mã hóa: program tinhtluong; const heso = 1.5; var sg, lg: real; tl : real;
begin write(’Nhap so gio va luong gio: ’); readln(sg, lg);
if sg <= 40 then tl :=sg*lg else tl :=40*lg + (sg-40)*lg*heso;
write(’Tien luong = ’,tl:10:2); readln; end.
5. Ghi chú : Lệnh đứng ngay trước else trong cấu trúc if ... else không có dấu chấm phẩy (.