đề thi HK 2 pro

Chia sẻ bởi Phạm Văn Thạch | Ngày 17/10/2018 | 31

Chia sẻ tài liệu: đề thi HK 2 pro thuộc Tin học 8

Nội dung tài liệu:

PHÒNG GD TP BIÊN HÒA CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
ĐỘC LẬP-TỰ DO-HẠNH PHÚC
---------((--------

THI HỌC KÌ 2 MÔN TIN HỌC- NĂM HỌC 2008-2009
Thời gian: 45 phút.
ĐỀ CHÍNH THỨC: Đề 1.
I. TRẮC NGHIỆM (2 điểm)
Câu 1: Cho đoạn chương trình sau:
S:=0;i:=1;
While i<=n do
Begin
S:=S+1/i;
i:=i+1;
End;
Sau khi thực hiện đoạn chương trình với n=2 , giá trị của S là
A. 1 B. 1.5 C. 2 D.Vòng lặp vô tận
Câu 2: Để khai báo biến a gồm 10 phần tử , mỗi phần tử của dãy là một biến có kiểu dữ liệu là real, ta khai báo.
A. var a:array [10] of real;
B. var a: array[1:10] of real;
C. var a: array[1:10] of real;
D. var a: array[1..10] of real;
Câu 3: Hãy chọn câu đúng trong các câu sau.
Cho đoạn chương trình
Var a: array[1..10] of integer;
i: integer;
begin
a[1]:=1;
for i:=2 to 5 do a[i]:=2*a[i-1];
end;
sau khi thực hiện chương trình
A. 2 B. 4 C. 8 D. 16
Câu 4: Cho đoạn chương trình sau:
S:=0;
For i:=1 to 5 do s:=s+i;
Sau khi thực hiện chương trình , kết quả bằng.
A. 20 B. 15
C. 10 D. 0

II. TỰ LUẬN (8 điểm)
Câu 1: Một máy tính có password là một xâu kí tự “THD”.Nếu người sử dụng nhập đúng password thì máy cho truy nhập thông tin. Nếu không sẽ yêu cầu nhập lại password cho đến khi đúng. Viết chương trình hoàn chỉnh để có password trên.

Câu 2: Viết chương trình hoàn chỉnh nhập vào một dãy vừa số lẻ vừa số chẳn. tìm giá trị lẻ lớn nhất trong dãy.
-----------Hết-----------


Đáp án Đề 1:
I. TRẮC NGHIỆM (2 điểm)
Câu 1: B
Câu 2: D
Câu 3: D.
Câu 4: B
II. TỰ LUẬN (8 điểm)
Câu 1: (4 điểm)
Var n:string;
Const a=’THD’;
Begin
Write(‘nhap n=’);
Readln(n);
While a<>n do
Begin
Write(‘Chua nhap dung pass’);
Write(‘Ban hay nhap lai’);
Readln(n);
End;
Writeln(‘Ten truong: Trung THCS Trang Hung Dao’);
Writeln(‘Dia chi: Bien Hoa- Dong nai’);
Readln;
End.

Câu 2 (4điểm)
Var a,b:array[1..100] of integer;
T,n,i: integer;
Begin
Write(‘nhap do dai day n=’); readln(n);
For i:= 1 to n do
Begin
Write(‘nhap a[‘,i,’]=’);
Readln(a[i]);
End;
For i:=1 to n do
If a[i] mod 2 <>0 then
Begin
T:=T+1;
b[T]:=a[i];
end;
max:=b[1];
for i:=2 to n do if max writeln(‘so le lon nhat trong day’, max);
readln;
end.
PHÒNG GD TP BIÊN HÒA CỘNG HÒA XÃ HỘI CHỦ NGHĨA VIỆT NAM
ĐỘC LẬP-TỰ DO-HẠNH PHÚC
---------((--------

THI HỌC KÌ 2 MÔN TIN HỌC NĂM HỌC 2008-2009
Thời gian: 45 phút.
ĐỀ CHÍNH THỨC: Đề 2.
I. TRẮC NGHIỆM (2 điểm)
Câu 1: Cho đoạn chương trình sau:
S:=0;
For i:=1 to 5 do s:=s+i;
Sau khi thực hiện chương
* Một số tài liệu cũ có thể bị lỗi font khi hiển thị do dùng bộ mã không phải Unikey ...

Người chia sẻ: Phạm Văn Thạch
Dung lượng: 11,08KB| Lượt tài: 1
Loại file: rar
Nguồn : Chưa rõ
(Tài liệu chưa được thẩm định)