Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
1475
1619
Bạn thử bấm vào lỗi rồi nhấn enter đi ạ xem con trỏ nó hiển ở đâu thì là nó bị lỗi ở trước con trỏ đó ạ
nếu nằm ở đầu dòng thì có nghĩa là bị lỗi ở cuối dòng phía trên ạ
Theo mình hình như bạn sai k phải là longint mà là real nha bạn
Hãy giúp mọi người biết câu trả lời này thế nào?
`*` $\texttt{Quy cách ra: }$
`*` Đối với kết quả thực:
: <độ rộng> : <số chữ số thập phân>
`*` Đối với các kết quả khác:
: <độ rộng>
`" "`
`*` a : 1 : 0, b : 1 : 0, c : 1 : 0 là quy cách đối với kết quả thực nhưng a, b, c được khai báo kiểu nguyên
`" "`
`*` $\texttt{Chương trình mới: }$
`* Pascal:`
`" "`
program tinhtiendien;
uses crt;
var cu, moi, a, b, c, d, tieuthu: longint;
begin
clrscr;
write('Nhap chi so cu: ');
readln(cu);
write('Nhap chi so moi: ');
readln(moi);
tieuthu := moi - cu;
if tieuthu = 0 then
writeln('Khong phai tra tien');
a := tieuthu * 10000;
b := 49 * 10000 + (tieuthu - 49) * 12000;
c := 49 * 10000 + 50 * 12000 + (tieuthu - 99) * 15000;
d := 49 * 10000 + 50 * 12000 + 100 * 15000 + (tieuthu - 199) * 16000;
writeln('Chi so dien tieu thu: ',tieuthu);
if (tieuthu > 0) and (tieuthu < 50) then
writeln('Tien dien thang nay la: ', a, ' dong');
if (tieuthu >= 50) and (tieuthu < 100) then
writeln('Tien dien thang nay la: ', b, ' dong');
if (tieuthu >= 100) and (tieuthu < 200) then
writeln('Tien dien thang nay la: ', c, ' dong');
if (tieuthu >= 200) then
writeln('Tien dien thang nay la: ',d,' dong');
readln;
end.
Hãy giúp mọi người biết câu trả lời này thế nào?
Bảng tin
0
5
0
mình làm rồi, nó hiện con trỏ ở chỗ a:1:0 mà mik ko biết sửa ntn longint thì nó ko có lỗi
1475
5874
1619
bạn thử sửa lại thành a:2:4 xem hay là sai cả mấy cái b:1:0 và c k vậy bạn