1 TIET LAN 2_KI II

SỞ GD & ĐT HẢI PHÒNG
TRƯỜNG THPT CÁT HẢI




Họ tên người ra đề: Bùi Thu Hằng
ĐỀ KIỂM TRA 1 TIẾT KỲ II LỚP 11
Năm học: 2011 – 2012
Môn: Tin học
Thời gian làm bài: 45 phút
(Đề này gồm 3 câu, 1 trang )


Câu 1: (5 điểm)
a) Hãy viết một chương trình nhập vào từ bàn phím một xâu kí tự độ dài không quá 100 kí tự sau đó in ra màn hình chiều dài của xâu vừa nhập.
b) Hãy viết một chương trình nhập vào từ bàn phím mảng một chiều các số nguyên (không quá 50 phần tử). Sau đó in ra màn hình các phần tử của mảng vừa nhập.
Câu 2: (2,5 điểm) Viết chương trình thực hiện các việc sau:
Chương trình con nhập vào độ dài 2 cạnh của hình chữ nhật.
Chương trình con tính chu vi của hình chữ nhật.
Chương trình chính sử dụng các chương trình con đã viết thực hiện việc nhập vào độ dài cạnh của hình chữ nhật sau đó tính chu vi và đưa kết quả ra màn hình.
Câu 3: (2,5 điểm)
Viết chương trình đọc dữ liệu vào từ tệp HINHTRON.IN gồm các số nguyên là bán kính của hình tròn (các số phân cách nhau bởi 1 dấu cách). Tính chu vi, diện tích rồi ghi kết quả ra tệp HINHTRON.OU mỗi dòng ghi chu vi, diện tích của một hình tròn tương ứng.

-----------------------------------Hết-----------------------------------


SỞ GD & ĐT HẢI PHÒNG
TRƯỜNG THPT CÁT HẢI




HƯỚNG DẪN CHẤM ĐỀ KIỂM TRA 1 TIẾT HỌC KỲ II LỚP 11
Năm học: 2011 – 2012
Môn: Tin học
(Hướng dẫn này gồm 2 trang )


Câu
Nội dung
Điểm

1(5 điểm)

- Khai báo biến: Var S: string[100];
0,5 đ


- Nhập vào xâu: write(‘Moi nhap xau:’); readln(s);
0,5 đ


- In ra chiều dài xâu: Writeln(‘Do dai cua xau la: ’,length(s));
0,5 đ


- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…)
0,5 đ


- Khai báo biến: Var i, n: integer; A:array[1..100] of integer;
0,5 đ


- Nhập mảng: writeln(‘Nhap so ptu cua mang nhỏ hơn 50:’); readln(n);
For i:=1 to n do
Begin write(‘a[‘,i,’]=’);
Readln(a[i]);
End;
1,5 đ


- In ra mảng: Writeln(‘Mang vua nhap la:’);
For i:=1 to n do write(a[i]:5);
0,5 đ


- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…)
0,5 đ

2(2.5 điểm)

- Khai báo biến: Var a,b: real;
0,25 đ


- CTC nhập độ dài cạnh:
Procedure nhap(x,y:real); {có thể ko có tham số}
Begin Writeln(‘Moi nhap do dai 2 canh cua HCN:’);
Readln(x,y);
End;
0,5 đ


- CTC tính chu vi của HCN:
Function chuvi(x,y:real):real;
Begin
Chuvi:=(x+y)*2;
End;
0,5 đ


- Chương trình chính:
BEGIN
Nhap(a,b);
Writeln(‘Chu vi cua HCN la: ’, chuvi(a,b):4:2);
Readln
END.
1,0 đ


- Chương trình hoàn chỉnh, trình bày tốt (câu lệnh thông báo, in ra…)
0,25 đ

3(2.5 điểm)

- Khai báo biến:
f1,f2:text; r:integer; cv,dt:real;
0,25 đ


- CT chính đọc dữ liệu từ tệp và ghi dữ liệu ra tệp:
Begin
Assign(f1,’HINHTRON.IN’); reset(f1);
Assign(f2,’HINHTRON.OU’); rewrite(f2);
While not eof(f1) do
Begin
Read(f1,r);
Cv:=2*3.14*r; dt:=3.14*r*r;
Write(f2,’Chu vi: ’,cv:5:2,’ Dien tich