Câu 21:

Phân tích:

biến "a" `->` có kiểu dữ liệu integer `->` Số nguyên

biến "ht" `->` có kiểu dữ liệu string `->` xâu kí tự

-----------------------

Phép gán phù hợp:

a:=10;

ht:='truongTHCS';

Câu 22:

Nếu `->` Đây cần viết câu lệnh điều kiện

x>y `->` in giá trị x `->` nếu không thì in gá trị y

-----------------

If x>y then write (x) else write (y);

Câu 23:

a ban đầu = 3

b ban đầu = 5

For i:=1 to 3 do a:=a+2; `->` câu lệnh a:=a+2; thực hiện 3 lần (3-1+1=3) mỗi lần tăng lên 2

`->` a lúc này có giá trị là: 9

b:=a-b; `->` a-b ⇔ 9-5=4

`->` Kết quả cuối cùng là a=9; b=4;

In ra màn hình như sau:        9 ; 4

Câu 24:

Cú pháp: Var <tên mảng>: array[<chỉ số đầu>..<chỉ số cuối>] of <kiểu phần tử>;

----------------------

Tên mảng: M

Chỉ số đầu: 1

Chỉ số cuối: 50

Kiểu phần tử: Real

Câu 25:

"không quá 45 bạn" `->` 45 phần tử

chiều cao `->` Phải là số thực

-----------------------------

Var CHIEUCAO: array[1..45] of real;

Câu 21 :

- Integer : Kiểu số nguyên

⇒ a := 3;

- String : Kiểu xâu kí tự

⇒ ht := 'abx';

Câu 22 :

- Điều kiện : x > y

- Câu lệnh 1 : In giá trị x

- Câu lệnh 2 : In giá trị y

⇒ If x > y then writeln(x) else writeln(y);

Câu 23 :

- a := 3; b := 5;

⇒ Giá trị ban đầu a = 3 và b = 5

- For i := 1 to 5 do a := a + 2;

⇒ Giá trị i chạy từ 1 đến 5

⇒ Thực hiện lệnh a := a + 2 qua mỗi vòng lặp

+ i = 1 ⇒ a = a + 2 =   3 + 2 =   5

+ i = 2 ⇒ a = a + 2 =   5 + 2 =   7

+ i = 3 ⇒ a = a + 2 =   7 + 2 =   9

+ i = 4 ⇒ a = a + 2 =   9 + 2 = 11

+ i = 5 ⇒ a = a + 2 = 11 + 2 = 13

- b := a + b

⇒ b = 13 + 5 = 18

⇒ Kết quả : 13;18

⇒ Giá trị a = 13 và b = 18

Câu 24 :

- Tên mảng : M

- Chỉ số đầu : 1

- Chỉ số cuối : 50

- Kiểu dữ liệu : Real

Câu 25 :

- Lớp không quá 45 bạn

⇒ Khai báo mảng không quá 45 phần tử

- Chiều cao theo đơn vị mét là kiểu dữ liệu thực

⇒ Kiểu dữ liệu : Real

- Tên mảng : CHIEUCAO

⇒ Var CHIEUCAO : array [1 .. 45] of real;