Câu 8: Phần thân chương trình bắt đầu bằng từ khóa: Trường THCS Hương Toàn. Tên :.[r]
(1)Đề 1
I/ Khoanh tròn chữ đứng trước phương án em cho đúng: (5 điểm) Câu 1: 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 20 B 15 C 10 D
Câu 2: Lệnh lặp sau đúng?
A For <biến đếm>= <giá trị đầu> to <giá trị cuối> <câu lệnh>; B For <biến đếm>:= <giá trị đầu> to <giá trị cuối> <câu lệnh>; C For <biến đếm>:= <giá trị cuối> to <giá trị đầu> <câu lệnh>; D For <biến đếm>: <giá trị đầu> to <câu lệnh> <giá trị cuối>; Câu 3: 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 4: Vòng lặp While <Điều kiện> <Cõu lệnh>; 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 D Biết trước số lần lặp giới hạn >=100 Câu 5: Câu lệnh pascal sau hợp lệ?
A For i:=100 to writeln(‘A’); B For i:=1.5 to 10.5 writeln(‘A’); C For i= to 10 writeln(‘A’); D For i:= to 10 writeln(‘A’); Câu 6: Hãy tìm hiểu đoạn chương trình sau đây:
i:=1; j:=2; k:=3;
While i<=6 i:=i+1; j:=j+1; k:=k+j; Space:=’ ’;
Write(i,space,j,space,k);
Sau thực đoạn chương trình trên, lệnh Writeln in hình giá trị i, j, k lần lượt bao nhiêu?
A 2,3,4 B 7,2,3 C 7,3,6 D 6,3,7
Câu 7: Trong lệnh lặp for…do Pascal, vòng lặp, biến đếm thay đổi nào? A +1 B +1 -1 C Một giá trị D Một giá trị khác
Câu 8: Phần thân chương trình khóa: Trường THCS Hương Tồn
Tên : Lớp : 8/…
Đề Kiểm Tra Học Kỳ II-2010-2011 Môn Tin Học lớp 8
Thời gian : 45 phút
(2)A.End B.Begin C.Uses D.Var Câu 9: Cú pháp câu lệnh While…do là:
a. While <điều kiện> to <câu lệnh>; c. While <điều kiện> do <câu lệnh>;
b. While <điều kiện> to <câu lệnh1> do <câu lệnh 2>;
d. While <điều kiện>; do <câu lệnh>; Câu 10: Cú pháp khai báo biến mảng Pascal là:
A var <Tên mảng> ; array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; B var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] of <kiểu liệu >; C var <Tên mảng> : array [<chỉ số đầu> <chỉ số cuối>] of <kiểu liệu >; D var <Tên mảng> : array [<chỉ số đầu>…<chỉ số cuối>] for <kiểu liệu >; II/ Điền dấu X vào ô cho phù hợp giải thích sai? (2 điểm)
III/ Viết chương trình giải tốn: (3 điểm)
Viết chương trình tính tổng: S = 1+2+3+…+n Trong n số nguyên nhập từ bàn phím ……… ……… ……… ……… ……… ……… ……… ……… ……… ……… ………
Câu Đúng Sai Giải thích
a) for i=1 to 10 do writeln('A'); b) var X: Array[5…10] Of Char;
c) X:=10; while X=10 do X := X+5;
(3)……… ……… ……… ……… …