Viết chương trình tiền điện như sau:
– Nhập chỉ số KW cũ và mới
– Tính số KW tiêu thụ mỗi tháng
– Định mức sử dụng điện mỗi tháng là 100kw
– Giá điện là 500 đồng nếu sử dụng trong định mức, còn vượt định mức thì có giá là 1000 đồng.
– Tính tổng tiền điện phải trả mỗi tháng.
program tiendien;
uses crt;
var cu,moi,dien:integer;
tien:longint;
begin
write(‘Nhap chi so cu: ‘); readln(cu);
writeln(‘Luu y: Chi so moi phai lon hon chi so cu.’);
write(‘Nhap chi so moi: ‘); readln(moi);
dien:=moi-cu;
writeln(‘So KW tieu thu trong thang la: ‘,dien);
if dien<=100 then tien:=dien*500 else tien:=dien*1000;
write(‘Tien dien phai tra trong thang la: ‘,tien);
readln
end.
nếu sai thì mong bạn thông cảm