Bài 2: 3đCho chương trỡnh Pascal sau, chương trỡnh cú một số lỗi, em hóy sửa lỗi để chương trỡnh thực hiện tớnh tổng 2 số a,b.. Bài 3: 4đ Viết chương trỡnh nhập vào N số nguyờn với N...
Trang 1Sở giáo dục và đào tạo hải dơng đề kiểm tra học kỳ II năm học 2009-2010
Trờng thpt mạc đĩnh chi Môn : tin học lớp 11 ( Thời gian : 45 phút)
Đề 1
Bài 1 (3đ): Em hóy nờu cỏch khai bỏo biến tệp văn bản và lấy vớ dụ minh hoạ Trỡnh bày cỏc thủ tục để đọc tệp
Bài 2: (3đ)Cho chương trỡnh Pascal sau, chương trỡnh cú một số lỗi, em hóy sửa lỗi để chương trỡnh thực hiện tớnh tổng 2 số a,b
Program TinhTong;
Var a,b,S:Interger;
Function Tong(x,y :Interger) ;
Begin
Tong : = x+y;
End
Begin
Writeln(‘ Nhap a, b : ); ReadLn(a,b);
S = Tong(a ; b);
Writeln(‘Tong hai so la: S=’,S);
End
Bài 3: (4đ) Viết chương trỡnh nhập vào N số nguyờn (với N<=100)
- Đếm trong dóy cú bao nhiờu số chia hết cho 5
- Tớnh tớch cỏc số chẵn của dóy số
Trang 2§Ò 2
Bài 1 (3đ): Em hãy nêu cách khai báo biến tệp văn bản và lấy ví dụ minh hoạ Trình bày các thủ tục để ghi tệp
Bài 2: (3đ)Cho chương trình Pascal sau, chương trình có một số lỗi, em hãy sửa lỗi để chương trình thực hiện tính tích 2 số a,b
Program TinhTich;
Var a,b,S:Read;
Function Tich(x,y :Read) ;
Begin
Tich : = xy;
End
Begin
S: = Tich(a ; b);
Writeln(‘Tich hai so la: S=’,S);
End
Bài 3:(4đ) Viết chương trình nhập vào N số nguyên (với N<=50)
- Đếm trong dãy có bao nhiêu số chia hết cho 7
- Tính tích các số lẻ của dãy số
Trang 3Sở giáo dục và đào tạo hải dơng đề kiểm tra học kỳ II năm học 2009-2010
Trờng thpt mạc đĩnh chi Môn : tin học lớp 11 ( Thời gian : 45 phút)
Đề 3
Bài 1 (3đ): Xõu là gỡ? Cỏch khai bỏo biến kiểu xõu, cho vớ dụ minh hoạ
Bài 2: (3đ) Cho chương trỡnh Pascal sau, chương trỡnh cú một số lỗi, em hóy sửa lỗi để chương trỡnh thực hiện ghi giỏ trị tớch của biến a, b vào tệp
Var a,b: Byets; T:Integer;
F:text;
Begin
Writeln(‘ Nhap a, b : );
ReadLn(a,b)
T := a b;
Assign(’Bai1.txt’,F);
Reset(F);
WriteLn(F,T);
Close(F);
End
Bài 3: (4đ) Viết chương trỡnh nhập vào N số nguyờn (với N<=200)
- Đếm trong dóy cú bao nhiờu số chia hết cho 9
- Tớnh tổng cỏc số dương của dóy số
Trang 4§Ò 4
Bài 1(3đ):Thế nào là mảng hai chiều Cách khai báo trực tiếp, gián tiếp mảng hai chiều, cho ví
dụ minh hoạ ?
Bài 2: (3đ)Cho chương trình Pascal sau, chương trình có một số lỗi, em hãy sửa lỗi để chương trình thực hiện ghi giá trị hiệu của hai biến a, b vào tệp
Var a,b,Hieu:Read;
F:text;
Begin
Writeln(‘ Nhap a, b : ‘); ReadLn(a,b)
Assign(’Bai1.txt’,F);
Hieu = a – b;
Reset(a);
Read(F,Hieu);
Close(F)
End
Bài 3:(4đ) Viết chương trình nhập vào N số nguyên (với N<=150)
- Đếm trong dãy có bao nhiêu số chia hết cho 3
- Tính tổng các âm của dãy số
Trang 5Sở giáo dục và đào tạo hải dơng đề kiểm tra học kỳ II năm học 2009-2010
Trờng thpt mạc đĩnh chi Môn : tin học lớp 11 ( Thời gian : 45 phút)
Đề 5
Bài 1 (3đ): Dữ liệu kiểu bản ghi dựng để làm gỡ? Cỏch khai bỏo biến kiểu bản ghi, cho vớ dụ
minh hoạ
Bài 2: (3đ)Cho chương trỡnh Pascal sau, chương trỡnh cú một số lỗi, em hóy sửa lỗi để chương trỡnh thực hiện ghi giỏ trị của biến a, b vào tệp
Var a,b:Interger;
F:text;
Begin
Writeln(‘ Nhap a, b : ); ReadLn(a,b);
Assign(’Bai1.txt’,F);
Reset(F);
WriteLn(F,a,b);
Close(a);
End;
Bài 3: (4đ) Viết chương trỡnh nhập vào N số nguyờn (với N<=100)
- Đếm trong dóy cú bao nhiờu số chia hết cho 4
- Tớnh tổng cỏc số chẵn của dóy số
Trang 6§Ò 6 Bài 1:(3đ) Phân loại chương trình con Viết cấu trúc chung của thủ tục và cấu trúc hàm.
Bài 2: (3đ)Cho chương trình Pascal sau, chương trình có một số lỗi, em sửa lỗi để chương trình thực hiện ghi giá trị của biến a, b vào tệp
Var a,b:Read;
F:text;
Begin
Writeln(‘ Nhap a, b : ‘); ReadLn(a b);
Assign(’Bai1.txt’,F);
ReWrite(F);
Read(F,a,b);
Close(a);
End;
Bài 3:(4đ) Viết chương trình nhập vào N số nguyên (với N<=50)
- Đếm trong dãy có bao nhiêu số chia hết cho 6
- Tính tổng các số lẻ của dãy số