Đáp án Đề thi tin học trẻ không chuyên tỉnh Hải Dương năm 2009 khối THPT

Câu 1: (Đề chính thức THPT)
Viết chơng trình nhập vào độ dài ba cạnh của một tam giác và tính
chu vi, diện tích của tam giác đó?
Program Chu_vi_Dien_tich;
uses crt;
var a,b,c,cv,dt,P: real;
Begin
clrscr;
writeln('Nhap do dai canh 1 cua tam giac a = : '); readln(a);
writeln('Nhap do dai canh 2 cua tam giac b = : '); readln(b);
writeln('Nhap do dai canh3 cua tam giac c = : '); readln(c);
cv:=a+b+c; {cv: la chu vi cua tam giac}
P:=cv/2;
dt:=sqrt(P*(P-a)*(P-b)*(P-c)); {dt: la dien tich cua tam giac}
writeln('Chu vi tam giac can tim la :', cv:10:2);
writeln('Dien tich tam giac can tim la :',dt:10:2);
readln
end.
Câu 2: (Đề chính thức THPT)
Lập trình nhập từ bàn phím bảng số nguyên A có kích thớc 10 x 10,
thực hiện tính và đa ra màn hình:
1. Tính tổng các phần tử trên đờng chéo chính và đờng chéo phụ?
2. Sắp xếp các phần tử của hàng theo thứ tự tăng dần?
3. Kiểm tra đếm trong bảng có bao nhiêu phần tử chia hết cho 3, hiển thị
ra màn các phần tử đó?
program Cau_2;
var b: array[1 10,1 10] of integer;
i,j,k,p,tc,tp,t,d: integer;
begin
writeln('nhap cac phan tu cua mang theo dong: ');
for i:=1 to10 do

begin
for j:=1 to 10 do readln(b[i,j]);
writeln;
end;
{phan 1: Tính tổng các phần tử}
tc:=0; tp:=0;
for i:=1 to 10 do
begin
j:=i;
tc:=tc + b[i,j];
end;
for i:=10 downto 1 do
begin
j:=11-i;
tp:=tp + b[i,j]:
end;
t:=tc + tp;
writeln('tong hai duong cheo la: ',t);

{Phan 2: Sắp xếp các phần tử theo thứ tự tăng dần}
for j:=1 to 10 do
begin
for k:=10 downto 2 do
for i:=1 to (k-1) do
if (b[i,j]>b[i+1,j]) then
begin
p:=b[i,j];
b[i,j]:=b[i+1,j];
b[i+1,j]:=p;
end;

writeln('cac hang duoc sap xep: ');
for i:=1 to 10 do
begin
write (b[i,j]:4);
writeln;
end;

{Phan 3: Kiểm tra đếm trong bảng có bao nhiêu phần tử chia hết cho 3}
d:=0;
for i:=1 to 10 do
for j:=1 to 10 do
if (b[i,j] mod 3 = 0) then d:=d+1;
writeln('so phan tu cua mang chia het cho 3 la: ',d);
readln
end.
Câu 3: (Đề chính thức THPT)
Thiết lập chế độ đồ hoạ mô phỏng quả bóng tròn màu đỏ chuyển
động đập vào các cạnh của màn hình dới một góc 45
0
?
Program cau3;
uses crt,graph;
var gd,gm,a,b,r: integer;
dx,dy: integer;
Begin
gd:=0;
initgraph(gd,gm,'C:\BIN\BGI');
r:=20; a:=320; b:=240; dx:=2; dy:=2;
Repeat
Setcolor(red); {Thiet lap ve hinh tron rong voi mau vien mau do}

Circle(a,b,r);
Delay(100);
Setcolor(black); {Thiet lap ve hinh tron rong voi mau vien mau den
cung voi mau nen cua man hinh}
Circle(a,b,r);
a:=a+dx;
b:=b+dy;{Thiet lap cho hinh tron chuyen dong dap vao canh cua
tam giac}
If(b < r) then dy:=2;
If(a > 640 - r) then dx:=-2;
If(b > 480 - r) then dy:=-2;
If (a < r) then dx:=2;
Until keypressed;
closegraph;
readln
end.
Câu 2: ((Đề dự bị THPT))
Viết chơng trình tính giá trị của tổng X(N) = 1
3
+ 3
3
+ 5
3
+ + (2N +
1)
3
, với N lần lợt 0, 1, 2, 3, , , chừng nào X(N) còn nhỏ hơn 2 x 10
9
. Đa ra
các giá trị X(N) ra màn hình.

Program gia_tri_tong;
const E=2000000000;
uses crt;
var n, tong, i: integer;
Function mu(a:integer): integer;
var i,A:integer,k;
Begin
k:=1;
for i:=1 to 3 do
k:=k*a;
mu:=k;
end;
begin
write('nhap n:');
readln(n);
tong:=1;
While tong<=E do
Begin
for i:=1 to n do
tong:=tong(n-1)+mu(2n-1);
n:=n+1;
end;
writeln('gia tri tong can tim la:', tong:10);
readln
end.
Câu 1: (Đề chính thức THCS)
Nhập vào một dãy số nguyên dơng gồm 10 số đợc nhập vào từ bàn
phím, thực hiện tính và đa ra màn hình:
Tính tổng các phần tử trong dãy số?
Đếm và tính tổng các số chẵn, số lẻ?

