Bài 1:

a) lỗi sai: than a:=b; else m:=n;

`=>` sau a:=b không có ;

sửa: if x>5 than a:=b else m:=n;

b) Cấu trúc: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

lỗi sai: vị trí của to, do bị sai

`=>` sửa: đổi lại chỗ của to và do

c) Cấu trúc: For <biến đếm>:=<giá trị đầu> to <giá trị cuối> do <câu lệnh>;

lỗi sai: phép gán a : 4.5 thiếu =

                           a=a+2 thiếu :

`=>` sửa: thêm = vào a : 4.5

                         : vào a = a+ 2

d) Cấu trúc: while <điều kiện> do <câu lệnh>;

lỗi sai: sau while là phép gán cần sửa thành điều kiện

`=>` sửa: while x = 5

Bài 2:

a)

Thực hiện 20 lần lặp
Giá trị của a:=10

b)

Bạn tham khảo code:

uses crt;
var a, b: integer;
begin
clrscr;
a:=20;
b:=0.5;
while a>10 do a:=a-b;
write('Gia tri cua a la: ', a);
readln;
end.

Câu 1 :

a) If x> 5 then a:= 5; else m := n;

⇒ Dư chấm phẩy trước else

⇒ Sửa :  If x > 5 then a := 5 else m := n;

b) For i = 10 do 5 to x := x + 11

⇒ Thiếu chấm phẩy cuối lệnh

⇒ Sai dấu gán i = 10

⇒ Giá trị đầu > Giá trị cuối

⇒ Sai vị trí từ khoá do và to

⇒ Sửa :  For i := 5 to 10 do x := x + 11;

c) For a : 4.5 to 10 do a = a + 2;

⇒ Sai dấu gán a : 4.5

⇒ Sai kiểu dữ liệu biến đếm 4.5

⇒ Sai dấu gán a = a + 2

⇒ Sửa :  For a := 4 to 10 do a := a + 2;

d) x := 5; While x := 5 do x := x + 5;

⇒ Sai điều kiện x := 5

⇒ Sửa :  x := 5; While x = 5 do x := x + 5;

Câu 2 :

a)

- Giá trị ban đầu biến a = 20, b = 0.5

+ a = 20 <= 10 ⇒ Điều kiện sai

⇒ Vòng lặp 1 ⇒ a = a - b = 20 - 0.5 = 19.5

+ a = 19.5 <= 10 ⇒ Điều kiện sai

⇒ Vòng lặp 2 ⇒ a = a - b = 19.5 - 0.5 = 19

+ .....

+ a = 10.5 <= 10 ⇒ Điều kiện sai

⇒ Vòng lặp 20 ⇒ a = a - b = 10.5 - 0.5 = 10

+ a = 10 <= 10 ⇒ Điều kiện đúng ⇒ Kết thúc vòng lặp

⇒ Thuật toán trên có 20 vòng lặp 

⇒ Giá trị biến a sau khi kết thúc thuật toán là 10

b)

uses crt;

var a, b : real;

begin

clrscr;

a := 20; b := 0.5;

while a > 10 do

a := a - b;

writeln('Gia tri a = ', a : 2 : 0);

readln

end.