Ngân hàng câu hỏi ôn thi HK2 năm 2020 môn Tin học 11 Trường THPT Núi Thành

Tham biến dùng để lưu dữ liệu ra, còn tham trị dùng để đưa dữ liệu vào.. Không cho kết quả, bị lỗi..[r]

(1)

NGÂN HÀNG CÂU HỎI ÔN THI HỌC KÌ NĂM 2020 MƠN TIN HỌC 11 TRƯỜNG THPT NÚI THÀNH

I KIỂU XÂU

1. Nhận biết

Câu 1: Độ dài lớn xâu có giá trị bao nhiêu?

A B C 255 D 256

Câu 2: Thủ tục Delete(m, n, p); thực việc gì? A Xóa m ký tự xâu n kể từ vị trí p B Xóa p ký tự xâu m kể từ vị trí n

C Xóa n ký tự xâu m kể từ vị trí p D Xóa p ký tự xâu S kể từ vị trí n

Câu 3: Cho xâu S có giá trị là: ‘Tinhoc11’ cách khai báo biến S sau không đúng? A var S: string [20]; B var S: string; C var S: string[10]; D var S = string [10];

Câu 4: Cho câu lệnh gán m := copy(n, 3, 1); với n có giá trị biến m phải khai báo kiểu gì? A byte B string C char D real

Câu 5: Cho hai biến S, P kiểu string, câu lệnh gán sau không hợp lệ ? (P có giá trị) A S := P ; B S := copy(P, 1, 1) ;

C S := Delete(P, 1, 1); D S := P + ‘anh’; Câu 6: Hàm length(P) cho kết gì?

A Độ dài xâu P khai báo B Số ký tự có xâu P

C Độ dài xâu P, khơng tính dấu cách D Số lượng dấu cách xâu P Câu 7: Trong khai báo sau, khai báo sai?

A var S: string; B var P: string[111]; C var Q: string[256]; D var T: string[1];

Câu 8: Trong NNLT Pascal, xâu ký tự khơng có ký tự gọi là: A Xâu không B Xâu trắng

C Xâu rỗng D Không phải xâu ký tự Câu 9: Để xóa ký tự cuối xâu Q, ta viết:

A Delete(Q, 1, 1); B Delete(Q, length(Q)-1, 2); C Delete(Q, 2, length(Q)); D Delete(Q, n, 2);

Câu 10: Thủ tục Delete(S,1, 5); có ý nghĩa gì? A Xóa ký tự xâu S kể từ vị trí thứ B Xóa ký tự xâu S kể từ vị trí C Xóa xâu ký tự xâu S kể từ vị trí D Xóa xâu S ký tự kể từ vị trí thứ thứ

2. Thông hiểu

Câu 1: Hàm pos(‘em’, S) cho kết với S = ‘Emyeutruongem’? A B 15 C 16 D

Câu 2: Để xóa ký tự xâu Q, ta viết:

(2)

C Delete(Q, 1, length(Q)); D Delete(Q, n, 1); Câu 3: Hàm upcase(‘ab’) cho kết gì?

A Xâu ‘AB’ B Xâu ‘ab’

C Xâu ‘Ab’ D Không cho kết quả, bị lỗi Câu 4: P có giá trị câu lệnh gán sau: P := copy(‘Kiemtra15phut’, 6, 4);

A ‘mtra’ B ‘tra’ C ‘15ph’ D ‘tra’

Câu Biến Q có giá trị câu lệnh: Q := pos(‘xuan’, ‘XuanMauTuat’); A B C D 13

3. Vận dụng

Câu 1: Kết X, Y sau thực đoạn chương trình sau bao nhiêu? X := ‘LichSuVietNam’;

Y := pos(‘i’, X) + 5; Delete(X, 1, 8);

A X = ‘LichSu’, Y = B X = ‘LichSu’, Y = C X = ‘VietNam’, Y = D X = ‘VietNam’, Y = 15

Câu 2: Cho xâu A = ‘XuanMauTuat’, để có xâu B = ‘uan’, ta thực ntn? A copy(A, 3, 2); B B := Pos(A, 2, 3);

C B := copy(A, 3, 2); D B := copy(A, 2, 3);

Câu 3: Cho S = ‘NgonHaiDang’, để có xâu P = ‘Hai’, ta thực lệnh nào? A Delete(S, 1, 5); Delete(S, 4, 5); B S := Delete(S, 6, 3);

C P := pos(‘Hai’, S); D P := copy(S, 6, 3);

Câu 4: Để tìm vị trí xuất xâu ‘tin’ xâu P, ta viết: A copy(P, 1, 3) B pos(‘tin’, P) := m;

C m := pos(‘tin’, P); D n := pos(P, ‘tin’) ;

4. Vận dụng nâng cao

Câu 1: Đoạn chương trình sau thực việc gì? S := 0;

For i := to length(Q)

if (Q[i] = ‘b’) or (Q[i] = ‘B’) then S := S + 1; A Đếm ký tự b xâu Q

B Đếm ký tự B xâu Q C Tạo ta xâu S chứa ký tự b B D Đếm ký tự b B xâu Q

Câu 2: Đoạn chương trình sau thực việc gì? m := ‘’;

For i := to length(P) if P[i] = ‘a’ then m := m + P[i]; A Đếm ký tự a xâu P

(3)

m := 0;

For i := to length(P)

if (P[i] < ‘0’) or (P[i] > ‘9’) then m := m + 1; A Đếm ký tự ký tự số xâu P

