Đăng nhập để hỏi chi tiết
Hãy luôn nhớ cảm ơn và vote 5*
nếu câu trả lời hữu ích nhé!
TRẢ LỜI
- bạn phải gán t=0 trước khi dùng lệnh điều kiện
- dòng 9,10 phải bỏ dấu ; ở cuối đi
- dòng 12 bạn để thế thì sẽ không in được kq của t ra màn hình
SỬA:
- thêm t:=0; và sau readln(n);
- bỏ ; ở dòng 9,10 đi
- sửa lại dòng 12 thành: writeln('Tien dien ban phai tra=',t);
Hãy giúp mọi người biết câu trả lời này thế nào?
51 vote
Xem thêm:
Đây mới là đoạn chương trình đúng nhé:
if n <= 50 then t = n*1000
else if n <= 100 then t=50*1000+(n-50)*1200
else t:=................
Dòng 12 sai ngữ nghĩa.
Sửa lại: writeln('tien ban phai tra la t=');
Lưu ý: trước else không có dấu chấm phẩy (;) nên chương trình sẽ báo lỗi nếu bạn viết chấm phẩy trước else.
Và sau "begin clrscr" phải gán t:=0;
Hãy giúp mọi người biết câu trả lời này thế nào?
52 vote
Cho em vào nhóm được không ạ ?
bạn chưa đủ đk nh
Oki
Bạn muốn hỏi điều gì?
Đặt câu hỏiTham Gia Group Dành Cho 2K11 Chia Sẻ, Trao Đổi Tài Liệu Miễn Phí
Run
O Debug
I Stop
E Share H Save
{} Beautify
Language Pascal
main.pas
program bai4 ;
Uses crt;
var n,t:longint ;
4 begin
1.
6 clrscr
7 writeln('nhap so dien');
Readln(n);
if n <-50 then t-n*1000 ;
ELSE if n <=100 then t:=50*1000+(n-50) *1200 ;
ELSE t:= 50100+50*1200+(n-100)*1500 ;
wri ...
Bảng tin
Bạn muốn hỏi điều gì?
Đặt câu hỏi
Cơ quan chủ quản: Công ty Cổ phần Công nghệ Giáo dục Thành Phát
Tải ứng dụng
Inbox: m.me/hoidap247online
Trụ sở: Tầng 7, Tòa Intracom, số 82 Dịch Vọng Hậu, Cầu Giấy, Hà Nội.
Giấy phép thiết lập mạng xã hội trên mạng số 331/GP-BTTTT do Bộ Thông tin và Truyền thông.
5570
4101
3459
Bổ sung ; dòng 12 sai lỗi ngữ nghĩa nhé !
5570
4101
3459
Dòng 9-10 : sau else không có chấm phẩy
5570
4101
3459
Dòng 9-10-11 dùng 2 else