B1. Hãy liệt kê các lỗi có trong chƣơng trình dƣới đây và sửa lại cho đúng:
Var a,b:= integer;
Const c:=300;
Begin
a:=100;
b:=c/a;
Writeln(b)
End.
B1. Hãy liệt kê các lỗi có trong chƣơng trình dƣới đây và sửa lại cho đúng: Var a,b:= integer; Const c:=300; Begin a:=100; b:=c/a; Writeln(b) End.
By Everleigh
Var a,b:= integer; `->` var a: integer; b: real; (vì b gán kết quả phép chia nên phải là số thực)
Const c:=300; `->` const c=300;
Begin
a:=100;
b:=c/a; (1)
Writeln(b) `->` Writeln(b); (thiếu dấu chấm phẩy)
End. `->` readln; End.
Các lỗi trong bài:
Var a,b:= integer; {Khai báo Var không có lệnh gán. Do đó sau tên biến chỉ có “:” sau kiểu dữ liệu}
Const c:=300; {Chỉ có dấu “=” vì đây là const chứ không phải là khai báo}
Begin
a:=100;
b:=c/a; {Do b khai báo thuộc kiểu integer, không phải real. Mà phép gán b sẽ cho ra kết quả thuộc real}
Writeln(b) {Không có “;” sau câu lệnh}
End.
Sửa lại:
Var a,b : integer;
Const c=300;
Begin
a:=100;
Writeln(‘Gtri B luc nay= ‘,c/a);
End.
Hoặc:
Var a : integer; b:real;
Const c=300;
Begin
a:=100;
b:=c/a;
Writeln(‘Gtri B luc nay= ‘, b);
End.
* Trước “end.” có thể có readln hoặc không cũng không sao nhé! Vì chúng chỉ cho phép dừng kết quả lại!