B Đếm ký tự ký tự số xâu P C Tạo xâu m chứa ký tự số có xâu P D Tạo xâu m không chứa ký tự số từ xâu P Câu 4: Đoạn chương trình sau thực việc gì? m := ‘’;

For i := to length(P)

if (P[i] >= ‘0’) and (P[i] <= ‘9’) then m := m + P[i]; A Đếm ký tự ký tự số xâu P

B Đếm ký tự ký tự số xâu P C Tạo xâu m chứa ký tự số có xâu P D Tạo xâu m khơng chứa ký tự số từ xâu P II CHƯƠNG TRÌNH CON

1. Nhận biết

Câu 1: Phát biểu sau sai nói biến cục bộ? A Biến cục biến khai báo chương trình B Trong chương trình có khơng có biến cục C Biến cục biến khai báo chương trình

D Biến cục dùng chương trình khai báo Câu 2: Cấu trúc chương trình bao gồm phần?

A B C D

Câu 3: Chọn phương án đúng:

A Chương trình khơng thể sử dụng biến chương trình B Thủ tục trả giá trị qua tên

C Hàm không trả giá trị qua tên

D Lời gọi thủ tục khơng thể tham gia vào biểu thức tính tốn

Câu 4: Trong phần thân hàm bắt buộc phải có câu lệnh nào?

A <biểu thức> := <tên hàm>; B <tên hàm> := <câu lệnh>; C <câu lệnh> := <tên hàm>; D <tên hàm> := <biểu thức>; Câu 5: Chương trình nằm vị trí chương trình chính?

A Sau khai báo biến cho chương trình B Trước khai báo biến cho chương trình C Phần thân chương trình

D Nằm vị trí chương trình

Câu 6: Chọn phát biểu sai nói tham trị tham biến

A Tham trị khai báo khơng có VAR, cịn tham biến khai báo có VAR B Tham trị dùng để lưu liệu ra, tham biến dùng để đưa liệu vào

(4)

thể

D Tham biến dùng để lưu liệu ra, tham trị dùng để đưa liệu vào Câu Chỉ biến cục thủ tục sau:

Procedure Tinh (m: Byte; Var P: Word); Var i: Byte;

Begin P:=0;

For i:= to m P:=P+i; End;

A m P B i C P D m, P i Câu 8: Kiểu liệu sau kiểu liệu trả hàm?

A Kiểu mảng B Kiểu thực C Kiểu nguyên D Kiểu xâu Câu Hãy tham số hình thức phần đầu thủ tục sau:

Procedure BP(a,b: integer; Var P:longint);

A a b B P C a, b P D BP

2. Thông hiểu

Câu 1: Phần đầu hàm tính diện tích hình trịn, bán kính R viết là:

A Function dien tich (R: integer): integer; B Function dientich (R: integer; var S: real): real; C Function dientich (R: real): integer; D Function dientich (R: integer): real;

Câu 2: Câu lệnh gán giá trị cho tên hàm đặt phần hàm?

A Phần đầu B Phần khai báo C Phần thân D Sau khai báo biến Câu 3: Phần đầu thủ tục tính tổng số a b viết là:

A Procedure TONG (a, b: integer); B Procedure TONG (a, b: integer; var S: integer); C Function TONG (a, b: byte; var T: word); D Procedure TONG (a, b: integer): integer; Câu 4: Cho phần đầu: Function KT(a, b: Integer): Boolean; Lời gọi sau đúng? (Var ok: Boolean; x: Byte;)

A KT(4, ok); B ok:= KT(5, 30);

C ok:= KT(10); D If KT(x, 20) then KT(5, 25);

Câu 5: Cho phần đầu Procedure Nhap (var a, b: integer); Lời gọi Đúng với tham số thực M N?

A Nhap(a,b); B Nhap(M, N);

B C Nhap (a, b, M, N); D Nhap (M=a,N=b);

3. Vận dụng

Câu CTC sau dùng để làm gì?

Procedure BP(a,b: integer; Var P:longint); Begin

P := sqr(a+b); End;

A Tính a2 + b2 B Tính (a + b)2 C Tính Tổng a + b D Tính P2 Câu 2: Muốn khai báo a tham biến, b tham trị thủ tục có tên TINH khai báo là đúng?

(5)

B procedure TINH (a, b: integer);

C procedure TINH (a: integer; var b: integer); D procedure TINH (b: integer; var a: integer);

Câu Phần đầu hàm Function Tong (a, b: integer): integer; viết lại thành thủ tục thế nào?

A Procedure TTT (a, b: Integer): Integer; B Procedure TTT (T: Integer; var a, b: Integer); C Procedure TTT (a, b, Tong: Integer): Integer; D Procedure TTT (a, b: Integer; var Tong: Integer);

Câu Phần đầu thủ tục Procedure Tinh (x, y: byte; var M: word); viết lại hàm nào?

A Function Tinh (x, y: byte): word; B Function Tinh (var x, y, M: byte): Word; C Function Tinh (x, y, M: byte); D Function Tinh (x, y: byte; var M: word): Word;

4. Vận dụng nâng cao

Câu Cho hàm sau:

Function Tinh (m: byte): word; var j: byte; N: word;

begin

N := 0; For j:= to m if j mod = then N := N + j; ………

end;

Câu lệnh thiếu phần gì?

A Tinh (m) := N; B Tinh := N; C N := Tinh; D Tinh(10) := N; Câu 2: Nếu chương trình có lời gọi hàm câu lời gọi đúng?

A S := Tinh (1,30); B S := Tinh (30); C Tinh := N; D Tinh (20, T);

