Question

câu 1 phát  hiện lỗi sai và sửa lại 

 a) a:=5;while a<10 a then a:=a+1

b) for i=1 to 10 do write ('ABC'

c) If x>5 then x:=x+1;else x:=x-1

 

Answer 1

a: Bỏ chữ then

b: Thiếu dấu ngoặc và dấu chấm phẩy sau cùng

c: Bỏ dấu ; trước chữ else

Answer 2

Sửa lại như vầy:

a) a:=5;

While a < 10 do

a:=a + 1;

b) for i:=1 to 10 do write('ABC');

c) If x > 5 then x:=x + 1

Else x:=x - 1;

Answer 3

 a) a:=5; while a<10 a then a:=a+1

- Lỗi: nếu là câu lệnh lặp while do nên sửa then thành do; nếu là câu lệnh if...then thì đổi while thành if

- Thiếu ; khi kết thúc lệnh gán

Sửa:

a:=5; while a<10 do a:=a+1; hoặc a:=5; if a<10 do then a:=a+1;

b) for i=1 to 10 do write('ABC'

- Lỗi: 

Sai cấu trúc vòng lặp for..do vì thiếu dấu ':', cấu trúc là for <biến đếm>:=<GT đầu> to <GT cuối> do <câu lệnh>;

Lệnh in thiếu dấu đóng ngoặc

Kết thúc câu lệnh thiếu dấu ''

Sửa: for :i=1 to 10 do write('ABC');

c) If x>5 then x:=x+1; else x:=x-1

Lỗi:

Câu lệnh điều kiện đủ nên không được chứa dấu '' để kết thúc câu lệnh khi đang ở điều kiện dạng thiếu

Thiếu '' khi kết thúc câu lệnh

Sửa: If x>5 then x:=x+1 else x:=x-1;