Var <Tên biến xâu>= String[độ dài lớn nhất của xâu]; Câu 32: Khai báo biến tệp văn bản trong ngôn ngữ lập trình Pascal.. A..[r]
(1)së gd & ®t nghƯ an
Trởng DTNT Quỷ ChẪu Cờng hoẾ x· hời chũ nghịa việt namườc lập - Tỳ - HỈnh phục kiểm tra HồC kỷ – LợP 11 a2
Hä tên:
M : 001 Cõu 1: Cho đoạn lệnh sau
Gtri:=A[1]; For i:=2 To n Do
If A[i]<Gtri Then Gtri:=A[i];
A Để tìm giá trị khơng chia hết cho dãy B Để tìm giá trị max dãy C Để tìm giá trị chia hết cho dãy D Để tìm giá trị dãy
Câu 2: Các thao tác dùng để ghi giá trị biến m vào tệp KETQUA.OUT (Giả sử f biến tệp văn đã khai báo)
A Assign(f, ‘KETQUA.OUT’)->Rewrite(f)->Writeln(f,m)->Close(f) B Assign(f, ‘KETQUA.OUT’)->Writeln(f,m)->Rewrite(f)->Close(f) C Assign(f, ‘KETQUA.OUT’)->Readln(f,m)->Reset(f)->Close(f) D Assign(f, ‘KETQUA.OUT’)->Reset(f)->Readln(f,m)->Close(f) Câu 3: Thực thủ tục Delete(‘Truong THPT DTNT Quy Chau’,8,5) :
A ’TruongDTNTQuy Chau’ B ’Truong THPT Quy Chau
C ’Truong DTNT Quy Chau’ D ’THPT DTNT Quy Chau’
Câu 4: Xét chương trình sau: Program Vidu;
uses CRT;
Var a, b: interger;
Procedure Tang(Var X: interger, Y: integer); Begin
… end; Begin
… End
=> Các tham số hình thức chương trình Tang là:
A X, b B 1, C X, Y D a, Y Câu 5: Khai báo biến mảng chiều trực tiếp Pascal
A Type <tên biến bảng>: array[kiểu số] of <kiểu phần tử>;
B Var <tên biến bảng>: array[kiểu số] of <kiểu phần tử>;
C Var <tên biến bảng>: array[kiểu số] : <kiểu phần tử>;
D Var <tên biến bảng>: array[kiểu hàng, kiểu số cột] of <kiểu phần tử>;
Câu 6: Chỉ khai báo khai báo sau:
A Var st1, st2: String; x,y : String[30]; B Var xau : String[275]; C Var Ho ten: String[50]; D Var st=String;
Câu 7: Đoạn lệnh sau dùng để: Const n= 100;
Var A: Array[1 n] of Byte; Begin
For i: = To n Do Write(A[i]); Writeln;
End
A In giá trị ghi hình B In giá trị mảng hai chiều hình
C In giá trị xâu hình D In giá trị mảng chiều hình
(2)uses CRT;
Var a, b: interger;
Procedure Tang(Var X: interger, Y: integer); Begin
… end; Begin
…
a:=1;b:=4; Tang(a,b) …
End
=> Các tham số thực chương trình Tang là:
A 1, B a, b C a, D 1, b Câu 9: Đoạn lệnh sau dùng để:
Var St : String; Begin Write(‘st = ’);
Read(st); End;
A Nhập liệu cho xâu B Nhập liệu cho mảng hai chiều
C Nhập liệu cho ghi D Nhập liệu cho mảng chiều
Câu 10: Để biết hết dịng, người ta dùng hàm
A EOFLN(<biến tệp>) B EOF(<biến tệp>) C FOE(<biến tệp>) D EOLN(<biến tệp>) Câu 11: Xét chương trình sau:
Program Vidu; uses CRT;
Var a, b: interger;
Procedure Tang(X,Y: interger); Var a1,b1: byte;
Begin … end; Begin
… End
=> Các biến cục
A a, b B a, b1 C a1, b D a1, b1 Câu 12: Xét chương trình sau:
Program Vidu; uses CRT;
Var a, b: interger;
Procedure Tang(X,Y: interger); Var a1,b1: byte;
Begin … end; Begin
… End
=> Các biến toàn cục:
A a, b1 B a, b C a1, b1 D a1, b Câu 13: Thử tục sau thủ tục để vẽ đoạn thẳng
(3)Câu 14: Cho đoạn lệnh A[1]:=5; A[2]:=4; A[3]:=9; A[4]:=8; for i:=4 downto
write(A[i]:4);
A 4 B 1 C 8 D 5 Câu 15: Chương trình chuẩn sau khơng thuộc thư viện CRT
A TextColor(màu) B SetColor(màu) C Clrscr D TextBackGround(màu)
Câu 16: Từ khóa clrscr dùng để:
A Tơ màu hình B Đặt màu hình C Xóa hình D Làm nhấp nháy hình
Câu 17: Trong NNLT Pascal, cho khai báo sau Var b:array[1 10] of integer;
Hãy chọn lệnh gán lệnh sau
A b[11]:=8; B b:=8; C b[1]:=5; D b[5]:=6.5; Câu 18: Câu lệnh sau in hình độ dài xâu s ?
A readln(length(s)); B writeln(s); C writeln(length(s)); D readln(s); Câu 19: Chương trình chuẩn sau không thuộc thư viện GRAPH
A SetColor(màu) B TextColor(màu) C PutPixel(x,y,màu) D MoveTo(x,y) Câu 20:Cho đoạn lệnh x:=5; y:=4;
writeln('x+y'); Kết xuất hình là:
A x+y B 4 C 5 D 9
Câu 21: Kết thực thủ tục Insert(’THPT ’,‘Truong DTNT Quy Chau’,8) là: (Chú ý: xâu ‘THPT ’ chứa dấu cách cuối cùng):
A ‘THPT DTNT Quy Chau’ B ‘Truong THPTDTNT Quy Chau’ C ‘Truong PT DTNT Quy Chau’ D ‘Truong THPT DTNT Quy Chau’ Câu 22: Kiểu liệu tệp có đặc tính quan trọng sau đây:
A Dữ liệu lưu trữ RAM, liệu khổng lồ, không bị liệu điện; B Dữ liệu lưu trữ lâu dài, lưu trữ liệu khổng lồ, không bị liệu điện; C Dữ liệu lưu trữ lâu dài, liệu khổng lồ, bị liệu điện;
D Dữ liệu lưu trữ nhớ trong, không bị liệu điện Câu 23: Đoạn lệnh
For i: = To n Do
Begin Write(‘A[‘,i,’]=’); Read(A[i]); End;
thông thường dùng để:
A Nhập liệu cho mảng chiều B Nhập liệu cho xâu
C Nhập liệu cho ghi D Nhập liệu cho mảng hai chiều
Câu 24: Để biết kết thúc tệp, ta dùng hàm
A FOE(<biến tệp>) B EOF(<biến tệp>) C EOLN(<biến tệp>) D EOFLN(<biến tệp>) Câu 25: Đoạn lệnh sau dùng để:
Const n= 100;
Var A: Array[1 n] of Byte; Begin
For i: = To n Do
Kqua:=Kqua+A[i]; End;
A Tính tổng phần tử mảng chiều B Tính tổng phần tử xâu Ai C Tính tích phần tử mảng chiểu D Tính tổng phần tử mảng hai chiều
(4)A For Do B Không cần dùng vòng lặp C 2 Vòng lặp For Do D While Do
Câu 27: Để in xâu st hình, ta thực lệnh
A Write(st); B Read(st); C Write(st[i]); D For i:= to n Write(st);
Câu 28: Chỉ khai báo khai báo sau:
A Var A: Array[1 n] Of Byte; B Var Ho ten: String[50]; C Const n=10;
Var A: Array[1 n] Of Byte;
D Var 100so : Arr[1 100] Of Integer; Câu 29: Khai báo biến mảng hai chiều trực tiếp Pascal
A Var <tên biến bảng>: array[chỉ số hàng] : <kiểu phần tử>;
B Var <tên biến bảng>: array[chỉ số hàng, số cột] of <kiểu phần tử>;
C Var <tên biến bảng>: array[chỉ số hàng, số cột] : <kiểu phần tử>;
D Type <tên biến bảng>: array[chỉ số hàng, số cột] of <kiểu phần tử>;
Câu 30: Các thao tác dùng để đọc giá trị hàng đầu từ tệp SONGUYEN.INP biến m (Giả
sử f biến tệp khai báo)
A Assign(f,‘SONGUYEN.INP’)->Readln(f,m)->Reset(f)->Close(f) B Assign(f,‘SONGUYEN.INP’)->Rewrite(f)->Writeln(f,m)->Close(f) C Assign(f,‘SONGUYEN.INP’)->Writeln(f,m)->Rewrite(f)->Close(f) D Assign(f,‘SONGUYEN.INP’)->Reset(f)->Readln(f,m)->Close(f) Câu 31: Để khai báo biến xâu Pascal, dùng cú pháp
A Var <Tên biến xâu>: String<độ dài lớn xâu>; B Var <Tên biến xâu> String[độ dài lớn xâu]; C Var <Tên biến xâu>: String[độ dài lớn xâu]; D Var <Tên biến xâu>= String[độ dài lớn xâu]; Câu 32: Khai báo biến tệp văn ngơn ngữ lập trình Pascal
A Var <Tên biến tệp> : Text; B Var <Tên biến tệp> : String; C Var <Tên biến tệp> : File; D Var <Tên biến tệp> = Text;
-PHẦN TRẢ LỜI CÂU
HỎI -01 A B C D 09 A B C D 17 A B C D 25 A B C D
02 A B C D 10 A B C D 18 A B C D 26 A B C D
03 A B C D 11 A B C D 19 A B C D 27 A B C D
04 A B C D 12 A B C D 20 A B C D 28 A B C D
05 A B C D 13 A B C D 21 A B C D 29 A B C D
06 A B C D 14 A B C D 22 A B C D 30 A B C D
07 A B C D 15 A B C D 23 A B C D 31 A B C D