Câu Thủ tục sau thực việc gì? Procedure Tinh (x, y: byte; var M: word); var j: byte;

begin

M := 0; For j:= to y M := M * x; end;

A Đếm số từ đến M B Tính tổng giá trị số từ đến y C Tính lũy thừa xy D Tính tổng giá trị số từ x đến y

Câu Cách chuyển thủ tục sau thành hàm? Procedure CAN (a,b: real; Var P: real);

Begin

(6)

A Function CAN (a, b: real); Begin

CAN := sqrt(sqr(a)*a + sqr(b)*b); End;

B Function CAN (a, b: real): real; Begin

C Function CAN (a, b: real; var P: real); Begin

D Function CAN (a, b: real; var P: real):real; Begin

Câu Thủ tục sau thực việc gì?

Procedure Tinh (m: Byte; Var P: Word); Var i: Byte;

Begin P:=0;

For i:= to m P:=P+i; End;

A Tính giá trị m số chẵn B Hiển thị giá trị m số tự nhiên

C Tính tổng m số tự nhiên D Tính tổng P số tự nhiên

III KIỂU DỮ LIỆU TỆP

Câu 1: Thủ tục Reset(<biến tệp>); có tác dụng gì? A Mở tệp để ghi liệu B Đọc DL từ tệp C Mở tệp để đọc liệu D Ghi DL vào tệp

Câu 2: Nếu hàm eoln(<biến tệp>) cho giá trị True trỏ tệp nằm vị trí tệp? A Một vị trí tệp B Cuối dòng

C Đầu dòng D Đầu tệp

Câu 3: Giả sử gắn tên tệp cho biến tệp f mở để ghi Cần ghi giá trị: TIN11 vào tệp viết lệnh nào?

A writeln (‘TIN 11’, f); B readln (f, ‘TIN 11’); C write (f, ‘TIN 11’); D writeln (f, TIN 11);

Câu 4: Khi tiến hành mở tệp để ghi tìm thấy tệp thì: A Báo lỗi khơng thực

B Dữ liệu ghi vào sau DL cũ

C Nội dung cũ tệp bị xóa để chuẩn bị ghi nội dung D Nội dung ghi vào trước nội dung cũ

Câu 5: Cho tệp có cấu trúc sau SN.TXT

12

(7)

A Readln(h, a); Read(h);

B Readln(h); Read(h, a);

C Read(h); Read(h, a);

D Read(h); Read(h); readln(h, 5);

Câu 6: Vị trí trỏ tệp nằm đâu sau lời gọi thủ tục reset(<biến tệp>);

A Giữa tệp B Cuối tệp C Đầu tệp D Bất kỳ vị trí tệp

Cho tệp SN.TXT gồm hai dòng chứa số nguyên sau đoạn CT sau: (a, b có kiểu nguyên)

Assign(f, ‘SN.TXT’); (1)

Reset (f); (2) Readln (f, a); (3)

Read (f, b); (4)

Close(f); (5)

(Trả lời cho câu 7, 8, 9)

Câu 7: Thủ tục đọc DL từ tệp là:

A (2) (3) B (4) C (2) D (3) (4)

Câu 8: Sau thực đoạn CT trên, kết a, b là: A 20, B 20, 15 C 6, D 15, Câu 9: Câu lệnh dòng (1) CT dùng để:

A Gắn biến tệp f cho tệp SN.TXT B Đọc DL từ tệp SN.TXT C Gắn tệp SN.TXT cho biến tệp f D Mở tệp SN.TXT để đọc Câu 10: Thủ tục ghi liệu vào tệp là:

A rewrite(<biến tệp>); B write(<biến tệp>, <DS kết quả>); C writeln(<biến tệp>); D readln(<biến tệp>,<DS biến>); Cho đoạn lệnh sau: {Trả lời cho câu 11 câu 12}

Assign(f, ‘baitap.txt’); (1) rewrite(f); (2) a := 10; b := a mod 3; (3) writeln(f, ‘b = ’, b); (4) close(f); (5)

Câu 12: Tệp baitap.txt chứa liệu nào?

A B

C D

Câu 13: Nếu hàm eoln(<biến tệp>) cho giá trị true trỏ tệp nằm ở: A Cuối dòng B Cuối tệp C Đầu dòng D Đầu tệp Câu 14: Cho tệp có cấu trúc sau

20 15 0

f, b = b =

Câu 11: Thủ tục dịng (2) có tác dụng gì? A Mở tệp để ghi B Mở tệp để đọc

(8)

SN.TXT 12

Giả sử gắn tên tệp cho biến tệp f Cần đọc giá trị tệp gán cho biến x y dùng lệnh nào?

A Readln(f, x, y); Read(f);

B Readln(f, x); Read(f, y);

C Read(f); Read(f,5); read(f, 8);

D Read(f); Readln(f, x, y);

Cho đoạn lệnh sau: {Trả lời cho câu 15, câu 16, câu 17 câu 18}

Assign(t, ‘songuyen.dat’); (1) rewrite(t); (2) x := 5; y := x * 5; (3) writeln(t, y); (4) write(t, x); (5) close(f); (6)

Câu 15: Biến t biến x khai báo tương ứng kiểu gì?

A text – text B byte – text C text - byte D byte – byte Câu 16: Thủ tục mở tệp để ghi nằm dòng nào?

A (1) B (2) C (4) (5) D (4) Câu 17: Sau thực đoạn CT trên, kết tệp songuyen.dat là:

A B

C D

Câu 18: Câu lệnh dòng (1) CT dùng để:

