Câu 1 :

B. If ( a > b) then Max := a; If (b > a) then Max :=b;

Câu 2 :

A. Integer;

Câu 3 :

A. Câu lệnh rẽ nhánh dạng đầy đủ

Câu 4 :

B. 32767

Câu 5 :

C. Writeln(a*a);

Câu 6 :

C. 60

Câu 7:

B. a*a*a - b*b*b

Câu 8 :

B. Tong := a + b;

II Tự Luận

Câu 1 :

a) Dạng thiếu :

if < điều kiện > then < câu lệnh >;

Vd : if a mod 2 = o then writeln('a la so chan');

b) Dạng thiếu :

If < điều kiện > then < câu lệnh 1 > else < câu lệnh 2>;

Vd. if a mod 2 = 0 then writeln('a la so chan') else writeln('a la so le');

Câu 2 :

Program dien_tich;
Uses crt;
Var a, b, S, cv : real;
Begin
Clrscr;
Write('Nhap do dai canh a :');readln(a);
Write('Nhap do dai canh b :');readln(b);
cv := (a+b)*2;
S := a*b;
Writeln('Chu vi hinh chu nhat  la :', cv:8:2);
Writeln('Dien tich hinh chu nhat  la :', S:8:2);
Readln
End.

Câu 1: D.Cả 3 đáp án tren đều đúng

Câu 2: A.Integer

(Vì 0;-1;1;2;3 là các số nguyên, mà số nguyên có kiểu dữ liệu là integer)

Câu 3: A.Câu lệnh rẽ nhánh dạng đủ

Câu 4: B.32767

(Vì phạm vi giá trị của integer từ -32768 đến 32767)

Câu 5: C. Writeln(a*a);

(Xuất giá trị của biến không được để trong cặp dấu nháy đơn và a^2 được viết là a*a)

Câu 6:C.60

(Vì (5+6)*(5+6)=121>100 nên thực hiện câu lệnh else)

Câu 7: B.a*a*a-b*b*b

Câu 8: B.Tong:=a+b;

II/Tự luận:

Câu 1:

Cú pháp

*Câu điều kiện dạng thiếu

+Cú pháp:

    If<điều kiện> then <câu lệnh>;

+Hoạt động:Chương trình kiểm tra điều kiện, nếu điều kiện thỏa mản, chương trình sẽ thực hiện câu lệnh sau từ khóa then, ngược lại, câu lệnh sẽ bị bỏ qua.

Vd: If a>b then dem:=dem+1;

*Câu điều kiện dạng đủ

 +Cú pháp:

      If <điều kiện> then <câu lệnh 1> else <câu lệnh 2>;

+Hoạt động:Chương trình sẽ kiểm tra điều kiện, nếu điều kiện thỏa mản, chương trình sẽ thực hiện câu lệnh 1 sau từ khóa then, ngược lại, sẽ thực hiện câu lệnh 2.

Vd:If x=2 then b:=b+x else a:=a+x;

Câu 2: 

Program baitap;

Uses crt;

Var a.b:real;

Begin

Clrscr;

Write('Nhap chieu dai va chieu rong:');

Readln(a,b);

Writeln('Chu vi hinh chu nhat:',(a+b)*2);

Writeln('Dien tich hinh chu nhat:',a*b);

Readln

End.