De thi HKII 2012 co dap an

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

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

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

Câu (3đ)Cho biết kết 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 (3đ): Viết chương trình tính n!(giai thừa) (n<=30) Câu (3đ): Cho file ‘Max.Inp’ gồm dòng :

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

Dòng 2: chứa n số nguyên, số cách kí tự trắng

Hãy tìm giá trị lớn dãy số dòng Kết lưu vào file ‘Max.Out’ Câu (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

a) Tìm sửa lỗi chương trình (viết lại chương trình)

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

Đáp án Câu 1: Mỗi ý 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 phần

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

Phần xử lý điểm Sai 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 Gt:=Gt*i; End;

Giaithua:=Gt; End;

Câu Gồm phần

Phần khai báo 0.75đ, phần đọc liệu 0.75 điểm, phần tìm max 0.75 ghi file 0.75điểm Mỗi phần Sai ý 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 read(f,A[i]); Close(f);

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

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

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

Câu 4: lỗi sai ý 0.25đ, cho biết kết 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);