Cho vÝ dô minh ho¹ víi mçi khai b¸o trªn.[r]
(1)Sở giáo dục v đo tạo phú thä Tr−êng THPT H¹ Hoμ
đề Kiểm tra học kì I 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 cấu trúc câu lệnh khai báo th viện, khai báo tên chơng trình, khai báo khai báo biến Cho ví dụ minh hoạ với khai báo
b) Viết chơng trình tính đa giá trị biểu thức sau:
2 1
5 x + x
-Với x số nguyên đợc nhập từ bàn phím Câu 2: (2,5 điểm)
Hóy lp trỡnh nhp vo cạnh hình chữ nhật từ bàn phím Nếu cạnh hình chữ nhật khơng tính chu vi, diện tích hình chữ nhật đ−a kết hình Nếu khơng đ−a hình thơng báo ‘Ban vua nhap vao canh cua hinh vuong!
Câu 3: (2,5 điểm)
HÃy lập trình tính đa hình tæng sau:
2 2
2
S = a+ a+ + a+ + + a+ n Với a n số nguyên đợc nhËp tõ bµn phÝm. Hết
Thí sinh khơng được 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ì I Mơn: Tin học 11
Thời gian làm bài: 45 phút
Câu 1: (5 ®iĨm)
a) Nêu loại cho ví dụ? Có kiểu liệu chuẩn Pascal cho ví dụ tên kiểu với kiểu liu ú?
b) Viết chơng trình tính đa giá trị biểu thức sau:
2a+ a + -1 a Với a số nguyên đợc nhập từ bàn phím Câu 2: (2,5 điểm)
Hóy lập trình nhập vào bán kính hình trịn Nếu giá trị nhập vào d−ơng tính chu vi, diện tích hình trịn đó đ−a kết hình Nếu khơng đ−a hình thơng báo ‘Gia tri ban vua nhap vao khong thoa man!
Câu 3: (2,5 điểm)
HÃy lập trình tính đa hình tổng sau:
2 2
1 1 1
1 3
S a
a a a a n
= + + + + +
+ + + + Víi a vµ n số nguyên đợc nhập từ bàn phím. ưưưưưưưưưưưưưưưưưưưưưưưưưưưưưưưHtưưưưưưưưưưưưưưưưưưưưưưưưưưưưưưư
Thí sinh khơng được 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 …….…… §Ị
(2)Sở giáo dục v đo tạo phú thọ Tr−êng THPT H¹ Hoμ
đáp án kiểm tra học kì I Mơn: Tin học 11
Câu 1: (5 điểm)
a) Vit ỳng cu trỳc khai báo cho ví dụ đ−ợc điểm ‐ Khai báo th− viện: Uses <Tên th− viện>; Ví d: Uses crt;
Khai báo tên chơng trình: Program <Tên chơng trình>; Ví dụ: Program Tinh_tong; Khai báo hằng: Const <Tên hằng> = <Giá trị> ; Ví dô: Const p=3.14;
‐ Khai báo biến: Var <Danh sách tên biến>: <Kiểu liệu>; Ví dụ: Var a,b,c:real; b) Ch−ơng trình viết đ−ợc điểm
program tinh_gia_tri_bieu_thuc; uses crt;
var x:Integer; f:real; begin
clrscr;
write('Moi nhap so nguyen:'); readln(x);
f:=(2*sqr(x)+3*x1)/5;
writeln('Ket qua cua bieu thuc la: ',f:6:2); readln
end
Câu 2: Ch−ơng trình viết đ−ợc 2,5 điểm Program hinh_chu_nhat;
uses crt;
var a,b,s,cv:real; Begin
clrscr;
write('Moi nhap do dai 2 canh HCN: ');
readln(a,b); if a<>b then
begin
s:=a*b; cv:=(a+b)*2; writeln('Dien tich HCN: ',s:6:2);
writeln('Chu vi HCN: ',cv:6:2); end
else writeln('Ban vua nhap vao 2 canh cua hinh vuong!'); readln End Câu 3: Ch−ơng trình viết đ−ợc 2,5 điểm Program Tinh_tong;
uses crt;
var i,a,n:integer; s:real;
Begin clrscr;
write('Moi nhap gia tri cua a va n:(a,n>0) ');
readln(a,n); s:=2*a;
for i:=1 to n do
s:=s+sqrt(a+sqr(i));
writeln('Gia tri cua tong S= ',s:6:2); readln
(3)Sở giáo dục v đo tạo phú thọ Tr−êng THPT H¹ Hoμ
đáp án kiểm tra học kì I Mơn: Tin học 11
C©u 1: (5 ®iĨm)
a) Nêu đ−ợc loại hằng, kiểu liệu chuẩn cho ví dụ đ−ợc điểm ‐ Có loại hằng: Hằng số học, Ví dụ: 120, 255, 125.5
H»ng Logic, VÝ dơ: True, false
H»ng X©u, VÝ dơ: ‘Moi nhap dai canh tam giac’ ‐ Cã kiĨu d÷ liƯu chn Pascal:
Sè nguyªn: byte, integer, word, Sè thùc: real,extended
KiÓu kÝ tù: char KiÓu Logic: Boolean
b) Ch−ơng trình viết đ−ợc điểm
program Tinh_gia_tri_bieu_thuc; uses crt;
var a:integer; f:real; begin
clrscr;
write('Moi ban nhap gia tri nguyen vao: '); readln(a);
f:=2*a+sqrt(sqr(a)+1)‐abs(a);
writeln('Gia tri cua bieu thuc la: ',f:6:2); readln
end
Câu 2: Ch−ơng trình viết đ−ợc 2,5 điểm
program hinh_tron; uses crt;
var r,dt,cv:real; const pi=3.14; begin
clrscr;
write('Moi nhap ban kinh hinh tron: '); readln(r);
if r>0 then begin
dt:=pi*sqr(r); cv:=2*pi*r;
writeln('Dien tich hinh tron: ',dt:6:2); writeln('Chu vi hinh tron: ',cv:6:2); end
else writeln('Gia tri ban nhap khong thoa man!');
readln end
Câu 3: Ch−ơng trình viết đ−ợc 2,5 điểm
program Tinh_tong; uses crt;
var i,a,n:integer; s:real;
begin clrscr;
write('Moi nhap gia tri cua a va n:(a,n>0)');
readln(a,n); s:=a;
for i:=1 to n s:=s+1/(a+sqr(i));
writeln('Gia tri cua tong S= ',s:6:2); readln