Hãy nhập câu hỏi của bạn vào đây, nếu là tài khoản VIP, bạn sẽ được ưu tiên trả lời.
Var a,b:integer;
Const c =3;
Begin
a :=200;
b :=a/c;
write(b);
readln; (ủa readln cái j)
end.
program chuong_trinh thiếu chấm phẩy
Sửa lại: program chuong_trinh;
a)
*Các lỗi sai là:
-Sai thứ tự các lệnh (begin trước, uses crt sau)
-Program vd: thiếu dấu ;
-Writeln('Chao cac ban!'): thiếu dấu ;
-Sai thứ tự các lệnh(end trước readln sau)
-Readln: thiếu ;
*Sửa lại:
Program vd;
Uses crt;
Begin
Clrscr;
Writeln('Chao cac ban!');
Readln;
End.
b)
*Các lỗi sai là:
-Var a,b:=integer; Sai vì có dấu =
-Const c:=3; Sai vì có dấu :
-a:=200: Sai vì thiếu dấu ;
-b:=a/c: Biến b Sai kiểu dữ liệu;
-Writeln(b): Sai vì thiếu dấu ;
-Readln: Sai vì thiếu dấu ;
*Sửa lại:
Var a,b:integer;
Const c=3;
Begin
a:=200;
b:=a+c;
Writeln(b);
Readln;
End.
-Thứ nhất thiếu tên chương trình
- Thứ 2 sai ở var a,b:=byte sửa lại thành a,b: byte;
- Thứ 3 sai ở const c:3; sửa lại thành const c=3;
-Trong pascal thiếu tên ct(vd: program baihoc;) thì ct vẫn chạy ok.
- var thì phải dùng ":" và thiếu ";". Sửa lại: var a,b:byte;
- const thì phải dùng "=". Sửa lại: const c=3;
-trong ct thiếu clrscr; thì ko sai nhưng sẽ rất khó nhìn.
-Sau readln thiếu ";". Sửa lại: readln;
lỗi sai :
dòng 1: biến b phải là kiểu dữ liệu số thực
sai cú pháp khai báo
dòng 2: sai cú pháp khai báo hằng
dòng 4 : thiếu (;)
viết lại chương trình :
Var a : Integer;
b : real ;
Const c = 3;
Begin
a: = 200 ;
b : = a / c ;
Write (b);
Readln;
End.