Diễn đàn ITK36 - ĐH Sư phạm TPHCM

Diễn đàn ITK36 - ĐH Sư phạm TPHCM
Diễn đàn đang nâng cấp ...
 
IndexCalendarTrợ giúpTìm kiếmThành viênNhómĐăng kýĐăng Nhập

Share | 
 

 BÀI GIẢI VÍ DỤ Pascal (bốn bước)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Go down 
Tác giảThông điệp
Admin
Administrator
avatar


Nam
Tổng số bài gửi : 219
Điểm kinh nghiệm : 14511
Danh tiếng : 104
Ngày tham gia : 02/10/2010
Age : 24
Đến từ : Lớp CNTT K36
Tài sản : Ring of The Creator
Tài năng của Admin Danh vọng:219%/1000%
Tài năng:24%/100%


Bài gửiTiê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 (Wink.

Nguồn: cntt0110.forums-free.com
Về Đầu Trang Go down
Xem lý lịch thành viên http://cnttk36.forumotion.net
xuanthanbd
Administrator
avatar


Tổng số bài gửi : 21
Điểm kinh nghiệm : 12099
Danh tiếng : 15
Ngày tham gia : 03/10/2010
Tài năng của xuanthanbd Danh vọng:21%/1000%
Tài năng:%/100%


Bài gửiTiêu đề: Re: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   Thu Nov 18, 2010 1:13 am

Hay quá! Tìm cái này mấy bữa nay. Cảm ơn ku Bí Smile
Chữ Ký của xuanthanbd
_________________
Cuộc sống thật là khó khăn
Về Đầu Trang Go down
Xem lý lịch thành viên
z_Kt_z
Moderator
avatar


Nam
Tổng số bài gửi : 48
Điểm kinh nghiệm : 12416
Danh tiếng : 26
Ngày tham gia : 29/10/2010
Age : 24
Tài sản : Angel of Charm
Tài năng của z_Kt_z Danh vọng:48%/1000%
Tài năng:24%/100%


Bài gửiTiêu đề: Re: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   Fri Nov 19, 2010 10:38 am

uhm, coi z đỡ phải wa bên kia, forum bên kia chậm wa hà. thanks nha.
Chữ Ký của z_Kt_z
_________________
Ngày xửa ngày xưa......Đường Tam Tạng đi Tây Thiên thỉnh kinh rabbit ......đi ngang qua núi Ngũ Hành Sơn...được Bồ Tát mách bảo....tongue :...từ xa Tôn Ngộ Không cất lên tiếng kêu thống thiết vang động núi rừng... cheers : k36:...S...Ư...P...H...Ụ...nghe vậy đường Tăng trả lời rằng Wink ...N...H...Ậ...U...K...H...Ô...N...G...: clown
Về Đầu Trang Go down
Xem lý lịch thành viên
Sponsored content



Tài năng của Sponsored content Danh vọng:%/1000%
Tài năng:%/100%


Bài gửiTiêu đề: Re: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   

Về Đầu Trang Go down

Bài viết mới cùng chuyên mục

Bài viết liên quan

 

BÀI GIẢI VÍ DỤ Pascal (bốn bước)

Xem chủ đề cũ hơn Xem chủ đề mới hơn Về Đầu Trang 
Trang 1 trong tổng số 1 trang

Permissions in this forum:Bạn không có quyền trả lời bài viết
Diễn đàn ITK36 - ĐH Sư phạm TPHCM :: Góc học tập :: Tài liệu học tập-
Chuyển đến