SỞ GIÁO DỤC VÀ ĐÀO TẠO PHÚ THỌ TRƯỜNG THPT HẠ HOÀ ĐỀ KIỂM TRA HỌC KÌ II Môn: Tin học 11 Thời gian làm bài: 45 phút 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 Thớ sinh khụng sử dụng tài liệu. Giỏm thị coi thi khụng giải thớch gỡ thờm! Họ và tên học sinh: …….….………………………………… Lớp:………… SỞ GIÁO DỤC VÀ ĐÀO TẠO PHÚ THỌ TRƯỜNG THPT HẠ HOÀ ĐỀ KIỂM TRA HỌC KÌ II Môn: Tin học 11 Thời gian làm bài: 45 phút 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á 50 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á 100 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 cạnh của hình vuông • Chương trình con tính diện tích của hình vuông. • 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 chiều dài cạnh của hình vuông sau đó tính diện tích 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 CHUNHAT.INP gồm nhiều dòng, mỗi dòng chứa 2 số nguyên là cạnh của hình chữ nhật (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 CHUNHAT.OUT mỗi dòng ghi chu vi, diện tích của một hình chữ nhật tương ứng. Hết Thớ sinh khụng sử dụng tài liệu. Giỏm thị coi thi khụng giải thớch gỡ thờm! Họ và tên học sinh: …….….………………………………… Lớp:………… Đề 1 Đề 2 ĐÁP ÁN VÀ BIỂU ĐIỂM - ĐỀ SỐ 1 Câu Nội dung Điểm 1. a - 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 đ 1. b - 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 - 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 - 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: ‘,dt:5:2); End; Close(f1); Close(f2); End. 2,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 đ ĐÁP ÁN VÀ BIỂU ĐIỂM - ĐỀ SỐ 2 Câu Nội dung Điểm 1. a - Khai báo biến: Var S: string[50]; 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 đ 1. b - 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 100:’); 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 - Khai báo biến: Var a: real; 0,25 đ - CTC nhập độ dài cạnh: Procedure nhap(x:real); {có thể ko có tham số} Begin Writeln(‘Moi nhap do dai canh cua hinh vuong:’); Readln(x); End; 0,5 đ - CTC tính diện tích của hình vuông: Function dientich(x:real):real; Begin dientich:=x*x {Hoặc: dientich:=sqr(x)} End; 0,5 đ - Chương trình chính: BEGIN Nhap(a); Writeln(‘Dien tich cua hinh vuong la: ’, dientich(a):5: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 - Khai báo biến: f1,f2:text; a, b, cv, dt:integer; 0,25 đ - CT chính đọc dữ liệu từ tệp và ghi dữ liệu ra tệp: Begin Assign(f1,’CHUNHAT.INP’); reset(f1); Assign(f2,’CHUNHAT.OUT’); rewrite(f2); While not eof(f1) do Begin Read(f1,a,b); Cv:=(a+b)*2; dt:=a*b; Write(f2,’Chu vi: ’,cv:5,’ Dien tich: ‘,dt:5); End; Close(f1); Close(f2); End. 2,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 đ . coi thi khụng giải thớch gỡ thờm! Họ và tên học sinh: …….….………………………………… Lớp:………… Đề 1 Đề 2 ĐÁP ÁN VÀ BIỂU ĐIỂM - ĐỀ SỐ 1 Câu Nội dung Điểm 1. a - Khai báo biến: Var S: string[100]; 0,5 đ - Nhập. liệu. Giỏm thị coi thi khụng giải thớch gỡ thờm! Họ và tên học sinh: …….….………………………………… Lớp:………… SỞ GIÁO DỤC VÀ ĐÀO TẠO PHÚ THỌ TRƯỜNG THPT HẠ HOÀ ĐỀ KIỂM TRA HỌC KÌ II Môn: Tin học 11 Thời gian làm. 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: ‘,dt:5 :2) ; End; Close(f1); Close(f2); End. 2, 0