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]
Trang 1Kỳ 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 2 = 0 then m[i]:=i*i else m[i]:=i+i;
End.
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à:
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, 0 rows] of integer;
Số phần tử của mảng table là:
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 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?
004: 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à
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 màn hình giá trị của các phần tử của mảng A;
B Đếm số phần tử của mảng A;
C Hiện lên màn hình giá trị của a[i];
D Nhập giá trị cho các phần tử của 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 2 = 0 then write(a[i]:2);
End.
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
For i:=1 to 10 do
If S[i] mod 2 = 0 then
Tong:= Tong +S[i];
Write(Tong);
Trang 2End.
007: Cho st = ‘abcde’ Kết quả khi gọi thủ tục Delete(st, 2, 3) là:
008: Kết quả của việc thực hiện hàm Copy(‘abcdef’, 3, 2) là: