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;

⇒ Sai dấu chấm phẩy trước else

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

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

⇒ Sai dấu gán giá trị đầu cho biến đếm

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

⇒ Sai từ khoá do và to

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

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

⇒ Sai kiểu dữ liệu của giá trị đầu

⇒ Sai dấu gán các giá trị

⇒ 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 của câu lệnh lặp

⇒ x := 5 không trả về giá trị đúng hoặc sai

⇒ 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 = 19 <= 10 ⇒ Điều kiện sai

⇒ Vòng lặp 3 ⇒ a = a - b = 19 - 0.5 = 18.5

+ .....

+ 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('a = ', a : 2 : 0);

readln

end.