De thi HKII 2012 co dap an

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

Sở GD&ĐT Tỉnh BRVT Tổ Toán – Tin
Trường THPT Nguyễn Văn Cừ

<b>ĐỀ THI HKII – 2012 Môn Tin 11 – Thời gian: 45 phút</b>

<b>Câu 1. (3đ)Cho biết kết quả của các thao tác sau với chuỗi st cho tương ứng?</b>

<b>Giá trị st</b> <b>Thao tác</b> <b>Kết quả</b>

a) ‘Hay luon biet dat minh vao’ Length(st) ?

b) ‘vai tro va vi tri cua nguoi khac’ Delete(st,9,10) ?

c) ‘de suy nghi va hanh dong cho dung’ Pos(‘ng’,st) ?

d) ‘hoc hoc nua hoc mai’ Copy(st,5,7) ?

<b>Câu 2. </b>

<b>(3đ):</b>

Viết chương trình con tính n!(giai thừa). (n<=30)
<b>Câu 3. (3đ): Cho file ‘Max.Inp’ gồm 2 dòng :</b>

Dòng 1: chứa số nguyên n (n ≤ 100)

Dòng 2: chứa n số nguyên, mỗi số cách nhau 1 kí tự trắng.

Hãy tìm giá trị lớn nhất trong dãy số ở dòng 2. Kết quả lưu vào file ‘Max.Out’
<b>Câu 4. (1đ)</b>: Cho chương trình sau

Program cbnx;
Uses crt;
Var x: Real;
n: Word;

Function CBN(a:real,b:word):integer;
Var S:real;

Begin

S:=EXP(1/b*LN(a));
CBN:=x;

End;

BEGIN
Clrscr;

Write('Nhap vao n= '); Readln(n);
Write('Nhap vao x= '); Readln(x);
Writeln(CBN(x,n):0:2);

Readln;
End.

a) Tìm và sửa lỗi trong chương trình trên. (viết lại chương trình)

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

Sở GD&ĐT Tỉnh BRVT Tổ Toán – Tin
Trường THPT Nguyễn Văn Cừ

<b>Đáp án</b>
Câu 1: Mỗi ý đúng được 0.75 điểm

Length(st)=26 Delete(st,9,10) ‘vai tro cua nguoi khac’ Pos(‘ng’,st)=8 Copy(st,5,7)=’hoc nua’

Câu 2: Gồm 3 phần

Cấu trúc tên chương trình và các tham số 1 điểm
Phần khai báo biến 1 điểm

Phần xử lý 1 điểm
Sai 1 lỗi trừ 0.5 điểm

Function Giaithua(x:byte):longint;
Var Gt:longint;

i:byte;
Begin

If x=0 then gt:=1
Else Begin

Gt:=1;

For i:=1 to x do Gt:=Gt*i;
End;

Giaithua:=Gt;
End;

Câu 3 Gồm 4 phần

Phần khai báo 0.75đ, phần đọc dữ liệu 0.75 điểm, phần tìm max 0.75 và ghi ra file 0.75điểm. Mỗi phần Sai 1 ý
trừ 0.25 điểm

Program tep;
Uses crt;
Var n,i:byte;

A:array[1..100] of integer;
f:text;
max:integer;
Begin
Assign(f,’Max.inp’);
Reset(f);
Readln(f,n);

For i:=1 to n do read(f,A[i]);
Close(f);

Max:=A[1];
For i:=2 to n do

If A[i] > max then max:=A[i];
Assign(f,’Max.out’);

Rewrite(f);
Write(f,max);
Close(f);
End.

Câu 4: 3 lỗi sai mỗi ý được 0.25đ, cho biết kết quả đúng được 0.25đ

Program cbnx;

Uses crt;
Var x: Real;
n: Word;
Function CBN(a:real;b:word):real;
Var S:real;
Begin
S:=EXP(1/b*LN(a));
CBN:=S;
End;
BEGIN
Clrscr;

Write('Nhap vao n= '); Readln(n);
Write('Nhap vao x= '); Readln(x);
Writeln(CBN(x,n):0:2);

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3></div>

<!--links-->