kỳ thi kiểm tra 15 môn thi tin hoc 11 001 trong ngôn ngữ lập trình pascal cho đoạn chương trình sau var m array2 11 of integer i byte begin for i 2 to 11 do if i mod 2 0 then mi ii else m

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

Kỳ thi: KIỂM TRA 15

Môn thi: TIN HOC 11

<b>001:</b>

Trong ngơn ngữ lập trình Pascal, cho đoạn chương trình sau:
<b>Var m: array[2..11] of Integer;</b>

<b>i:byte;</b>
<b>begin</b>

<b>for i:=2 to 11 do</b>

<b>if i mod 2 = 0 then m[i]:=i*i else m[i]:=i+i;</b>
<b>End.</b>

Sau khi thực hiện xong chương trình trên, giá trị của phần tử thứ 5 của mảng m sẽ là:

<b>A. </b>

10

<b>B. </b>

14

<b>C. </b>

36

<b>D. </b>

64

<b>002:</b>

Trong ngôn ngữ lập trình Pascal, Cho đoạn khai báo sau:
<b>Const</b> <b>columns = 3;</b>

<b>rows = 4;</b>

<b>Var</b> <b>table: array[0..columns+1, 0..rows] of integer;</b>
Số phần tử của mảng table là:

<b>A. </b>

20

<b>B. </b>

25

<b>C. </b>

12

<b>D. </b>

16

<b>003:</b>

Trong ngơn ngữ lập trình Pascal, Cho đoạn khai báo sau:
<b>Var a, b: array[1..100] of Char;</b>

<b> c: array[1..50] of Char;</b>

Trong phần thân của chương trình có đoạn khai báo trên thì câu lệnh gán nào sau đây là đúng?

<b>A. </b>

c:=a;

<b>B. </b>

b:=c;

<b>C. </b>

a:=b;

<b>D. </b>

a:=c;

<b>004:</b>

<i> Trong ngơn ngữ lập trình Pascal, Giả sử đã khai báo biến mảng và các biến khác, đoạn chương trình sau đây làm gì (với a là</i>
<i>mảng gồm n phần tử)?</i>

<b>For i:=1 to n do</b>
<b>Begin</b>

<b>Write('a[',i,']='); Readln(a[i]);</b>
<b>End;</b>

<b>A. </b>

Hiện lên màn hình giá trị của các phần tử của mảng A;

<b>B. </b>

Đếm số phần tử của mảng A;

<b>C. </b>

Hiện lên màn hình giá trị của a[i];

<b>D. </b>

Nhập giá trị cho các phần tử của mảng A;

<b>005: Cho đoạn chương trình:</b>

Var a:array[1..10] of integer;

i: byte;

Begin

For i:=1 to 10 do

a[i]:= i;

For i:=1 to 10 do

If a[i] mod 2 = 0 then write(a[i]:2);

End.

<b>A. </b>

2 4 6 8 10

<b>B. 1 3 5 7 9</b>

<b>C. 10 8 6 4 2 0</b>

<b>D. 1 2 3 4 5 6 7 8 9 10</b>

<b>006: Cho đoạn chương trình:</b>

Var S: array[1..10] of integer;

i, Tong: integer;

Begin

For i:=1 to 10 do

S[i]:=I;

Tong:=0

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

Readln;

End.

<b>A. </b>

40

<b>B. 30</b>

<b>C. 50</b>

<b>D. 60</b>

<b>007: Cho st = ‘abcde’. Kết quả khi gọi thủ tục Delete(st, 2, 3) là:</b>

<b>A. </b>

st = ‘ab’

<b>B. st = ‘bc’</b>

<b>C. st = ‘ae’</b>

<b>D. st = ‘ac’</b>

<b>008: Kết quả của việc thực hiện hàm Copy(‘abcdef’, 3, 2) là:</b>

</div>

<!--links-->