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

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

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: array[2 11] of Integer;

i:byte; begin

for i:=2 to 11 do

if i mod = then m[i]:=i*i else m[i]:=i+i; End.

Sau thực xong chương trình trên, giá trị phần tử thứ mảng m là:

A 10 B 14 C 36 D 64

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

rows = 4;

Var table: array[0 columns+1, rows] of integer; Số phần tử mảng table là:

A 20 B 25 C 12 D 16

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

c: array[1 50] of Char;

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

A c:=a; B b:=c; C a:=b; D a:=c;

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

For i:=1 to n do Begin

Write('a[',i,']='); Readln(a[i]); End;

A Hiện lên hình giá trị phần tử mảng A; B Đếm số phần tử mảng A;

C Hiện lên hình giá trị a[i];

D Nhập giá trị cho phần tử mảng A; 005: Cho đoạn chương trình:

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 = then write(a[i]:2); End.

A 2 10 B 9 C 10 0 D 10

006: Cho đoạn chương trình: Var S: array[1 10] of integer; i, Tong: integer;

Begin

For i:=1 to 10 do S[i]:=I;

Tong:=0

Readln; End.

A 40 B 30 C 50 D 60

007: Cho st = ‘abcde’ Kết gọi thủ tục Delete(st, 2, 3) là:

A st = ‘ab’ B st = ‘bc’ C st = ‘ae’ D st = ‘ac’

008: Kết việc thực hàm Copy(‘abcdef’, 3, 2) là: