Question

Tìm lỗi sai và sửa lại cho đúng trong các chương trình sau:

a) Begin

Program vd

Uses crt;

Clrscr;

Writeln('Chao cac ban!')

End.

Readln

b) Var a,b :=integer;

Const c:=3;

Begin

a:=200

b:=a/c;

Writeln(b)

Readln

End.

Answer 1

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.