A Gắn tên tệp cho biến tệp B Ghi liệu vào tệp songuyen.dat C Gắn biến tệp cho tên tệp D Đóng tệp

-o0o -

TỔNG HỢP CÁC ĐỀ KIỂM TRA

Khoanh tròn ý câu sau

ĐỀ

Câu 1: Độ dài lớn xâu có giá trị bao nhiêu? A B C 255 D 256

Câu 2: Cho xâu S có giá trị là: ‘Kiemtra15phut’ khai báo biến S đúng?

5 25 25

5 25

(9)

A var S: char; B var S: string[15]; C var S = string[16]; D var S: string; Câu 3: Thủ tục Delete(m, n, p); thực việc gì? A Xóa m ký tự xâu n kể từ vị trí p B Xóa p ký tự xâu m kể từ vị trí n

C Xóa n ký tự xâu m kể từ vị trí p D Xóa p ký tự xâu S kể từ vị trí n

Câu 4: Hàm pos(‘em’, S) cho kết với S = ‘Emyeutruongem’

A B 15 C 16 D Câu 5: Đoạn chương trình sau thực việc gì? S := 0;

For i := to length(P) if P[i] = ‘b’ then S := S + 1; A Tạo xâu S chứa ký tự ‘b’ xâu P

B Đếm ký tự loại trừ ký tự ‘b’ xâu P

C Tạo xâu S từ xâu P cách lấy ký tự ‘b’ xâu P D Đếm ký tự ‘b’ xâu P

ĐỀ

Cho đoạn chương trình sau: M := ‘QuangNam’;

N := copy(M, 3, 2); P := pos(‘a’, M);

(Trả lời cho câu đầu)

Câu 1: Kết P sau thực xong đoạn CT là: A ‘a’ B C D

Câu 2: Biến N biến P khai báo tương ứng kiểu gì? A byte – string B byte – byte

C string – byte D string – string Câu 3: Giá trị N bao nhiêu?

A ‘an’ B ‘uan’ C D

Câu 4: Thủ tục chèn xâu b vào xâu a kể từ vị trí c viết nào? A Insert(a, b, c); B Insert(c, b, a);

C Insert(b, c, a); A Insert(b, a, c); Câu 5: Đoạn chương trình sau thực việc gì? a := ‘’;

For i := length(b) downto a := a + b[i]; A Đưa ký tự xâu a vào xâu b B Tạo xâu b xâu ngược xâu a

C Tạo xâu a xâu ngược xâu b D Đếm ký tự xâu b

(10)

Câu 1: Lệnh (thủ tục) xóa N kí tự xâu S kể từ vị trí K là:

A Delete(S, N, K); B Delete(N, S, K); C Insert(S, K,N); D Delete(S, K, N);

Câu 2: Cho phần đầu Procedure Nhap (var a, b : integer); Lời gọi Đúng với tham số thực M N?

C Nhap(a,b); B Nhap(M, N); C Nhap (a, b, M, N); D Nhap (M=a,N=b); Câu 3: Phát biểu Sai cấu trúc CTC?

A Phần đầu có khơng C Phần đầu CTC dùng để khai báo tên phân loại CTC

B Phần đầu phần thân định phải có D Phần khai báo có khơng Câu 4: Hàm length(P) cho kết gì?

A Độ dài xâu P khai báo B Số ký tự có xâu P

C Độ dài xâu P, không tính dấu cách D Số lượng dấu cách xâu P Câu 5: Để khai báo Hàm, ta dùng từ khóa:

A Program B Procedure C Function D Array Câu 6: Khai báo biến xâu St có độ dài 80 Đúng?

A Var s: string[80]; B Var St: string; C Var st: string[80]; D Var t: string; Câu 7: Để xóa ký tự xâu Q, ta viết:

A Delete(Q, 1, 1); B Delete(Q, length(Q), 1); C Delete(Q, 1, length(Q)); D Delete(Q, n, 1);

Câu 8: Đoạn chương trình sau thực việc gì? S := 0;

For i := to length(Q) if (Q[i] = ‘b’) or (Q[i] = ‘B’) then S := S + 1;

A Đếm ký tự b xâu Q B Đếm ký tự B xâu Q

C Tạo ta xâu S chứa ký tự b B D Đếm ký tự b B xâu Q Câu 9: Cho S = ‘NgonHaiDang’, để có xâu P = ‘Hai’, ta thực lệnh nào?

A Delete(S, 1, 5); Delete(S, 4, 5); B S := Delete(S, 6, 3); C P := pos(‘Hai’, S); D P := copy(S, 6, 3);

Cho chương trình: {Trả lời cho câu 10, 11 12}

Var m, n, i : integer;

Procedure TINH (b, c : integer); var j : integer;

begin

j := 5; b := b + j; c := c+ b; end;

Begin

m : = 0; n := 2; i := m + n; TINH (m, i-7); Writeln ( m: 3, n: 3); Readln;

End

Câu 10 Biến cục CT bên là: A m, n, i B b, c C j D i Câu 11 TSTS CT bên là: A b, c

C m, i-7

B TINH

D TINH(m, i-7) Câu 12 Tham trị là:

A b c B m

C Khơng có D m n

Câu 13: Phần đầu hàm tính diện tích hình trịn, bán kính R viết là:

(11)

C Function dientich (R: real): integer; D Function dientich (R: integer): real; Cho chương trình (thủ tục) sau, đọc hiểu trả lời cho câu 14, 15 16 Procedure Tong (a, b: byte; var S: word);

var i: byte; begin

S := 0; For i:= a to b S := S + i; end;

