Sở GD&ĐT Tỉnh BRVT Tổ Toán – Tin Trường THPT Nguyễn Văn Cừ.[r]
(1)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)
(2)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);
(3)