Bài 9: Cấu trúc rẽ nhánh

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Eren

Viết chương trình nhập số điện tháng trước và số điện tháng sau. Tính số tiền điện phải trả biết 50kW đầu giá 1000/1kW, 50kW tiếp theo giá 2000/1kW và phần còn lại giá 3000/1kW

Nguyễn Lê Phước Thịnh
15 tháng 11 2019 lúc 22:45

bài này chỉ cần nhập số điện rồi tính thôi nhé bạn

uses crt;
var a,hieu,s,t,s1,s2,s3:longint;
begin
clrscr;
write('nhap so dien:'); readln(a);
if a<=50 then t:=a*1000;
if (a>50) and (a<=100) then
begin
if (a>50) and (a<100) then
begin
hieu:=a-50;
s:=hieu*2000;
t:=50*1000+s;
end;
if a=100 then
begin
s1:=50*1000;
s2:=50*2000;
t:=s1+s2;
end;
end;
if a>100 then
begin
s1:=50*1000;
s2:=50*2000;
hieu:=a-100;
s3:=hieu*3000;
t:=s1+s2+s3;
end;
writeln('so tien dien phai tra la: ',t);
readln;
end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
nguyễn hoàng lê thi
Xem chi tiết
Thảo Linhh
Xem chi tiết
Lê Nguyên Hưng
Xem chi tiết
Ngọc My
Xem chi tiết
The Anh Pham
Xem chi tiết
Hàn Nhật Hạ
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
nguyễn hoàng lê thi
Xem chi tiết
Tiến Văn Nguyễn
Xem chi tiết