Question

[Trịnh Lê]

Bạn Phan dùng ba biến mảng, lần lượt biểu diễn cước phí điện thoại, điện, dịch vụ internet của gia đình trong 12 tháng của năm vừa qua. hãy giúp Phan viết chương trình Pascal thực hiện:

a/ Nhập số tiền chi cho ba dịch vụ từng tháng từ bàn phím.

b/ Tính và in ra màn hình tổng số tiền mà gia đình Phan phải trả cho các dịch vụ này trong năm vừa qua.

c/ Hãy cho biết dịch vụ nào chi nhiều nhất.

d/ Cho biết trung bình mỗi tháng gia đình Phan phải trả bao nhiêu tiền cho các dịch vụ nói trên.

Answer 1

[Phạm Thanh Tường]

Program phi_dichvu;

const n = 12;

Var a, b, c: array[1..n] of integer;

i, tong1, tong2, tong3, tong, max, k: integer;

begin

{a. Nhập cước phí điện thoại, điện tiêu dùng và Internet(đừng ghi nhé, chỉ là để làm dấu chỗ làm thôi)}

for i:=1 to n do

begin

writeln('Nhap cac khoan chi dich vu thang thu ', i);

write('Tien dien thoai: '); readln(a[i]);

write('Tien dien tieu dung: '); readln(b[i]);

write('Tien Internet: '); readln(c[i]);

end;

writeln;

{b. Tính tổng số tiền phải trả trong năm}

tong1:=0; tong2:=0; tong3:=0;

for i:=1 to n do

begin tong1:=tong1+a[i];

tong2:=tong2+b[i];

tong3:=tong3+c[i];

end;

tong:=tong1+tong2+tong3;

writeln('Tong so tien chi dinh ki trong nam qua: ', tong);

writeln:

{c.tìm dịch vụ có tổng chi cao nhất}

max:=tong1; k:=1;

if max<tong2 then k:=2;

if max< tong3 then k:=3;

if k=1 then writeln('Tiền chi cho điện thoại cao nhất.')

else if k=2 then writeln ('Tiền chi cho điện cao nhất.')

else writeln('Tien chi cho Internet cao nhat.');

writeln;

{d. Tính trung bình khoản chi dịch vụ mỗi tháng}

writeln('Chi dich vu trung binh hang thang la: ', tong div n);

readln;

end.