Câu 14: Nếu chuyển thủ tục thành hàm phần đầu hàm viết lại đúng?

A Function Tong (S: byte): real; B Function Tong (a, b: byte; var S : Word): Word;

C Function Tong (a, b: byte): Word; D Function Tong (var S :word): Word; Câu 15: Nếu chương trình có lời gọi thủ tục lời gọi đúng? (var T: word;) A S := Tong (1, 10, T); B Tong (5, 10, T); C Tong (T, 10, 20);

D Tong (20, T);

Câu 16: Thủ tục thực việc gì?

A Đếm số từ a đến b B Tính tổng giá trị số từ a đến b C Tính lũy thừa ab D Tính tổng S + i

Câu 17: Cho câu lệnh gán m := copy(n, 3, 1); với n có giá trị biến m phải khai báo kiểu gì? A byte B string C char D real

Câu 18: Cho hai biến S, P kiểu string, câu lệnh gán sau khơng hợp lệ ? (P có giá trị) A S := P ; B S := copy(P, 1, 1) ; C S := Delete(P, 1, 1); D S := P + ‘anh’;

Câu 19: Để tìm vị trí xuất xâu ‘tin’ xâu P, ta viết:

A copy(P, 1, 3) B pos(‘tin’, P) := m; C m := pos(‘tin’, P); D n := pos(P, ‘tin’) ;

Câu 20: Chọn khai báo đúng?

A Procedure LOAI(var S: string); B function CV(a, b): real;

C function TINH(a:byte; var b: word); D procedure DIEN TICH(x:real; var S: real);

Câu 21: Khai báo phần đầu thủ tục XYZ với x z tham trị, y tham biến viết thế nào?

A Procedure XYZ(x, y: integer; var z: integer); B Procedure XYZ(x, z: integer; var y: integer);

C Procedure XYZ(x, y, z integer); D Procedure XYZ(var x, z: integer; y: integer);

II TỰ LUẬN: (3đ)

Câu 1: (1.0đ) Khai báo phần đầu CTC theo yêu cầu sau:

a) Khai báo phần đầu thủ tục VeHCN( ) với a, b: tham trị, có kiểu nguyên b) b) Xây dựng hàm CAN( ) để tính

(

x



y

)

(12)

Câu 2:

a) (0.5đ) Xây dựng thủ tục hàm HV( ) để tính diện tích hình vng cạnh n

b) 1.5(đ) Viết CT có sử dụng CTC để tính diện tích phần gạch chéo

hình bên (a b nhập từ bàn phím)

ĐỀ

Câu 1: Thủ tục Delete(m, n, p); thực việc gì?

A Xóa m ký tự xâu n kể từ vị trí p B Xóa p ký tự xâu m kể từ vị trí n C Xóa n ký tự xâu m kể từ vị trí p D Xóa p ký tự xâu S kể từ vị trí n Câu 2: Cho phần đầu: Function KT(a, b: Integer): Boolean; Lời gọi sau đúng? (Var ok: Boolean; x: Byte;)

A KT(4, ok); B ok:= KT(5, 30); C ok:= KT(10); D If KT(x, 20) then KT(5, 25);

Câu 3: Chọn phát biểu sai nói tham trị tham biến

A Tham trị khai báo khơng có VAR, cịn tham biến khai báo có VAR B Tham trị dùng để lưu liệu ra, tham biến dùng để đưa liệu vào

C Tham số thực (TSTS) thay cho tham biến biến, TSTS thay cho tham trị giá trị cụ thể

D Tham biến dùng để lưu liệu ra, tham trị dùng để đưa liệu vào Câu 4: Hàm upcase(‘ab’) cho kết gì?

A Xâu ‘AB’ B Xâu ‘ab’ C Xâu ‘Ab’ D Không cho kết quả, bị lỗi

Câu 5: Để khai báo thủ tục, ta dùng từ khóa:

A Program B Procedure C Function D Array Câu 6: Trong khai báo sau, khai báo sai?

A var S: string; B var P: string[111]; C var Q: string[256]; D var T: string[1];

Câu 7: Để xóa ký tự cuối xâu Q, ta viết:

A Delete(Q, 1, 1); B Delete(Q, length(Q), 1); C Delete(Q, 1, length(Q)); D Delete(Q, n, 1);

Câu 8: Đoạn chương trình sau thực việc gì?

m := ‘’; For i := to length(P) if P[i] = ‘a’ then m := m + P[i];

A Đếm ký tự a xâu P B Tạo xâu m cách loại bỏ ký tự a xâu P

C Tạo xâu P cách lấy ký tự a xâu m D Tạo xâu m cách lấy ký tự a xâu P

Câu 9: Kết V câu lệnh sau: V := pos(‘n’, ‘mon tin hoc’);

A B 11 C D

Cho chương trình: {Trả lời cho câu 10, 11 12} Câu 10 Biến toàn cục CT bên là: b

b

(13)

Var m, n, i : integer;

Procedure TINH (b, c : integer); var j : integer;

begin

j := 5; b := b + j; c := c+ b; end;

Begin

m : = 0; n := 2; i := m + n; TINH (m, i-7); Writeln ( m: 3, n: 3); Readln;

End

E m, n, i F j

G b, c H i

Câu 11 Lời gọi thủ tục CT bên là: A b, c

C m, i-7

B TINH

D TINH(m, i-7) Câu 12 TSHT là:

A m n B m

C Khơng có D b c

Câu 13: Phần đầu hàm tính diện tích hình vng viết là:

