PHIẾU TRẢ LỜI TRẮC NGHIỆM Học sinh ý : - Giữ cho phiếu phẳng, không bôi bẩn, làm rách - Phải ghi đầy đủ mục theo hướng dẫn - Dùng bút chì đen tô kín ô tròn mục Số báo danh, Mã đề trước làm Phần trả lời : Số thứ tự câu trả lời ứng với số thứ tự câu trắc nghiệm đề Đối với câu trắc nghiệm, học sinh chọn tô kín ô tròn tương ứng với phương án trả lời 01 ; / = ~ 09 ; / = ~ 17 ; / = ~ 25 ; / = ~ 02 ; / = ~ 10 ; / = ~ 18 ; / = ~ 26 ; / = ~ 03 ; / = ~ 11 ; / = ~ 19 ; / = ~ 27 ; / = ~ 04 ; / = ~ 12 ; / = ~ 20 ; / = ~ 28 ; / = ~ 05 ; / = ~ 13 ; / = ~ 21 ; / = ~ 29 ; / = ~ 06 ; / = ~ 14 ; / = ~ 22 ; / = ~ 30 ; / = ~ 07 ; / = ~ 15 ; / = ~ 23 ; / = ~ 08 ; / = ~ 16 ; / = ~ 24 ; / = ~ Sở GD-ĐT Tỉnh Đắc Lắc Phòng Khảo Thí ĐỀ KIỂM TRA Môn : Vật lý Thời Gian : 45 phút Họ tên học sinh : Lớp Nội dung đề số : 001 Thủ tục delete( a,x,k) thực A Xóa xâu x, k kí tự vị trí a B Xóa xâu k, x kí tự vị trí a C Xóa xâu a, x kí tự vị trí k D Xóa xâu a, k kí tự vị trí x Phần tử xâu kí tự có số là? A B C Khơng có số D Do người lập trình Xâu kí tự là? A Tập hợp chữ bảng chữ tiếng anh B Tập hợp chữ chữ số bảng chữ tiếng anh C Dãy kí tự mã ASCII D Mảng kí tự cho đoạn chương trình sau: assign(f1,'to 1.txt'); reset(f1); assign(f2,'to 2.txt'); rewrite(f2); while not eof(f1) đoạn chương trình cho ta biết: A khơng cho biết B liệu chuyển từ tệp to 1.txt sang tệp to 2.txt C liệu chuyển từ tệp to 2.txt sang tệp to 1.txt D tạo tệp to 1.txt to 2.txt Hàm Eof () trả giá trị: A Sai trỏ tệp tới cuối tệp B Đúng trỏ tệp tới cuối tệp C Sai trỏ tệp tới cuối dòng D Đúng trỏ tệp tới cuối dòng Để xuất phần tử mảng hai chiều hình ta viết A For i:=1 to n write(a[i ]); B For i:=1 to n write(a[i ,j]); C For i:=1 to n readln(a[i,j]); D For i:=1 to n write(a[',i,j,']); Cách khai báo sau hợp lệ? A A: array[1 41 5] of integer; B Khơng có câu C A: array[1 4,1 5] of real; D A: array[1… 4,1… 5] of real; E S : strinh; F A: array[1 4],[1 5] of real; G S : =string;** Cách truy xuất tới mảng sau A[ i,j] thực cách khai báo sau đây? H S : string of integer; Để truy cập vào tưng trường ghi ta viết: A . B . C . D . Cho đoạn chương trình sau: i:= 1;s:=0; while i then S:=S +A[i]; đoạn chương trình thực việc nào? A Tính tổng số dương B Tính tổng số mảng C Không in gi D Đếm số lượng phần tử mảng A 12 Các thao tác để nhập liệu từ tệplà: A Assign(f, 'tho.txt'); Rewrite(f); Write(f,a,b,c); Close(F); B Assign(f, 'tho.txt'); Rewrite(f); Write(f, cau tho ); Close(F); C Assign(f, 'tho txt'); Rewrite(f); Write(f,a,b,c); Close(F); D Assign(f, 'tho.txt); Rewrite(f); Write(f,a,b,c); Close(F); 13 Chỉ câu phần đầu hàm : A Function[] ; B Function:; C Function[]:; D Function[]:; 14 Độ dài xâu kí tự tối đa? A kí tự B 16 kí tự C 256 kí tự D 255 kí tự 15 Để đổi chỗ giá trị phần tử I,j mảng chiều A ta viết: A A[i] := Tag; A[i]:=A[j]; A[j] := Tag; B Tag :=A[i]; A[j]:=A[i]; Tag:=A[j]; C Tag :=A[i]; A[i]:=A[j]; A[j]:= Tag; D Tag :=A[i]; A[i]:=A[j]; Tag:=A[j]; 16 Cho đoạn chương trình sau: b:= ' ';{ xâu rỗng} for i:=1 to length(a) if a[ i ] ' ' {dấu cách} then b:=b+a[ i ]; write('ket qua' , b); sau chạy chương trình xâu b có kết A xóa dấu cách đàu tiên xâu a B xóa dấu cách xâu C xóa dấu cách vị trí cuối xâu a D chứa dấu cách xâu a 17 Hàm upcase(S) cho kết là? A Biến S thành chữ thường B Xâu S gồm toàn chữ thường C Xâu S gồm toàn chữ hoa D Chữ in hoa tương ứng với xâu S 18 Gán giá trị cho biến ghi có thể: A Dùng lệnh gán trực tiếp B Gán giá trị cho trường C Tất sai D Cả A B 19 Để tìm vị trí xuất xâu lop xâu A ta viết: A B:= 'lop'; K:=pos(A,B); B K:=pos('lop','lop'); C K:=pos('lop',A); D K:=pos(A,'lop'); 20 Khai báo sau đay đúng? A Type mang1ch = [1 100] of real; B Type mang1ch = [1 100] of read; C Type mang1ch : [1 100] of real; D Type mang1ch = [1….100) of real; 21 Để đếm số chữ số xâu S ,đoạn chương trình sau thực việc này? A D:=0; For i:=1 to n do; If S[i] in['0'….'9'] then d:=d+1;B D:=0; For i:=1 to n do; If (S[i] >='0') and (S[i] < '9') then d:=d+1; C D:=0; For i:=1 to n do; If S[i] in ['0' '9'] then d:=d+1; D D:=0; For i:=1 to n do; If (S[i] >='0' and S[i] ='0' and S[i] ='0') and (S[i] < '9') then d:=d+1; D D:=0; For i:=1 to n do; If S[i] in['0'….'9'] then d:=d+1; 19 Cho đoạn chương trình sau: b:= ' ';{ xâu rỗng} for i:=1 to length(a) if a[ i ] ' ' {dấu cách} then b:=b+a[ i ]; write('ket qua' , b); sau chạy chương trình xâu b có kết A xóa dấu cách xâu B chứa dấu cách xâu a C xóa dấu cách đàu tiên xâu a D xóa dấu cách vị trí cuối xâu a 20 Hàm Eof () trả giá trị: A Sai trỏ tệp tới cuối tệp B Đúng trỏ tệp tới cuối dòng C Đúng trỏ tệp tới cuối tệp D Sai trỏ tệp tới cuối dòng 21 Các phép tốn xâu kí tự là? A Chỉ có phép cộng B Phép ghép xâu, phép so sánh C Phép cộng ,trừ ,nhân, chia D Phép cộng phép trừ 22 Gán giá trị cho biến ghi có thể: A Tất sai B Gán giá trị cho trường C Cả A B D Dùng lệnh gán trực tiếp 23 Các thao tác để nhập liệu từ tệplà: A Assign(f, 'tho txt'); Rewrite(f); Write(f,a,b,c); Close(F); B Assign(f, 'tho.txt'); Rewrite(f); Write(f, cau tho ); Close(F); C Assign(f, 'tho.txt); Rewrite(f); Write(f,a,b,c); Close(F); D Assign(f, 'tho.txt'); Rewrite(f); Write(f,a,b,c); Close(F); 24 Hãy chon câu trả lời cho 'Xâu kí tự so sánh dựa trên:' A Số lượng kí tự khác ting xâu B Độ dài tối đa xâu C Mã kí tự xâu từ trái sang phải D Độ dài thực hai xâu 25 Cho đoạn chương trình sau: i:= 1;s:=0; while i='0') and (S[i] < '9') then d:=d+1; C D:=0; For i:=1 to n do; If (S[i] >='0' and S[i] then S:=S +A[i]; đoạn chương trình thực việc nào? A Tính tổng số mảng B Tính tổng số dương C Khơng in gi D Đếm số lượng phần tử mảng A 21 Với xâu kí tự ta A Tât B Gán biến xâu cho biến xâu C So sánh hai xâu kí tự D Gán kí tự cho biến xâu 22 Độ dài xâu kí tự tối đa? A 255 kí tự B kí tự C 16 kí tự D 256 kí tự 23 Chỉ câu phần đầu hàm : A Function:; B Function[] ; C Function[]:; D Function[]:; 24 Để đổi chỗ giá trị phần tử I,j mảng chiều A ta viết: A A[i] := Tag; A[i]:=A[j]; A[j] := Tag; B Tag :=A[i]; A[i]:=A[j]; Tag:=A[j]; C Tag :=A[i]; A[j]:=A[i]; Tag:=A[j]; D Tag :=A[i]; A[i]:=A[j]; A[j]:= Tag; 25 Xâu có độ dài khơng gọi là? A Xâu không B Xâu rỗng C Xâu trắng D Khơng phải xâu kí tự 26 Các phép tốn xâu kí tự là? A Phép cộng phép trừ B Phép ghép xâu, phép so sánhC Chỉ có phép cộng D Phép cộng ,trừ ,nhân, chia 27 Để truy cập vào tưng trường ghi ta viết: A . B . C . D . 28 Khai báo sau sai? A S: string[256]; B S: string; C S: string[10]; D S: string[100]; 29 Cho đoạn chương trình sau: i:= 1;s:=0; while i