ÔN TẬP

ÔN TẬP

By Đoàn Thị Loan

Multiple Choice

Trong ngôn ngữ lập trình Pascal, về mặt cú pháp cách viết các câu lệnh ghép nào sau đây là đúng ?

• Begin :

  A := 1 ;

  B := 5 ;

  End ;

• Begin ;

  A := 1 ;

  B := 5 ;

  End ;

• Begin

  A := 1 ;

  B := 5 ;

  End :

• Begin

  A := 1 ;

  B := 5 ;

  End ;

Multiple Select

Trong ngôn ngữ lập trình Pascal, về mặc cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp For có một lệnh con ?

• For i := 1 to 100 do 

  a := a – 1 ;

• For i := 1 to 100 do; 

  a := a – 1 ;

• For i := 1 to 100 do 

  a := a – 1

• For i := 1 ; to 100 do 

  a := a – 1 ;

Multiple Choice

Trong ngôn ngữ lập trình Pascal, về mặt cú pháp câu lệnh nào sau đây là đúng với cấu trúc lặp While có một lệnh con ?

• While a>5 do

  a := a – 1 ;

• While a>5 do ;

  a := a – 1

• While a>5 do.

  a := a – 1 ;

• While a>5 ; do

  a := a – 1 ;

Multiple Choice

Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau đưa ra màn hình kết quả gì ?

For i := 10 downto 1 do write(i, ‘ ’);

•   1 2 3 4 5 6 7 8 9 10

• 10 9 8 7 6 5 4 3 2 1

•   Đưa ra 10 dấu cách

• Không đưa ra kết quả gì

Multiple Choice

Cho đoạn lệnh sau:

dem=0;

For i:= 1 to N do

if (i mod 3 = 0) then dem:= dem+1;

trong trường hợp N=10 thì dem=?

• 1

• 3

• 0

• 2

Multiple Choice

Cho đoạn lệnh sau:

S:=10;

for i:= 10 downto 3 do

S:=S-1;

sau khi thực hiện đoạn lệnh thì kết quả S=?

• 2

• 3

• 1

• 4

Multiple Choice

Cho đoạn chương trình sau:

X:=5; y:=3;

If x>y then F:=x*x-y Else F:=3*x-y;

Sau khi thực hiện chương trình, giá trị của F là:

• 2

• 12

• 21

• 22

Multiple Choice

Trong ngôn ngữ lập trình Pascal, về mặt cú pháp cách viết các câu lệnh ghép nào sau đây là đúng ?

• Begin :

  A := 1 ;

  B := 5 ;

  End ;

• Begin

  A := 1 ;

  B := 5 ;

  End ;

• Begin

  A := 1 ;

  B := 5 ;

  End :

• Begin

  A := 1 ;

  B := 5 ;

  End.

Multiple Choice

Chọn cấu trúc rẽ nhánh đúng cho tình huống sau:

Nếu điểm TB lớn hơn bằng 8 thì in ra màn hình là đậu.

• IF DiemTB = 8 then Writeln(‘Dau’);

• IF DiemTB >= 8 then Writeln(‘Dau’);

• IF DiemTB > 8 then Writeln(‘Dau’);

• IF DiemTB <= 8 then Writeln(‘Dau’);

Multiple Choice

Trong ngôn ngữ lập trình Pascal, về mặt cú pháp cách viết các câu lệnh ghép nào sau đây là đúng ?

• Begin :

  A := 1 ;

  B := 5 ;

  End ;

• Begin

  A := 1 ;

  B := 5 ;

  End ;

• Begin

  A := 1 ;

  B := 5 ;

  End :

• Begin

  A := 1 ;

  B := 5 ;

  End.

Multiple Choice

Ta có cấu trúc sau: if a mod 5=0 then writeln (‘a chia het cho 5’) else writeln (‘a khong chia het cho 5’); a có thể nhận giá trị nào để điều kiện đúng và thực hiện câu lệnh 1

• 2019
• 22
• những số chia hết cho 5
• Những số không chia hết cho 5

Multiple Choice

Cho biết chương trình sau có mấy lỗi?

Program vd

Var x, y : real;

Begin

Clrscr; x=7; y=9;

if x >=y then writeln(x);

else writeln(y);

end

• 3

• 4

• 5

• 6

Multiple Choice

Cho a:= 5, b:= 8. Hãy tính giá trị của a, b trong trường hợp sau?

If a > b Then

Begin

a:= b-a; b:= a+2;

End

Else a:= b- a;

• a= 3, b=8

• a=5, b=8

• a=3, b=5

• a=5, b=5

Multiple Choice

Cho đoạn chương trình sau:

For i:=1 to 15 do

Begin

If I mod 2 <>0 then write(i+1,’ ‘);

End;

• 1 2 3 4 5 5 6 7 8 9 10 1112 13 14 15

• 2 4 6 8 10 12 14 16

• 1 3 5 7 9 11 13 15

• 2 4 6 8 10 12 14

Multiple Choice

Vòng lặp While – do kết thúc khi nào?

• Khi đủ số vòng lặp

• Khi tìm được Output

• Khi một điều kiện cho trước được thỏa mãn

• Khi biểu thức điều kiện đúng

Multiple Choice

Cho biết chương trình sau có mấy lỗi?

Program vd

Var x, y : real;

Begin

Clrscr; x=7; y=9;

if x >=y then writeln(x);

else writeln(y);

end

• 3

• 4

• 5

• 6

Multiple Choice

Trong khai báo dưới đây bộ nhớ cấp phát cho các biến tổng cộng bao nhiêu byte?

Var x,y,z: integer;

a,b: real;

• 10

• 12

• 14

• 18