Đây là dạng bài thi học sinh giỏi môn tin học. Mong các thầy cô các anh các chị và các bạn giúp em ạ. Sử dụng ngôn ngữ lập trình turbo pascal hoặc free pascal để giải bài toán >Như đã biết, giá điện không phải có định một mức giá cho mỗi KW tiêu thụ mà nó được tính theo giá bậc thang. Giá bán lẻ điện sinh hoạt hàng tháng được tính theo số KW sử dụng như sau: TT Nhóm đối tượng khách hàng Giá bán điện (đồng/kWh) 1 Bậc 1: Cho kWh từ 0 - 50 1.678 2 Bậc 2: Cho kWh từ 51 - 100 1.734 3 Bậc 3: Cho kWh từ 101 - 200 2.014 4 Bậc 4: Cho kWh từ 201 - 300 2.536 5 Bậc 5: Cho kWh từ 301 - 400 2.834 6 Bậc 6: Cho kWh từ 401 trở lên 2.927 Em hãy viết chương trình nhập vào số KW điện tiêu thụ mỗi tháng trong năm. Tính tổng số tiền phải trả trong năm và cho biết tháng nào tiêu thụ nhiều nhất. YÊU CẦU: Dữ liệu vào: Trên 1 dòng ghi 12 số nguyên dương là số KW sử dụng điện của 12 tháng trong năm. Dữ liệu ra: Dòng 1: Tháng phải trả nhiều tiền nhất. Dòng 2: ghi tổng số tiền phải trả của cả năm. VD: Dữ liệu vào: 125 135 168 200 166 190 210 220 166 104 116 129 Dữ liệu ra Dòng 1: 8 Dòng 2: 3531066
1 câu trả lời
uses crt;
var i,n,max,vt:longint; a:array[1..12]of longint; tong:real;
begin
clrscr;
tong:=0;
for i:=1 to 12 do
begin
write('So kWh cua thang ',i,': ');readln(a[i]);
if (a[i]>=0)and(a[i]>50) then tong:=tong+1.678*50 else tong:=tong+1.678*a[i];
if (a[i]>=51)and(a[i]>100) then tong:=tong+1.734*50 else if a[i]>=51 then tong:=tong+1.734*(a[i]-50);
if (a[i]>=101)and(a[i]>200) then tong:=tong+2.014*100 else if (a[i]>=101) then tong:=tong+2.014*(a[i]-100);
if (a[i]>=201)and(a[i]>300) then tong:=tong+2.536*100 else if (a[i]>=201) then tong:=tong+2.536*(a[i]-200);
if (a[i]>=301)and(a[i]>400) then tong:=tong+2.834*100 else if (a[i]>=301)then tong:=tong+2.834*(a[i]-300);
if a[i]>=401 then tong:=tong+2.927*(a[i]-400);
if a[i]>max then begin max:=a[i]; vt:=i; end;
end;
writeln(vt);
writeln(tong:0:3);
readln
end.
