S gd & T cao bằng Trờng THPT hà quảng ---------------------- Đề thihọckỳIMôn tin học 11 Thời gian : 60 phút Đề Chẵn Câu 1: (1.5 điểm) Cho khai báo sau: Var i, j , k : integer; A : real ; X: extended ; Hãy cho biết tổng bộ nhớ cần cấp phát để lu trữ giá trị của các biến là bao nhiêu? Câu 2:(3 điểm) Cho các biểu thức sau: a. 1 2 + x yx b. 2abcd + 4z +3 c. 12 + a Ab + a b d. xxba lnsin 22 +++ Hãy viết lại các biểu thức từ dạng toán học sang dạng biểu diễn tơng ứng trong pascal. Câu 3:(1 điểm) Cho đoạn chơng trình sau: For i:=1 to 30 do if (i mod 2 =0) and (i mod 3 = 0) then write(i, ); Hỏi đoạn chơng trình trên đã in ra màn hình nh thế nào? Câu4: (1.5 điểm) Viết khai báo mảng một chiều có 50 phần tử mỗi phần tử là kiểu integer bằng 2 cách trực tiếp và gián tiếp. Câu 5:(2 điểm) Cho đoạn chơng trình sau: Var S: String; vt: byte; begin write( nhap vao mot xau:); readln(s); while pos (em,s) <>0 do begin (1) vt:=pos(em,s); (2) Delete(S,vt,3); ( 3) Insert(anh, s,vt); end; (4) write(s); readln end. Hãy cho biết ý nghĩa của các dòng lệnh (1), (2), (3), (4). Câu 6: Viết chơng trình nhập vào một xâu từ bàn phím và đa ra màn hình xâu thu đợc từ nó bởi việc loại bỏ các dấu cách nếu có. --------------- (Không đợc sử dụng tài liệu)-------------- Đáp án đề chẵn: Câu 1: (1.5 điểm). i (2 byte), j (2 byte), k ( 2 byte), A ( 6 byte), X ( 10 byte) Vậy tổng bộ nhớ cần cấp phát để lu trữ giá trị của các biến là: 2 + 2 +2 + 6 + 10 = 22 byte. Câu 2: (3 điểm). a. (x-2*y)/(x-1) (0.5 điểm). b. 2*a*b*c*d + 4 *z +3 (0.5 điểm). c.(-b +SQRT(A))/(2*a-1) (1 điểm). d.SQRT ( abs (a) + abs (b) + sin (x) + ln (x) ) (1 điểm). hoặc SQRT ( a*a + b*b + sin (x) +ln(x) Câu3: (1 điểm). Đoạn chơng trình trên sẽ in ra các số sau: 6 12 18 24 30 Câu 4: (1.5 điểm). * Khai báo trực tiếp: Var A:array[1 50] of integer ; *Khai báo gián tiếp: Type Mang=array[1 50] of integer ; Var A : Mang; Câu 5 (2 điểm). (1) xác định vị trí của xâu em có trong xâu s. (2) Xoá xâu em trong xâu S đi 3 kí tự kể từ vị trí vt. (3) Chèn xâu anh vào sau S bắt đầu từ vị trí vt. (4) In ra màn hình xâu s. Câu 6: (1 điểm) (dành cho học sinh khá giỏi). Viết đợc khai báo và nhập đợc (0.5 điểm), viết đợc thuật toán và in ra màn hình, đợc (0.5 điểm) Var i,k: byte; a,b: String; begin write(nhap xau:); readln(a); k := length(a); b:=; for i:=1 to k do if a[i]<> then b:= b+a[i]; writeln(ket qua la:,b); readln ; end. . thi học kỳ I Môn tin học 11 Th i gian : 60 phút Đề Chẵn Câu 1: (1.5 i m) Cho khai báo sau: Var i, j , k : integer; A : real ; X: extended ; Hãy cho biết. (i mod 3 = 0) then write (i, ); H i đoạn chơng trình trên đã in ra màn hình nh thế nào? Câu4: (1.5 i m) Viết khai báo mảng một chiều có 50 phần tử mỗi