Tham khảo

*Dạng thiếu:

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

VD: if a>b then write(a);

HĐ: Nếu điều kiện đúng thì thực hiện câu lệnh, điều kiện sai thì kết thúc.

*Dạng đủ:

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

VD: if a>b then write(a) else write(b);

Dạng đủ:

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

else <câu lệnh 2>;

Cú pháp:

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

cú pháp: if <điều kiện> then <câu lệnh>;

- Cấu trúc:

IF <Điều kiện> THEN<Câu lệnh>;

- Sơ đồ khối:

Cú pháp:

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

Câu 2: 

-Bước 1: s←0; i←1;

-Bước 2: s←s+i;

-Bước 3: i←i+1;

-Bước 4: Nếu i<=100 thì quay lại bước 2

-Bước 5: Xuất s

-Bước 6: Kết thúc

Câu 3:

Dạng thiếu: if <điều kiện> then <câu lệnh>;

Dạng đủ: if <điều kiện> then <câu lệnh> 

else <câu lệnh>;

Câu 4: 

uses crt;

var m,n:integer;

begin

clrscr;

write('Nhap m='); readln(m);

write('Nhap n='); readln(n);

if (m mod 2=0) and (n mod 2=0) then writeln('Ca hai cung la so chan')

else if (m mod 2<>0) and (n mod 2<>0) then writeln('Ca hai cung la so le')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so chan')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so chan')

else if (m mod 2=0) and (n mod 2<>0) then writeln('Co mot so la so le')

else if (m mod 2<>0) and (n mod 2=0) then writeln('Co mot so la so le');

readln;

end.

Câu 5: 

uses crt;

var a,b,c:real;

begin

clrscr;

repeat

write('Nhap a='); readln(a);

write('Nhap b='); readln(b);

write('Nhap c='); readln(c);

until (a>0) and (b>0) and (c>0) and (a+b>c) and (a+c>b) and (b+c>a);

if (a=b) and (a<>c) and (b<>c) then writeln('Tam giac can')

else if (b=c) and (a<>b) and (a<>c) then writeln('Tam giac can')

else if (c=a) and (c<>b) and (a<>b) then writeln('Tam giac can')

else if (a=b) and (b=c) then writeln('Tam giac deu')

else writeln('Day khong phai la tam giac deu hay tam giac can');

readln;

end.

Đáp án B

Sao lại kiểm tra 15 phút z =))

Câu 1: Cú pháp lệnh của điều kiện dạng thiếu là :

A. If <Câu lệnh>; then <Điều kiện >

B. If <Điều kiện> then <Câu lệnh >;

C. If < Điều kiện 1> then <Điều kiện 2>

D. If < Câu lệnh 1>; then <Câu lệnh 2>;

Câu 2: Khai báo biến nào sau đây là sai:

A. Var a: real;

B. Var a,b: real;

C. Var a b: real;

D. Var a, b, c: real;

Câu 3: Cho a:= 2; b:= 3; Kết quả sau khi thực hiện câu lệnh dưới đây là: if a=b then writeln(‘a=b’) else writeln(‘a<>b’);

A. a>b

B. a=b

C. a<b

D. a<>b

Câu 4: Cách khai báo hằng nào sau đây là đúng:

A. Const pi:=3,14 real;

B. Const pi: 3,14;

C. Const pi=3,14 real;

D. Const pi=3.14;

Câu 5: Đâu là từ khóa trong ngôn ngữ lập trình Pascal?

A. Uses;

B. Hinh_tron;

C. End;

D. A và C.

Câu 6: Trong các tên sau đây, tên nào là hợp lệ trong ngôn ngữ Pascal?

A. Lop 8A;

B. Tbc;

C. Begin

D. 8B.

Câu 7: Kết quảcủa phép toán 45 div 2 mod 3 + 1 là bao nhiêu?

A. 2.

B. 7;

C. 5;

D. 3;

Câu 8: Trong ngôn ngữ lập trình Pascal, câu lệnh khai báo nào sau đây đúng?

A. var a, b : integer;

B. var x = real;

C. const x := 5 ;

D. var thong bao : string.

Câu 9: Trong ngôn ngữ lập trình Pasal, câu lệnh gán nào sau đây đúng?

A. x := real;

B. y = a +b;

C. z := 3;

D. i = 4.

Câu 10: Xét chương trình sau:

Var x: integer;

Begin

x:=1;

y:= 5;

Writeln(x+y);

Readln;

End.

Kết quả của chương trình trên là:

A. 1

B. 5

C.6

D. Tất cả đều sai.