thuật toán. chương trình pascal..input&output

C

congchua_doremon_vy@yahoo.com.vn

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Tiền điện tiêu dùng của mỗi hộ dân được tính như sau:

- 100 số đầu tiên, mỗi số phải trả 550 đồng.
- Từ 101-150, mỗi số phải trả 1100 đồng
- Từ 151-200, mỗi số phải trả 1470 đồng
- Từ 201 trở lên mỗi số phải trả 1600 đồng

Số tiền phải trả là tổng số tiền tính được cộng thêm 10% VAT

Biết rằng lượng điện tiêu thụ trong 1 tháng của bạn là A (Kw). Hãy tính số tiền phải trả trong tháng đó.

a) Xác định Input và Output
b) Viết thuật toán để giải bài toán
* c) Viết chương trình trên phần mềm Tubor Pascal
 
L

lamdetien36

congchua_doremon_vy@yahoo.com.vn said:
Tiền điện tiêu dùng của mỗi hộ dân được tính như sau:

- 100 số đầu tiên, mỗi số phải trả 550 đồng.
- Từ 101-150, mỗi số phải trả 1100 đồng
- Từ 151-200, mỗi số phải trả 1470 đồng
- Từ 201 trở lên mỗi số phải trả 1600 đồng

Số tiền phải trả là tổng số tiền tính được cộng thêm 10% VAT

Biết rằng lượng điện tiêu thụ trong 1 tháng của bạn là A (Kw). Hãy tính số tiền phải trả trong tháng đó.

a) Xác định Input và Output
b) Viết thuật toán để giải bài toán
* c) Viết chương trình trên phần mềm Tubor Pascal
Bấm để xem đầy đủ nội dung ...
a)
Input: lượng điện tiêu thụ A (kW)
Output: tiền điện phải trả.

b)
Thuật toán:
Buớc 1: Tính tiền điện (chưa tính VAT):
- Nếu A <= 100, S <-- A * 550.
- Nếu A <= 150, S <-- 100 * 550 + (A - 100) * 1100.
- Nếu A <= 200, S <-- 100 * 550 + 50 * 1100 + (A - 150) * 1470.
- Nếu A > 200, S <-- 100 * 550 + 50 * 1100 + 50 * 1470 + (A - 200) * 1600.
Bước 2: S <-- S * 110 / 100 (tính thêm thuế VAT).
Bước 3: Thông báo giá trị S.
Bước 4: Kết thúc thuật toán.

c)
Mấy đoạn trong dấu {} không có cũng được :)
Mã: 
var
    A: integer;
    S: real;
begin
    write('Nhap Luong Dien Tieu Thu: '); readln(A);
    
    {Buoc 1}
    if A <= 100 then S := A * 550 else
    if A <= 150 then S := 100 * 550 + (A - 100) * 1100 else
    if A <= 200 then S := 100 * 550 + 50 * 1100 + (A - 150) * 1470 else
    if A > 200 then S := 100 * 550 + 50 * 1100 + 50 * 1470 + (A - 200) * 1600;
    
    {Buoc 2}
    S := S * 110 / 100;
    
    {Buoc 3 + 4}
    write('Tien Dien Phai Tra: ', S : 0 : 4);
    readln
end.
 
W

windluffy

lamdetien36 said:
a)
Input: lượng điện tiêu thụ A (kW)
Output: tiền điện phải trả.

b)
Thuật toán:
Buớc 1: Tính tiền điện (chưa tính VAT):
- Nếu A <= 100, S <-- A * 550.
- Nếu A <= 150, S <-- 100 * 550 + (A - 100) * 1100.
- Nếu A <= 200, S <-- 100 * 550 + 50 * 1100 + (A - 150) * 1470.
- Nếu A > 200, S <-- 100 * 550 + 50 * 1100 + 50 * 1470 + (A - 200) * 1600.
Bước 2: S <-- S * 110 / 100 (tính thêm thuế VAT).
Bước 3: Thông báo giá trị S.
Bước 4: Kết thúc thuật toán.

c)
Mấy đoạn trong dấu {} không có cũng được :)
Mã: 
var
    A: integer;
    S: real;
begin
    write('Nhap Luong Dien Tieu Thu: '); readln(A);
    
    {Buoc 1}
    if A <= 100 then S := A * 550 else
    if A <= 150 then S := 100 * 550 + (A - 100) * 1100 else
    if A <= 200 then S := 100 * 550 + 50 * 1100 + (A - 150) * 1470 else
    if A > 200 then S := 100 * 550 + 50 * 1100 + 50 * 1470 + (A - 200) * 1600;
    
    {Buoc 2}
    S := S * 110 / 100;
    
    {Buoc 3 + 4}
    write('Tien Dien Phai Tra: ', S : 0 : 4);
    readln
end.
Bấm để xem đầy đủ nội dung ...
-K cần thiết A> 200 nữa
-Nên đặt thuế VAT là hằng VAT = 1.1;
 
You must log in or register to reply here.
Top Bottom