Trong ngoân ngöõ laäp trình bieán ñöôïc duøng ñeå löu tröõ döõ lieäu vaø döõ lieäu ñöôïc bieán löu tröõ coù theå thay ñoåi trong quaù trình thöïc hieän chöông trìnhb. Coù theå xem bieán [r]
(1)PHÒNG GD & ĐT AN LÃO Kiểm tra: 01 tiết Trường THCS AN TÂN Môn : Tin học
Họ tên học sinh : .Năm học: 2009-2010 Lớp : 8A Thời gian: 45 phút
Điểm Lời phê giáo viên Chữ ký
phhs
A Trắc nghiệm (4 điểm)
Câu 1: Hãy chọn phát biểu phát biểu đây:
a. Trong ngơn ngữ lập trình biến dùng để lưu trữ liệu liệu biến lưu trữ thay đổi trình thực chương trình
b. Có thể xem biến “tên” vùng nhớ dành riêng để lưu liệu có kiểu định, giúp người viết chương trình truy cập xác đến liệu
c. Biến lưu liệu người sử dụng nhập vào máy tính cá kết tính trung gian
d. Tất phát biểu nói
Câu 2: Hãy chọn phát biểu phát biểu đây:
a. Để sử dụng được, biến chương trình, ta phải khai báo chúng phần khai báo
b. Ta cần khai báo tên biến mà khơng cần khai báo kiểu liệu, chương trình tự động xác định kiểu liệu mà biến lưu trữ
c. Để khai báo hằng, ta cần khai báo tên kiểu liệu d. Giá trị thay đổi trình thực chương trình Câu 3: Xác định câu lệnh câu lệnh sau đây:
a. if x:=7 then a=b; b. if x=7 then a:=b;
c. if x=7 then a=b; d. if x=7; then a=b;
Câu 4: Trong Pascal, khai báo sau đúng:
a var dtb: real; b var pi:=3.14;
c var r= 30; d const x: real;
Câu 5: Điền từ thích hợp vào chỗ trống:
Câu lệnh lặp có số vòng lặp xác định có dạng:
………<biến đếm>:=<………> to <………> ……… <câu lệnh>; B T ự luận (6 điểm)
Câu 1: Mơ tả thuật tốn: tính tổng N số tự nhiên ? (2 điểm)
Caâu 2: Viết chương trình nhập vào hai số A, B khác nhau, in hình hai số theo thứ tự không giảm dần (3 điểm)
(2)Uses crt;
Var I,j,k: integer; begin
J:=3; k:=3; For i:= to If i mod = then j:= j +1;
K:= k +j;
Writeln(j, ‘ ‘, k); Readln
End
(3)PHÒNG GD & ĐT AN LÃO Kiểm tra: 01 tiết Trường THCS AN TÂN Môn : Tin học
Họ tên học sinh : .Năm học: 2009-2010 Lớp : 8A Thời gian: 45 phút
Điểm Lời phê giáo viên Chữ ký
phhs
A Trắc nghiệm (4 điểm)
Câu 1: Hãy chọn phát biểu phát biểu đây:
a. Ta cần khai báo tên biến mà khơng cần khai báo kiểu liệu, chương trình tự động xác định kiểu liệu mà biến lưu trữ
b. Để sử dụng được, biến chương trình, ta phải khai báo chúng phần khai báo
c. Để khai báo hằng, ta cần khai báo tên kiểu liệu d. Giá trị thay đổi q trình thực chương trình Câu 2: Hãy chọn phát biểu phát biểu đây:
a. Có thể xem biến “tên” vùng nhớ dành riêng để lưu liệu có kiểu định, giúp người viết chương trình truy cập xác đến liệu
b. Trong ngơn ngữ lập trình biến dùng để lưu trữ liệu liệu biến lưu trữ thay đổi trình thực chương trình
c. Biến lưu liệu người sử dụng nhập vào máy tính cá kết tính trung gian
d. Tất phát biểu nói
Câu 3: Xác định câu lệnh câu lệnh sau đây:
a. if x:=5 then a=b; b. if x=5 then a=b;
c. if x=5 then a:=b; d. if x=5; then a=b; Câu 4: Trong Pascal, khai báo sau đúng:
a var dtb: real; b Const pi: real;
c var r = 30; d Const x: real;
Câu 5: Điền từ thích hợp vào chỗ trống:
Câu lệnh lặp có số vòng lặp xác định có dạng:
………<biến đếm>:=<………> to <………> ……… <câu lệnh>; B T ự luận (6 điểm)
Câu 1: Mơ tả thuật tốn tìm số lớn ba số A,B,C ? (2 điểm)
Caâu 2: Viết chương trình nhập vào hai số A, B khác nhau, in hình hai số theo thứ tự giảm dần (3 điểm)
(4)Uses crt;
Var I,j,k: integer; begin
J:=3; k:=3; For i:= to If i mod = then j:= j +1;
K:= k +j;
Writeln(j, ‘ ‘, k); Readln
End
(5)ĐÁP ÁN ĐỀ 1
Câu 1: Thuật tốn tính tổng N số tự nhiên đầu tiên: (2 điểm)
Bước 1: Nhập số A,B,C; (0,25 điểm)
Bước 2: Max A; (0,5 điểm)
Bước 3: Nếu B>Max, Max B; (0,5 điểm)
Bước 4: Nếu C>Max, Max C; (0,5 điểm)
Bước 5: Thơng báo kết kết thúc thuật tốn (0,25 điểm) Câu 2:
Program sap_xep; (1ñ)
uses crt;
var A,B: integer; Begin
clrscr;
write('Nhap so A = '); readln(A); (0.5ñ)
write('Nhap so B = '); readln(B); (0.5ñ)
if A>B then Write(B,’ ‘,A) else write (A,’ ‘,B); (1ñ) readln
end.
Câu 3: Kết in hình: j=5; k=10 ĐÁP ÁN ĐỀ 2
Câu 1: Thuật tốn tính tổng N số tự nhiên đầu tiên: (2 điểm)
Bước 1: SUM 0; i (0,5 điểm)
Bước 2: i i + (0,5 điểm)
Bước 3: Nếu i < n, SUM SUM + i quay lại bước (0,5 điểm) Bước 4: Thông báo kết kết thúc thuật toán (0,5 điểm) Câu 2:
Program sap_xep; (1ñ)
uses crt;
var A,B: integer; Begin
clrscr;
write('Nhap so A = '); readln(A); (0.5ñ)
write('Nhap so B = '); readln(B); (0.5ñ)
if A<B then Write(B,’ ‘,A) else write (A,’ ‘,B); (1ñ) readln
end.