A Function dien tich (a: integer): longint; B Function dientich (a: byte; var S: word ): word; C Function dientich (a: real): integer; D Function dientich (a*a: byte): word ;

Cho chương trình (hàm) sau, đọc hiểu trả lời cho câu 14, 15 16 function tam (a, b: integer): integer;

begin

if a < b then tam := a else tam := b; end;

Câu 14: Nếu chuyển hàm thành thủ tục phần đầu thủ tục viết lại đúng?

A procedure tam (a, b: integer): integer; B procedure tam (a, b: integer; var S : integer);

C procedure tam (a, b: integer; var S:integer): integer; D procedure tam (var a, b :word): Word;

Câu 15: Nếu chương trình có lời gọi hàm lời gọi đúng? (var S, T: integer;) A S := tam (1, 10); B tam (5, 10, T); C S := tam (5, 2, T); D tam (20); Câu 16: Hàm thực việc gì?

A Tìm số lớn hai số a b B Tính tổng hai số a b C Tìm số nhỏ hai số a b D Hoán đổi hai số a b Câu 17: Cho câu lệnh gán m := length(‘Kiem tra tiet’); biến m phải khai báo kiểu gì? A byte B string C char D real

Câu 18: Cho hai biến a, b kiểu xâu, xâu b có giá trị Câu lệnh sau không hợp lệ? A a := Delete(b, 3, 2); B a := copy(b, 3, 2); C a := b + ‘m’;

D Insert(‘m’, b, 2);

Câu 19: Cho xâu A = ‘XuanMauTuat’, để có xâu B = ‘uan’, ta thực ntn?

A copy(A, 3, 2); B B := Pos(A, 2, 3); C B := copy(A, 3, 2); D B := copy(A, 2, 3);

Câu 20: Chọn khai báo đúng?

A Procedure LOAI BO(var S: string); B function CV(a, b): real;

(14)

thế nào?

A Procedure XYZ(x, y: integer; var z: integer); B Procedure XYZ(x, z: integer; var y: integer);

C Procedure XYZ(x, y, z: integer); D Procedure XYZ(var x, y: integer; z: integer);

II TỰ LUẬN: (3đ)

Câu 1: (1.0đ) Khai báo phần đầu CTC theo yêu cầu sau:

a) Khai báo phần đầu thủ tục ABC( ) với a: tham trị, b tham biến, có kiểu thực b) Khai báo phần đầu hàm TINH( ) để tính (a2b2) với a, b có kiểu nguyên

Câu

a) (0.5đ) Viết hàm thủ tục tính A3

b) (1.5đ) Viết chương trình tính giá trị biểu thức

3

( ) 27

m n

T

m

 

 , với m, n nhập từ bàn phím

Trong chương trình có sử dụng hàm thủ tục tính A3

ĐỀ

Câu 1: Trong NNLT Pascal, hàm để kiểm tra trỏ tệp đứng cuối dòng là:

A ELINE(<biến tệp>); B EOF(<biến tệp>); C EOLN(<biến tệp>); D EOFL(<biến tệp>);

Câu 2: Cho xâu A = ‘Ban em hoc lop em’ Hàm Pos(‘em’,a) có giá trị: A B 17 C 16 D

Câu 3: Cho biết giá trị xâu Q sau thực lệnh: Q:=’Em yeu que hương’; Delete(Q, pos(‘que‘,Q), 4);

A ’Em que hương’ B ’Em yeu huong’ C ’Em hương’ D ’que hương’

Câu 4: Giả sử xâu X xâu xâu M lấy vị trí số gồm ký tự Câu lệnh thực hiện đúng?

A X := Copy(M, 3, 7); B X := Copy(M, 7, 3); C M := Copy(X, 3, 7); D Copy(M, X, 3, 7); Câu 5: Đâu hàm chuẩn NNLT Pascal?

A Writeln(x); B Upcase(x) C Insert(S, P, 3); D Readln;

Câu 6: Trong cấu trúc hàm, thành phần có khơng?

A Tên hàm B Danh sách tham số hình thức C Kiểu liệu hàm D Từ khoá Function

Câu 7: Lệnh gắn tên tệp ‘TIN11.TXT’ cho biến tệp g?

A g := ‘TIN11.TXT’; B Assign(g, ‘TIN11.TXT’); C Assign(‘TIN11.TXT’, g); D ‘TIN11.TXT’ := g;

Câu 8: Thủ tục sau dùng để đọc liệu từ tệp?

(15)

quả>);

Câu 9: Thủ tục sau dùng để mở tệp để ghi liệu?

A Rewrite(<Biến tệp>); B Reset(<Biến tệp>); C Reset(<tên tệp>); D Rewrite(<Tên tệp>);

Câu 10: Thủ tục xóa hết liệu có tệp?

A Close(<biến tệp>); B Reset(<biến tệp>); C Readln(<biến tệp>); D Rewrite(<biến tệp>);

Câu 11: Xâu bé xâu ‘He 2015’? A ‘He 2015’ B ‘he 2014’ C ‘he 2013’ D ‘HE 2015’

Câu 12: Biến khai báo chương trình dùng CT khai báo gọi là?

A Biến toàn cục B Biến tồn phần C Tham số hình thức D Biến cục Câu 13: Tham số hình thức khai báo phần CT con?:

A Phần đầu B Phần khai báo C Phần thân D Lời gọi CT Câu 14: Trong lời gọi chương trình con, ngồi tên CT cịn có:

A Tham số hình thức B Tham số thực C Biến cục D Biến toàn cục Câu 15: Tham biến khai báo: Procedure Kiemtra (P: String; var m, n: boolean); là: A P B m, P C m, n D m, n, P

