Đếm số phần tử của mảng D.. A[i][j] 4: Chương trình sau cho kết quả là gì?. Var a, b : String; Begin Write‘nhap xau ho ten thu nhat: ’; readlna; Write‘nhap xau ho ten thu hai : ’; readln
Trang 1Hä vµ tªn:……….
Líp:……….
KiÓm tra 1 tiÕt M«n: tin häc 11 (Thêi gian lµm bµi 45 phót)
I TRẮC NGHIỆM: Khoanh tròn đáp án đúng
1: Trong ngôn ngữ lập trình Pascal, đoạn chương trình sau thực hiện việc nào trong các việc sau ( A
là mảng số có N phần tử)
S:=0; for i:= 1 to n do s:= s + a[i];
A In ra màn hình mảng A B Tính tổng các phần tử của mảng A
C Đếm số phần tử của mảng D Không thực hiện việc nào trong 3 việc trên 2: Cho khai báo:
Var A: Array[1 4] of Real;
i: Integer ;
Ðể nhập dữ liệu cho A, chọn câu nào :
A For i:=1 to 4 do Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]);
B For i:=1 to 4 do Readln(‘ Nhập A[‘, i, ‘]:’);
C For i:=1 to 4 do Begin Write(‘ Nhập A[‘, i, ‘]:’); Readln(A[i]); End;
D Write(‘ Nhập A:’); Readln(A);
3: Trong ngôn ngữ lập trình Pascal, với khai báo mảng (Var A: array[1 100,1 100] of integer;) thì
việc tham chiếu tới phần tửcủa mảng hai chiều như sau:
A A[i],[j] B A[i,j] C A[i;j] D A[i][j]
4: Chương trình sau cho kết quả là gì ?
Var a, b : String;
Begin
Write(‘nhap xau ho ten thu nhat: ’); readln(a);
Write(‘nhap xau ho ten thu hai : ’); readln(b);
If length(a)> length(b) then write(a)
Else write(b);
Readln
End.
A Xâu có độ dài lớn nhất B Độ dài lớn nhất của hai xâu
C Kí tự cuối cùng của xâu dài hơn D Kết quả khác
5: a:='Truong Truong Dinh'; pos('Truong',a) cho giá trị là:
A 1 B 2 C 6 D 5
6: Cho hai xâu kí tự S1:=’abcd’ và S2:=’ABC’; khi đó S1 + S2 cho kết quả nào ?
A ‘Abcd’ B ‘aabbccdd ‘ C ‘abcdABC’ D ‘ABCabcd’
7: Cho khai báo: Type hocsinh = record
Toan,Van :Real;
end;
Var Lop : array [1 45] of hocsinh;
Lệnh nào dưới đây là đúng khi in ra màn hình điểm toán của học sinh thứ i?
A Writeln(Lop); B Write(Lop[i]); C.Writeln(Lop[i].Toan); D Write(Lop[i].T); 8: Cho f là một biến tệp văn bản Khai báo nào sau đây là đúng ?
A Var f : byte; B Var f : text; C Var : f text; D Var f = text; 9: Cho các thủ tục sau:
{1} WRITE(F,A,B,C); {2} REWRITE(F); {3} CLOSE(F); {4} ASSIGN(F, ’DATA.OUT’);
Chọn thứ tự các thủ tục để GHI tệp:
Trang 2A {4}{2}{3}{1} B {1}{4}{2}{3}
10: Cho biết kết quả xâu Sen sau khi thực hiện đoạn chương trình sau:
St:='Read And Answer '; Sen := ' ';
FOR I:= LENGTH(ST) DOWNTO 1 DO Sen := Sen + UPCASE(ST[i]);
A REWSNA DNA DAER B rewsnA dnA daeR
C Read And Answer D READ AND ANSWER
II TỰ LUẬN
Hãy viết một chương trình thực hiện những công việc sau:
- Nhập vào từ bàn phím một mảng A gồm 3 dòng, 4 cột các số nguyên
- In ra mảng vừa nhập
- Đếm và in ra màn hình số phần tử âm, dương của mảng A