Đề 9 ôn thi học sinh giỏi môn Tin học 9 cấp tỉnh
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (94 KB, 6 trang )
ĐỀ THI THỬ SỐ 8
Bài 1. (5 điểm) Nhập từ bàn phím tuổi cha và con (hiện tại tuổi cha lớn
hơn 2 lần tuổi con và tuổi cha hơn tuổi con ít nhất là 25). Đưa ra màn hình
câu trả lời cho câu hỏi "Bao nhiêu năm nữa thì tuổi cha gấp đôi tuổi con"?
Bài 2. (7 điểm) Số nguyên tố ghép
Xét dãy A các số nguyên tố 2, 3, 5, 7, 11, 13, 17, 19,... và dãy B gồm các
số thu được từ dãy A bằng cách ghép hai số liên tiếp trong A: 23, 57, 1113, 1719,
...
Trong dãy B có những phần tử là số nguyên tố. Chẳng hạn 23, 3137, 8389,
157163...
Các số nguyên tố trong dãy B gọi là số nguyên tố ghép.
Yêu cầu: Cho trước số nguyên dương K ≤ 500, hãy tìm số nguyên tố ghép thứ
K.
Dữ liệu vào: Nhập từ bàn phím 1 số nguyên dương K (K ≤ 500)
Kết quả: Gồm duy nhất 1 dịng là số ngun tố ghép thứ K
Ví dụ:
DỮ LIỆU VÀO
3
KẾT QUẢ
8389
Bài 3 (8 điểm) Tìm điểm cực tiểu của mảng hai chiều
Một phần tử được gọi là điểm cực tiểu của mảng 2 chiều A[m.n]
nếu nó khơng lớn hơn các phần tử kề nó
HƯỚNG DẪN ĐỀ THI THỬ SỐ 9
Bài 1.
Program tuoichatuoicon;
Var a,b,t :integer;
Begin
Repeat
writeln('nhap tuoi cha');
readln(a);
writeln('nhap tuoi con');
readln(b);
Until (a-b)>=25;
t:=a-2*b;
writeln('tuoi cha gap doi tuoi cha sau ',t,' nam');
readln;
End.
Bai 2.
program so_NT_ghep;
var i,n,nt1,nt2,k:qword;
FUNCTION nt(n:qword):boolean;
var i,t:qword;
begin
if (n<2) then begin nt:=false;exit; end;
t:=trunc(sqrt(n));
i:=2;
while i<=t do
begin
if n mod i = 0 then
begin
nt:=false;
exit;
end;
i:=i+1;
end;
nt:=nt;
end;
FUNCTION Ghep (x,y:qword):qword;
var s,s1,s2:string;
m:qword;
j:integer;
Begin
str(x,s1);
str(y,s2);
s:=s1+s2;
val(s,m,j);
ghep:=m;
end;
BEGIN
write ('nhap so k = ');readln(k);
i:=1;
n:=1;
while n<=k do
begin
while nt(i)=false do i:=i+1;
nt1:=i;
i:=i+1;
while nt(i)=false do i:=i+1;
nt2:=i;
i:=i+1;
if nt(ghep(nt1,nt2)) then
begin
n:=n+1;
end;
i:=i+1;
end;
writeln ('so nguyen to ghep thu ',k,' la: ',ghep(nt1,nt2));
readln
END.
Bai 3. Thuat toan:
/>Pogram diem_cuc_tieu;
uses crt;
var dem,j,m,n,min,max,i,k:longint;
a:array [0..101,0..101] of longint;
Begin
clrscr;
write ('nhap m= ');readln(m);
write ('nhap n= ');readln(n);
for i:=1 to m do
for j:=1 to n do
begin
write ('nhap cac phan tu a[',i,'','',j,']');
readln (a[i,j]);
end;
for i:=1 to m do
begin
for j:=1 to n do
write (a[i,j]:5);
writeln;
end;
max:=32000;
for i:=1 to n do
begin
a[0,i]:=max;
a[m+1,i]:=max;
end;
//cho hang 0, m+1 nhan gia tri lon nhat//
for i:=1 to m do
begin
a[i,0]:=max;
a[i,n+1]:=max;
end;
//cho cot 0, n+1 nhan gia tri lon nhat//
for i:=1 to m do
for j:=1 to n do
if (a[i,j]
and (a[i,j]<=a[i-1,j+1])
and (a[i,j]<=a[i,j-1])
and (a[i,j]<=a[i,j+1])
and (a[i,j]<=a[i+1,j-1])
and (a[i,j]<=a[i+1,j])
and (a[i,j]<=a[i+1,j+1]) then
writeln ('[',i,',',j,']');
READLN
End.
