Trường THCS Quang Trung Lớp: -Họ tên: Điểm ĐỀ THI LẠI (Năm học 2009 – 2010) Môn: Tin học Lời phê ĐỀ BÀI: A TRẮC NGHIỆM (4 điểm) (Thời gian làm 15 phút) Khoanh tròn chữ đứng trước phương án em cho đúng: Câu 1: Kết phép so sánh: A Chỉ có giá trị B Chỉ có giá trị sai C Có thể có giá trị giá trị sai D Đồng thời nhận giá trị giá trị sai Câu 2: Các phần tử mảng: A Phải kiểu liệu B Phải khác kiểu liệu C Phải có giá trị D Có thể kiểu liệu khác kiểu liệu Câu 3: Lệnh lặp sau đúng? A For = to ; B For := to ; C For := to ; D For : to ; Câu 4: Vòng lặp While ; vòng lặp: A Chưa biết trước số lần lặp B Biết trước số lần lặp C Biết trước số lần lặp giới hạn =100 Câu 5: Sau thực đoạn chương trình sau, giá trị biến S bao nhiêu: s:=0; for i:=1 to s := s+i; A.45 B 55 C 15 D 51 Câu 6: Với ngôn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 x:=x+1; biến đếm i phải khai báo kiểu liệu gì? A Interger; B real; C string D Tất kiểu Câu 7: Chọn khai báo hợp lệ: A Var a,b: array[1 n] of real; C Var a,b: array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 8: Trong câu lệnh lặp for i:=1 to 12 Write(‘A’); lệnh Write(‘A’) thực lần (nói cách khác, vòng lặp thực hiện?) A Không lần B lần C 12 lần - - D lần Trường THCS Quang Trung Lớp: -Họ tên: - ĐỀ THI LẠI (Năm học 2009 – 2010) Môn: Tin học Điểm Lời phê B Phần tự luận: (Thời gian làm 30 phút) Câu 1: Em viết cú pháp câu lệnh lặp với số lần chưa biết trước giải thích thành phần (2 đ) Câu 2/ Gạch chân chân câu lệnh em cho sai viết lại cho (4 đ) Program Tim_So_Lon_Nhat; Var n:i: integer; SO : array [1 100] of intege ; Begen Clrscr; Writeln(‘Ban muon nhap bao nhieu phan tu’); for i=1 to n begin Writeln(‘Hay nhap phan tu thu’, i); realn (SO[i]); end; fo i:=2 to n if max >SO[i] them max := SO[i] Write(‘so lon nhat la:’, max ); Readln; End - - ĐÁP ÁN VÀ BIỂU ĐIỂM A Phần trắc mghiệm (3 điểm) Khoanh tròn chữ đứng trước phương án đúng: Đúng câu o,5 điểm Câu Câu Câu Câu Câu Câu Câu Câu C A B A C A B C B Phần tự luận (6 điểm) Câu 1: (2 điểm) - While ; Câu 2: Dịch sửa lỗi chương trình (4 điểm) Program Tim_So_Lon_Nhat; Program Tim_So_Lon_Nhat; Var n:i: integer; Var n,i: integer; SO : array [1 100] of intege ; SO : array [1 100] of integer ; Begen Begin Clrscr; Clrscr; Writeln(‘Ban muon nhap bao nhieu phan Writeln(‘Ban muon nhap bao nhieu phan tu’); tu’); for i=1 to n for i:=1 to n begin begin Writeln(‘Hay nhap phan tu thu’, i); realn (SO[i]); Writeln(‘Hay nhap phan tu thu’, i); end; readln (SO[i]); fo i:=2 to n end; if max >SO[i] them max := SO[i] for i:=2 to n Write(‘so lon nhat la:’, max ); if max >SO[i] then max := SO[i] Readln; Write(‘so lon nhat la:’, max ); End Readln; End - - ... lần Trường THCS Quang Trung Lớp: -Họ tên: - ĐỀ THI LẠI (Năm học 2009 – 2010) Môn: Tin học Điểm Lời phê B Phần tự luận: (Thời gian làm 30 phút) Câu 1: Em viết cú... array[1 : n] of Integer; B Var a,b: array[1 100] of real; D Var a,b: array[1 … 100] of real; Câu 8: Trong câu lệnh lặp for i:=1 to 12 Write(‘A’); lệnh Write(‘A’) thực lần (nói cách khác, vòng lặp