Diễn đàn ITK36 - ĐH Sư phạm TPHCM
Bạn có muốn phản ứng với tin nhắn này? Vui lòng đăng ký diễn đàn trong một vài cú nhấp chuột hoặc đăng nhập để tiếp tục.
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 ...
 
Trang ChínhTìm kiếmLatest imagesĐă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
Admin


Nam
Tổng số bài gửi : 219
Điểm kinh nghiệm : 27131
Danh tiếng : 104
Ngày tham gia : 02/10/2010
Age : 31
Đế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:31%/100%


BÀI GIẢI VÍ DỤ Pascal (bốn bước) _
Bài gửiTiêu đề: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   BÀI GIẢI VÍ DỤ Pascal (bốn bước) I_icon_minitimeMon 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
https://cnttk36.forumvi.com
xuanthanbd
Administrator
xuanthanbd


Tổng số bài gửi : 21
Điểm kinh nghiệm : 24719
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 GIẢI VÍ DỤ Pascal (bốn bước) _
Bài gửiTiêu đề: Re: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   BÀI GIẢI VÍ DỤ Pascal (bốn bước) I_icon_minitimeThu 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
Về Đầu Trang Go down
z_Kt_z
Moderator
z_Kt_z


Nam
Tổng số bài gửi : 48
Điểm kinh nghiệm : 25036
Danh tiếng : 26
Ngày tham gia : 29/10/2010
Age : 31
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:31%/100%


BÀI GIẢI VÍ DỤ Pascal (bốn bước) _
Bài gửiTiêu đề: Re: BÀI GIẢI VÍ DỤ Pascal (bốn bước)   BÀI GIẢI VÍ DỤ Pascal (bốn bước) I_icon_minitimeFri 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.
Về Đầu Trang Go down
Sponsored content



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


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

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

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

Bài viết liên quan


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