Program Tinh_tong_dem;
uses crt;
var A: array [1 10] of integer;
i,n,S,d1,d2,S1,S2: integer;
Begin
clrscr;
write('Nhap so phan tu trong mang:');
readln(n);
for i:=1 to n do
Begin
write('Cho A[',i,']=');
readln(A[i]);
end;
S:=0;d1:=0;d2:=0;S1:=0;S2:=0;
for i:=1 to n do
S:=S+A[i];
for i:=1 to n do
begin
If (A[i] div 2 = 0) then
begin
S1:=S1+A[i];
d1:=d1+1;
end
else
Begin
S2:=S2+A[i];
d2:=d2+1;
end;
end;
writeln('Tong cac phan tu trong day so :',S);

writeln('So cac phan tu chan trong day so nguyen:', d1, 'Tong cac phan tu
chan trong day la: ',S1);
writeln('So cac phan tu le trong day so nguyen:', d2, 'Tong cac phan tu le
trong day la: ',S2);
readln
end.
Câu 3: ((Đề chính thức THCS))
Cho một dãy số gồm 10 phần tử (X1, X2, X3, , X10)
1. Nhập giá trị các phần tử trong dãy số?
2. Sắp xếp các phần tử trong dãy số theo chiều tăng dần?
3. Tìm vị trí phần tử trong dãy số có giá trị = 25 theo phơng pháp tìm
kiếm nhị phân (Binary Search)?
Program cau6;
{uses crt;}
var A: array[1 20] of integer;
i,j,n,k,Dau,cuoi,giua,tg: integer;
Tim_thay:boolean;
begin
{Phan 1: Nhập giá trị các phần tử trong dãy số}
write('nhap so phan tu trong day so:');
readln(n);
for i:=1 to n do
Begin
writeln('Cho A[',i,']= ');
readln(a[i]);
end;
{Phan 2: S¾p xÕp c¸c phÇn tö trong d·y sè theo chiÒu t¨ng dÇn}
For j:=N downto n do
For i:=1 to j -1 do
If A[i]> A[j] then

begin
tg:=A[i];
A[i]:=A[i+1];
A[i+1]:=tg;
end;
writeln('Day so duoc sap xep la:');
For i:=1 to N do Write(A[i]:4);
{Phan 3: T×m vÞ trÝ phÇn tö trong d·y sè }
writeln('nhap gia tri k can tim:');
readln(k);
Dau:=1; Cuoi:=n; Tim_thay:=false;
While (dau <= Cuoi) and not (tim_thay) do
begin
Giua:=(dau+cuoi)div 2 ;
if A[giua]=k then
tim_thay:=true
else
if A[giua]>k then Cuoi:=Giua -1
else Dau:=Giua +1;
end;
if Tim_thay then
writeln('Chi so can tim la', Giua)
else
writeln('Khong tim thay');
readln
end.
C©u 2: ((§Ò dù bÞ THCS))
Lập trình giải phương trình bậc hai ax
2
+ bx + c = 0 (ẩn x)

(hệ số a, b, c là các số nguyên dương).
Program Cau7;
{ uses crt;}
var a,b,c: integer; delta,x1,x2: real;
begin
write('nhap vao he so cua phuong trinh: ');
readln(a,b,c);
If a = 0 then
Begin
writeln('Quay tro lai giai phuong trinh bac nhat !');
if b=0 then
begin
if c=0 then
writeln('Phuong trinh vo so nghiem')
else
writeln('Phuong trinh vo nghiem')
end
else
write('Phuong trinh co nghiem ',-c/b);
end
else
begin
delta:=b*b-4*a*c;
if delta=0 then
begin
x1:=-b/(2*a);
writeln('phuong trinh co 2 nghiem kep :', x1:10:4)
end
else
begin

if delta > 0 then
begin
writeln('Phuong trinh co 2 nghiem phan biet :');
x1:=(-b+sqrt(delta))/(2*a);
x2:=(-b-sqrt(delta))/(2*a);
writeln('nghiem thu nhat :',x1:10:4);
writeln('nghiem thu hai :',x2:10:4);
end
else
writeln('Phuong trinh vo nghiem');
end;
end;
readln
end.
C©u 3: (§Ò dù bÞ THCS)
Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535), phân tích số vừa nhập
thành các thừa số nguyên tố, nếu số vừa nhập là số nguyên tố thì chỉ thông
báo ra màn hình đây là số nguyên tố.
VÝ dụ:
- Nếu số vừa nhập là 300, thì in ra màn hình 300 = 2. 2. 3. 5. 5
- Nếu số vừa nhập là 307, thì in ra màn hình “307 là số nguyên tố”
Program So_TN;
var d,m,k : integer;
Function kt(k: integer): Boolean;
Var i: integer;
begin
kt:=False;
if k<= 1 then exit;
i:=2;
While k mod i<>0 do i:=i+1;

if i=k then kt:=true;
end;
begin
write('nhap so m:'); readln(m);
d:=0;
k:=1;
writeln(m,'so nguyen to dau tien la: ');
While d<m do
begin
k:=k+1;
If kt(k) then
begin
write(k:4);
d:=d+1;
end;
end;
readln
end.