1 tiet lan 1_ki II
Chia sẻ bởi Bùi Thu Hằng |
Ngày 26/04/2019 |
50
Chia sẻ tài liệu: 1 tiet lan 1_ki II thuộc Tin học 11
Nội dung tài liệu:
TRƯỜNG THPT CÁT HẢI KIỂM TRA 45 PHÚT - MÔN TIN HỌC - LỚP 11
LẦN 1 - HỌC KỲ 2 - NĂM HỌC 2011 - 2012
I. TRẮC NGHIỆM (5.0 điểm):
Câu 1: 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à:
A. 10 B. 14 C. 36 D. 64
Câu 2: 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à:
A. 20 B. 25 C. 12 D. 16
Câu 3: 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?
A. c:=a; B. b:=c; C. a:=b; D. a:=c;
Câu 4: 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?
A. Type mang2c = array[1..100, 1..100] of char;
B. Type mang2c = array[1..100][1..100] of char;
C. Type mang = array[1-100, 1-100] of char;
D. Type 2chieu = array[1..100, 1..100] of char;
Câu 5: 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á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;
II. TỰ LUẬN (5.0 điểm):
Câu 1 (1 đ) Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
L, K, Kt, i: byte;
Begin
S1:=‘Thang Ba Tay Nguyen’;
S2:=‘PleiKu’
L:=lenght(S1)+ length(s1);
Insert(S2, S1,7);
K:= Pos(‘b’,S1);
kt:=length(S1);
For i:=1 to length(S2) do S3[i]:=Upcase(S2[i]);
Readln;
End.
Em hãy xác định giá trị của các biến S1, S3, L, K, Kt sau khi thực hiện xong đoạn chương trình trên.
Biến
S1
S3
L
K
Kt
Giá trị
Câu 2 (2 đ): Viết chương trình nhập vào 2 xâu bất kỳ, kiểm tra xem chữ cái cuối cùng trong 2 xâu có giống nhau hay không. In thông báo “trung nhau” hoặc “không trung nhau” ra màn hình.
Câu 3 (2 đ): Viết chương trình nhập vào một mảng các số nguyên N , sau đó in ra màn hình số lượng phần tử có giá trị â
LẦN 1 - HỌC KỲ 2 - NĂM HỌC 2011 - 2012
I. TRẮC NGHIỆM (5.0 điểm):
Câu 1: 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à:
A. 10 B. 14 C. 36 D. 64
Câu 2: 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à:
A. 20 B. 25 C. 12 D. 16
Câu 3: 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?
A. c:=a; B. b:=c; C. a:=b; D. a:=c;
Câu 4: 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?
A. Type mang2c = array[1..100, 1..100] of char;
B. Type mang2c = array[1..100][1..100] of char;
C. Type mang = array[1-100, 1-100] of char;
D. Type 2chieu = array[1..100, 1..100] of char;
Câu 5: 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á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;
II. TỰ LUẬN (5.0 điểm):
Câu 1 (1 đ) Trong ngôn ngữ lập trình Pascal, cho đoạn chương trình sau:
Var S1, S2, S3: String;
L, K, Kt, i: byte;
Begin
S1:=‘Thang Ba Tay Nguyen’;
S2:=‘PleiKu’
L:=lenght(S1)+ length(s1);
Insert(S2, S1,7);
K:= Pos(‘b’,S1);
kt:=length(S1);
For i:=1 to length(S2) do S3[i]:=Upcase(S2[i]);
Readln;
End.
Em hãy xác định giá trị của các biến S1, S3, L, K, Kt sau khi thực hiện xong đoạn chương trình trên.
Biến
S1
S3
L
K
Kt
Giá trị
Câu 2 (2 đ): Viết chương trình nhập vào 2 xâu bất kỳ, kiểm tra xem chữ cái cuối cùng trong 2 xâu có giống nhau hay không. In thông báo “trung nhau” hoặc “không trung nhau” ra màn hình.
Câu 3 (2 đ): Viết chương trình nhập vào một mảng các số nguyên N , sau đó in ra màn hình số lượng phần tử có giá trị â
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...
Người chia sẻ: Bùi Thu Hằng
Dung lượng: |
Lượt tài: 0
Loại file:
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)