Câu 16: Cho đoạn CT có lời gọi CT con: CT1, CT2, CT3 Cho biết chương trình là hàm?

T := CT1(x, 5); CT2(y); Write(' Ket qua = ', CT3(s));

A CT2 CT3 B CT1 CT3

C CT2 D CT1 CT2

Câu 17: Thủ tục Delete(S, 3, 5); thực gì? A Chèn ký tự vào xâu S vị trí thứ

B Xóa ký tự xâu S vị trí C Xóa ký tự xâu S vị trí D Chèn ký tự vào xâu S vị trí

Câu 18: Đoạn chương trình sau thực việc gì? T := ‘’; for i := to length(S) if S[i] = ‘B’ then T := T + S[i];

A Đếm ký tự B xâu S B Tạo xâu S chứa ký tự B xâu T C Tạo xâu T chứa ký tự B xâu S D Xóa ký tự B xâu S

Câu 19: Cho xâu P = ‘Thi HK 2015’ Giá trị P[8] là: A ‘1’ B ‘K’ C ‘0’ D ‘2’

Câu 20: Cho biết kiểu liệu thích hợp biến m câu lệnh sau: Insert(b, a, m); A Byte B String C char D Real

Câu 21: Chọn khai báo cho biến xâu?

A Var S: String[300]; B Var S, P: String[50]; C Var S; P: String; D Var S , P = String[30];

Câu 22: Khi tệp chưa có đĩa, thực thao tác máy báo lỗi?

A Assign(<biến tệp>, <tên tệp>); B Reset(<biến tệp>); C Writeln(<biến tệp>); D Rewrite(<biến tệp>);

(16)

A Var t , x: test; B Var f ; g : text; C Var t, h: text; D Var f , g = text;

Câu 24: Cho xâu A, để tạo xâu B cách lấy chữ số có xâu A, thực đoạn lệnh sau đây?

A B:=’’; For i:= to length(A) B:=B+1; B B:=’’; For i:= to length(A) B:= B + A[i]; C B:=’’; For i:= to length(A)

If (A[i]>=’0’)and(A[i]<=’9’) then B:=B+A[i];

D B:=’’; For i:= to length(A)

If (A[i]>=’0’)and(A[i]<=’9’) then B:=B+1;

Câu 25: Cho hai biến S, P kiểu string, câu lệnh gán sau không hợp lệ ? (P có giá trị) A S := P; B S := copy(P, 1, 4) ; C S := Delete(P, 5, 1); D S := P + ‘QQQ’;

Câu 26: Cho biết thủ tục sau thực việc gì?

Procedure Tinh(n: Byte; Var S: Word); Var i: Byte;

Begin S:=0; For i:= to n S:=S+i; End;

A Tính giá trị n số chẵn B Hiển thị giá trị n số tự nhiên C Tính tổng S số tự nhiên D Tính tổng n số tự nhiên Câu 27: Cho khai báo: Var k: Byte; t, m: Word; Lời gọi sau với thủ tục khai báo trong câu 26?

A Tinh(7,100); B t:= Tinh(5, m); C Tinh(20, m); D Tinh(k, 50); Câu 28: Lệnh thiếu phần … CTC (hàm) lệnh nào?

Function Tinh (x, m: byte): word; var j: byte; N: word;

begin N := 0; For j:= to m N := N * x; ……… end;

A N := Tinh; B Tinh(x, m) := N;

C Tinh := N; D Tinh(2, 8) := N;

Câu 29: Nếu chương trình có lời gọi hàm câu 28 lời gọi đúng? (S kiểu Word) A S := Tinh (2, 8); B S := Tinh (12); C S := Tinh; D Tinh (20, T);

Câu 30: Phần đầu hàm câu 28 viết lại thành thủ tục đúng? A Procedure Tinh (m: byte; N: Word); B Procedure Tinh (x, m, N: byte): word;

C Procedure Tinh (m: byte; var x, N: Word); D Procedure Tinh (x, m: byte; var N: Word);

Câu 31: Cho tệp có nội dung đây, giả sử thực mở tệp để đọc (reset(f)); (Với f: text;)

5

-3 12

Vị trí trỏ tệp đứng giá trị nào? A B C -3 D

Câu 32: Cho tệp hình trên, giá trị x y sau thực thủ tục: Readln(f, x, y); là: (Với x, y:Integer)

(17)

hiện họ tên học sinh Đoạn lệnh thực hiên đọc đếm có xâu họ tên tệp? (Var d: Byte; S:String;)

A d := 0; While not eoln(f) Begin Read(f, S); d := d+1; End;

B d := 0; While not eof(f) Begin Readln(f, S); d := d+1; End; C d := 0; While eof(VB.TXT)

Begin Read(f, S); d :=d+1; End;

D d := 0; While not eof(f) Begin Readln(f, S); writeln(S); End;

Câu 34: Cho hàm tính A3 có phần đầu là: function mu3 (A: Integer): longint; Giả sử chương trình cần sử dụng hàm để tính giá trị biểu thức: T = (8x3 + (x + 2y)3)/27 thực nào?

A T := (mu3(8*x) + mu3(x, 2*y)) / mu3(3); B T := (8*mu3(x) + mu3 (x) + mu3 (2*y)) / mu3(3);

C T := (mu3(2*x) + mu3(x, 2*y)) / mu3(3); D T := (mu3(2*x) + mu3(x+2*y)) / mu3(3); Câu 35: Cho biết CT (hàm) sau trả giá trị gì?

