De thi HKII tin hoc 11

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

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?


Giá trị st
Thao tác
Kết quả

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)
?


Câu 2. (3đ): Viết chương trình con tính n!(giai thừa). (n<=30)

Câu 3. (3đ): Cho file ‘Max.Inp’ gồm 2 dòng :
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’

Câu 4. (1đ): 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.


Tìm và sửa lỗi trong chương trình trên. (viết lại chương trình)
Với n=3, x=8 thì chương trình sẽ ghi trên màn hình kết quả là bao nhiêu?
(Hết.(


Đáp án
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);
Readln;
End.


Với n=3,x=8 thì chương trình cho kết quả là 2.00