Bạn Phan dùng ba biến mảng biểu diễn cước phí điện thoại tiền điện và 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 nhập số tiền chi cho ba dịch vụ từng tháng từ bàn phím và tính in ra màn hình tổng tiền trong 1 năm qua?
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.
Trả lời (1)
-
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.
bởi Trần Bảo Nam
02/11/2018
Like (0) Báo cáo sai phạm
Nếu bạn hỏi, bạn chỉ thu về một câu trả lời.
Nhưng khi bạn suy nghĩ trả lời, bạn sẽ thu về gấp bội!
Lưu ý: Các trường hợp cố tình spam câu trả lời hoặc bị báo xấu trên 5 lần sẽ bị khóa tài khoản
Các câu hỏi mới
-
+ Các ước của n
+ Số lượng các ước của n
+ Tổng các ước của n
+ Xét tổng đó có phải là số hoàn hảo?
29/11/2022 | 0 Trả lời
-
Viết chương trình nhập vào chiều, chiều rông hình chữ nhật và nhập vào cạnh của hình vuông. Thông báo ra màn hình diện tích hình nào lớn hơn.
30/11/2022 | 0 Trả lời
-
vViết chương trình nhập 3 số a,b,h hãy biết só lớn nhất trong 3 số đó
07/12/2022 | 0 Trả lời
-
viết chương trình nhập vào hai số a,b .kiểm tra xem a ,b là số âm hay dương,chẳn hay lẻ.kiểm tra xem a có chia hết cho b hay không.kiểm tra xem a,b có chia hết cho 3 hay không
07/12/2022 | 0 Trả lời
-
Tìm input, output và mô tả thuật toán bài sau: xác định một số tự nhiên x bất kì để chứng minh là số chẵn không?
09/12/2022 | 0 Trả lời
-
+ Tính n!
+ Nhập số x từ bàn phím.Tính nx
14/12/2022 | 0 Trả lời
-
viết chương trình giải phương trình bậc nhất ax=b.Với a,b nhập bằng bàn phím Tin
17/12/2022 | 0 Trả lời
-
Cho x và y là 2 độ dài 2 cạnh của một hình chữ nhật. Viết chương trình so sánh 2 giá trị x, y và thông báo nó là hình vuông hay hình chữ nhật thường
18/12/2022 | 0 Trả lời
-
tại sao nguười ta không viết chương trình bằng ngôn ngữ máy?
19/12/2022 | 0 Trả lời
-
cú pháp khai báo biến cho ví dụ khai báo bến trong pascal
20/12/2022 | 0 Trả lời
-
tính quãng đường tào hỏa đi được trong thời gian t vận tốc v
21/12/2022 | 0 Trả lời
-
Em hãy xác định INPUT, OUTPUT và mô tả thuật toán của bài toán nhập vào 2 số nguyên dương a, b và in ra kết quả số a nếu a lớn hơn b và ngược lại in kết quả b. (Ví dụ : nhập 20, 9 in ra 20 ngược lại nhập 9,20 in ra 20).
25/12/2022 | 0 Trả lời
-
Viết chương trình hoàn chỉnh sử dụng câu lệnh điều kiện thực hiện nhập từ bàn phím giá trị của biến nguyên a và kiểm tra nếu a là số lẻ thì tính và in ra màn hình diện tích hình vuông với độ dài cạnh là 2a không thì đi tính chu vi hình vuông với độ dài cạnh là 2a?
Mô tả lại thuật toán giải bài toán trên
28/12/2022 | 0 Trả lời
-
Viết chương trình nhập vào một số nguyên a bất kỳ. Kiểm tra xem số a là số chẵn hay số lẻ. Nếu là số chẵn, tăng giá trị của a thêm 10 đơn vị; Nếu là số lẻ, giảm giá trị của a 10 đơn vị.
30/12/2022 | 0 Trả lời
-
viết công thức tính C=2/3*3/4*4/5....*n/n+1 (n>0)
31/01/2023 | 0 Trả lời
-
Viết chương trình tính tổng: S=1+3+5+...+999
09/02/2023 | 0 Trả lời
-
S=1+1/2^2+1/3^2+...+1/n^2. Trong đó N là một số nguyên được nhập vào từ bàn phím. S là tổng các phân số từ 1 đến n, sau khi tính toán tổng S được xuất ra màn hình.
09/02/2023 | 0 Trả lời
-
Sử dụng câu lệnh lặp để viết chương trình tính tổng 1x2+2x3+3x4+...+n(n+1)
24/02/2023 | 0 Trả lời
-
Viết chương trình tính tổng S=1+2+3+.... đến khi S lớn hơn 250 thì dừng. In ra màn hình giá trị tổng S vừa tính và cho biết giá trị cuối cùng được cộng là bao nhiêu?
05/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số tự nhiên và sắp xếp sau đó in ra màn hình kết quả.
09/03/2023 | 0 Trả lời
-
cho dãy n số nguyên tính tổng các phần tử của dãy và cho biết phần tử nào lớn nhất trong dãy. Hãy viết chương trình bằng pascal?
28/03/2023 | 0 Trả lời
-
Viết chương trình nhập vào 4 số sau đó sắp xếp theo thứ tự từ bé đến lớn?
05/04/2023 | 0 Trả lời
-
S:=1; For i:=1 to 5 do S:=S*i;
Giá trị của biến S bằng bao nhiêu?
A. 120
B. 55
C. 121
D. 151
12/04/2023 | 0 Trả lời
-
Viết chương trình pascal nhập hai số a;b (a>0 ; b>0) xuất ra màn hình các số chính phương từ a-b.
12/04/2023 | 0 Trả lời
-
viết chương trình sử dụng biến mảng để nhập từ bàn phím các phần tử của một dãy số nguyên . độ dài của dãy cũng đc nhập từ bàn phím .in ra màn hình tổng các giá trị là số lẻ
14/04/2023 | 0 Trả lời