Function TIM(x, y: Integer): Integer; Begin If x>y then TIM:=x

Else TIM:=y; End;

A Tìm giá trị nhỏ hai số thực x y B Tìm giá trị lớn hai số nguyên x y

C Tìm giá trị nhỏ hai số nguyên x y D Tìm giá trị lớn hai số thực x y Câu 36: Cho thủ tục Để hiển thị từ ‘Turbo Pascal’ dịng hình, lời gọi thủ tục nào đúng?

Procedure Hienthi(a: String; n: Byte); Var i: Byte;

Begin For i:= to n writeln(a); End;

A For i:=1 to Hienthi(‘Turbo Pascal’); B Hienthi(‘Turbo Pascal’, 5);

C Hienthi(5, ‘Turbo Pascal’);

D For i:=1 to Hienthi(‘Turbo Pascal’, 5); Câu 37: Thay từ “Tin” có xâu X từ “Toan”, thực đoạn lệnh sau đây?

A vt :=Pos(‘Tin’, X); Insert(‘Toan’, X, vt); Delete(X, vt, 3);

B vt :=Pos(X, ‘Tin’); Delete(X, vt, 3); Insert(‘Toan’, vt, X);

C vt :=Pos(‘Tin’,X); Insert(‘Toan’, X, vt); Delete(X, vt, 5);

D vt :=Pos(‘Tin’,X); Delete(X, vt, 3); Insert(‘Toan’, X, vt); Câu 38: Đoạn lệnh sau thực việc tạo xâu S xâu ngược lại xâu P?

A P:=’’; For i:= to length(S) P:=P+S[i]; B P:=’’; For i:= length(P) downto P:=P+S[i]; C S:=’’; For i:= length(S) to S:=S+P[i]; D S:=’’; For i:= length(P) downto S:=S+P[i]; Câu 39: Điền chỗ trống … hàm sau để hàm kiểm tra số ngun m có phải là số chẵn khơng?

Function (m: Integer): ; Begin

If then KT:=True else …… ; End;

A KT, Integer, m mod = 1, KT := False B KT, Boolean, m mod = 0, KT := False C KT, Integer, m mod = 0, KT := False D KT, Boolean, m mod = 0, False

Câu 40: Áp dụng hàm câu 39 để đếm có số chẵn có tệp SO.TXT(đã gắn tên

(18)

A s:=0; While not eof(f)

Begin Read(f, x); If KT(x) then s:=s+1; End;

B While not eof(f)

Begin Read(f, x); KT(x); If KT then s :=s+1; End; C s:=0; While not eof(f)

Begin write(f, x); If KT(x) then s:=s+1; End;

D s:=0; While not eof(f)

(19)

Website HOC247 cung cấp môi trường học trực tuyến sinh động, nhiều tiện ích thơng minh, nội dung giảng biên soạn công phu giảng dạy giáo viên nhiều năm kinh nghiệm, giỏi kiến thức chuyên môn lẫn kỹ sư phạm đến từ trường Đại học trường chuyên danh tiếng

I.Luyện Thi Online

-Luyên thi ĐH, THPT QG: Đội ngũ GV Giỏi, Kinh nghiệm từ Trường ĐH THPT danh tiếng xây dựng khóa luyện thi THPTQG mơn: Tốn, Ngữ Văn, Tiếng Anh, Vật Lý, Hóa Học Sinh Học

-Luyện thi vào lớp 10 chun Tốn: Ơn thi HSG lớp luyện thi vào lớp 10 chuyên Toán trường PTNK, Chuyên HCM (LHP-TĐN-NTH-GĐ), Chuyên Phan Bội Châu Nghệ An trường Chuyên khác TS.Trần Nam Dũng, TS Pham Sỹ Nam, TS Trịnh Thanh Đèo Thầy Nguyễn Đức Tấn.

II.Khoá Học Nâng Cao HSG

-Toán Nâng Cao THCS: Cung cấp chương trình Tốn Nâng Cao, Tốn Chun dành cho em HS THCS lớp 6, 7, 8, yêu thích mơn Tốn phát triển tư duy, nâng cao thành tích học tập trường đạt điểm tốt kỳ thi HSG

-Bồi dưỡng HSG Toán: Bồi dưỡng phân mơn Đại Số, Số Học, Giải Tích, Hình Học Tổ Hợp dành

cho học sinh khối lớp 10, 11, 12 Đội ngũ Giảng Viên giàu kinh nghiệm: TS Lê Bá Khánh Trình, TS

Trần Nam Dũng, TS Pham Sỹ Nam, TS Lưu Bá Thắng, Thầy Lê Phúc Lữ, Thầy Võ Quốc Bá Cẩn

đơi HLV đạt thành tích cao HSG Quốc Gia III.Kênh học tập miễn phí

-HOC247 NET: Website hoc miễn phí học theo chương trình SGK từ lớp đến lớp 12 tất

các môn học với nội dung giảng chi tiết, sửa tập SGK, luyện tập trắc nghiệm mễn phí, kho tư liệu tham khảo phong phú cộng đồng hỏi đáp sôi động

-HOC247 TV: Kênh Youtube cung cấp Video giảng, chuyên đề, ôn tập, sửa tập, sửa đề thi miễn phí từ lớp đến lớp 12 tất mơn Tốn- Lý - Hố, Sinh- Sử - Địa, Ngữ Văn, Tin Học Tiếng Anh

Vững vàng tảng, Khai sáng tương lai

Học lúc, nơi, thiết bi – Tiết kiệm 90%

Học Toán Online Chuyên Gia