De kthkiibkhtn md2 tin 11

1 Khai báo mảng 1 chiều nào sau đây là không hợp lệ Trường THPT Ngô Gia tự KIỂM TRA HỌC KÌ II Họ Tên TIN HỌC 11 Lớp THỜI GIAN 45 PHÚT I Phần Trắc nghiệm (3đ) (Chọn câu trả lời đúng nhất) 1 Khai báo nà[.]

Trường THPT Ngô Gia tự Họ Tên: ……………………………… Lớp: ………………… I KIỂM TRA HỌC KÌ II TIN HỌC 11 THỜI GIAN 45 PHÚT Phần Trắc nghiệm (3đ) (Chọn câu trả lời nhất) 1: Khai báo sau không hợp lệ For i:= 11 downto if a[i] ‘3’ then A Var B: array[-1 -5] of Real; b:=b+a[i]; writeln(b); End B Var B: array[-1 1] of char; A ‘134134abc’ B ‘124124abc’ C Var B: array[-5 -1] of longint; C ‘12341234abc’ D ‘cba134134’ D Var A: array[1 100] of Boolean; 8: a có kết đoạn chương trình sau: Để mở tệp để đọc a:='tuoi hoc tro'; delete(a,9,4); A Reset(); A xâu rỗng B hoc tro B Reset(); C tuoi hoc D tuoi C Rewrite(); 9: Chương trình sau làm gì? D Rewrite(); Var i, k: byte; a: String; 3: Khai báo sau mảng có tối đa Begin Write(‘Nhap xau:’); Readln(a); phần tử? k:= length(a); Var a:array [1 10,2 5] of byte; for i:=1 to k write(a[i]); A 100 B 50 C 40 D 30 End 4: Đoạn chương trình sau dùng để làm gì? A Nhập xâu, xuất xâu theo thứ tự ngược lại Var a: array[1 10] of integer; i, Post: integer; B Nhập xâu, tính độ dài Begin for i:= to n if a[i] mod = then C Nhập xâu, đảo ngược xâu pos:= pos+1; end D Nhập xâu, xuất xâu xâu A Đếm phần tử có mảng a 10: Khai báo sau cú pháp B Đếm số phần tử mảng a số lẻ A Type mang1c = array [1 100] of byte; C Tính tổng phần tử mảng a B Type mang1c = array [1-100] of byte; D Đếm số phần tử mảng a số chẵn C Type mang1c = array (1 100) of byte; 5: Cho xâu A = ‘Bai tap pascal’; B = ‘ Bai tap D Type 1mang = array [2,9] of byte; chuong 1’ Khẳng định sau 11: Khai báo sau sai cú pháp A A > B B A = B C B > A A Type mang2c = array [10 100,1 10] of char; Một xâu có tối đa kí tự? B Type mang2c = array [1 10;10 100] of char; A 255 B 64 C 128 D 56 C Type mang2c = array [1 100,1 100] of byte; 7: Đoạn chương trình sau cho kết D Type mang2c = array [1 100,1 100] of char; nào? 12: Câu lệnh xóa kí tự cuối xâu a? Var a, b: string; i: integer; A delete(a,1,255) B delete(a,1,length(a)) Begin a:=’12341234abc’; b:= ‘’; C delete(a,length(a),1) D delete(a,255,1) I Phần tự luận (7đ) Cho chương trình sau: Program bai1; Var a,b:ineger; Procedure TBP(var c:integer; x:integer); Begin X:=x*x; C:=c*x; End; Begin A:=2; b:=5; TBP(a,b); Write(‘A=’,A,’B=’,B); End a) Xác định tham số hình thức, tham số thực sự, tham trị, tham biến, biến toàn cục biến cục b) Chương trình thực cơng việc gì? c) Kết hình sau thực chương trình Viết chương trình nhập vào xâu kí tự Đếm xâu có kí tự ‘a’ (khơng phân kí tự hoa thường) thay tất kí tự ‘a’ xâu kí tự ‘B’ (hoa) Vd: s=’a c A d a Abca’ Kq: - có kí tự a (khơng phân biệt Hoa, thường) -Xâu S cuối thay là: ’B c B d B BbcB’ Viết chương trình nhập vào số nguyên N (n