Mô tả:
UBND HUYỆN THANH SƠN
PHÒNG GD&ĐT
ĐỀ CHÍNH THỨC
ĐỀ THI CHỌN HỌC SINH GIỎI LỚP 9 - THCS CẤP HUYÊÊN
NĂM HỌC 2012 - 2013
Môn: Tin học
(Thời gian làm bài 150 phút không kể thời gian giao đề )
( Đề thi có 01 trang )
Bài 1 (4,0 điểm). Khởi động chương trình PASCAL, viết chương trình nhập số tự
nhiên n sao cho 5 < n ≤100, nếu nhập sai yêu cầu nhập lại khi nào nhập đúng thì tính
tổng sn:
Sn
1.2 2.3 3.4
n.(n 1)
...
3.4 4.5 5.6
(n 2)(n 3)
- Lưu bài với tên tê êp tin: D:\THIHUYEN\B1SBDxxx.pas (trong đó xxx là số
báo danh của thí sinh).
Bài 2 (6,0 điểm). Viết chương trình trên ngôn ngữ lập trình PASCAL, nhập vào hai số
tự nhiên x, y sao cho chương trình chỉ cho nhập các số tự nhiên x, y thỏa mãn 4 x
< 53 và 59 < y 121.
- In ra màn hình các số lẻ chia hết cho 3 trong khoảng từ x đến y và đếm có bao
nhiêu số như vậy?
- In ra màn hình các số chính phương m sao cho x < m < y và đếm có bao
nhiêu số m?
- Lưu bài với tên tê p tin: D:\THIHUYEN\B2SBDxxx.pas (trong đó xxx là số
ê
báo danh của thí sinh).
Bài 3 (4,0 điểm). Lập chương trình PASCAL thực hiện yêu cầu sau:
Anh Việt đi chợ mua một mặt hàng có giá trị là N đồng. Trong túi anh Việt có
nhiều tờ tiền với mệnh giá là 100 đồng, 200 đồng và 1000 đồng. Anh Việt có thể có
nhiều cách trả tiền để mua mặt hàng đó (anh Việt chỉ dùng các tờ tiền mà anh có sẵn.
Anh không đưa thừa tiền cho người bán vì người bán không có tiền trả lại).
Yêu cầu: nhập vào từ bàn phím số N (N nguyên và 20)and(i mod 3=0) then
begin
write(i:6);
d: = d+1; end;
writeln;
writeln('Co tat ca:',d,' so le chia het cho 3');
writeln('Cac so chinh phuong lon hon’, x:4,’va nho hon’, y:4, ‘la: ‘);
d:=0;
For i: = x +1 to y -1 do
IF sqr(trunc(sqrt(i))) = i then
Begin write (I: 7); d:=d+1; end;
writeln; writeln(‘ Co tat ca ‘,d:6,’ so chinh phuong’);
readln;
End.
Bô ê Test thử
Dữ liệu vào
3 64
4 64
Dữ liệu ra
Nhap lai x, y thoa man 4<=x< 53 va 59a[j] then
Begin
1,5
tg:= a[i];
a[i]:=a[j];
a[j]:= tg;
End;
Writeln('Mang sau khi da sap xep la');
For i:= 1 to n do Write(a[i]:6);
Writeln;dem:=0;
0,5
Writeln('Nhung so nguyen to trong mang la');
For i:=1 to n do
If (a[i]>=2) and NT(a[i]) then
Begin
0,5
Write(a[i]:7); dem:= dem+1;
End;
0,5
Writeln; Writeln('so phan tu la so nguyen to trong mang la:',dem) ;
Readln;End.
0,5
Ghi chú: Học sinh có thể không sử dụng chương trình con nhưng chạy đúng
kết quả test vẫn cho điểm tối đa.
Bô Ê Test thư
N = 6;a[1]=3; a[2]=-12; a[3]=-789; a[4]=71; a[5]=8; a[6]=3456;
Mang sau khi sap xep: -789 -12
3 8 71
3456
Nhung so nguyen to trong mang
3
71
So phan tu la so nguyen to trong mang la: 2
4
- Xem thêm -