Dap an de thi tin hoc tre huyen Di An 2009 THCS

<span class='text_page_counter'>(1)</span><div class='page_container' data-page=1>

Đáp Án

HỆ: Trung Học Cơ Sở

Thời gian: 120 phút

<b>Bài 1</b>: Viết chương trình

a) Nhập vào số nguyên N và 2 dãy số nguyên: (1 đ)
A1 , A2 , A3 , …, AN

B1 , B2 , B3 , …, BN

b) Cộng từng phần tử tương ứng của 2 dãy trên vào dãy: (1 đ)
KQ1 , KQ2 , KQ3 , …,KQ n

c) Xuất giá trị của dãy KQ ra màn hình theo thứ tự giảm dần. (1.5 đ)

<b>Ví dụ:</b>

Dãy A: 3 5 8 2 6
Dãy B: 1 2 9 5 3

Xuất ra màn hình dãy KQ: 17 9 7 7 4
Program Bai1;

var a,b,kq: array[1..100] of integer;
n,i,j,tmp: integer;

begin

write('Nhap n: ');
readln(n);

writeln('Nhap gia tri cho mang a');
for i:=1 to n do

begin

write('a[',i,']= ');
readln(a[i]);
end;

writeln('Nhap gia tri cho mang b');
for i:=1 to n do

begin

write('b[',i,']= ');
readln(b[i]);

</div>
<span class='text_page_counter'>(2)</span><div class='page_container' data-page=2>

end;

for i:=1 to n do
kq[i]:=a[i]+b[i];
for i:=1 to n-1 do
for j:=i+1 to n do
if kq[i]<kq[j] then
begin

tmp:=kq[i];

kq[i]:=kq[j];
kq[j]:=tmp;
end;

for i:=1 to n do
write(kq[i]:3);
readln;

end.

<b>Bài 2</b>: Viết chương trình

a) Nhập vào số nguyên N > 0, nếu N < 0 người dùng nhập lại. (1.5 đ)
b) Nhập giá trị cho dãy số nguyên Z1 , Z2 , Z3 , …,ZN (0.5 đ)

c) Xuất ra màn hình các phần tử khơng chia hết cho 3 của dãy Z (1.5 đ)

<b>Ví Dụ:</b>

N = 3
Z: 5 8 3



Các phần tử không chia hết cho 3: 5 8
Program Bai2;

var z: array[1..100] of integer;
n,i: integer;

begin
repeat

write('Nhap n > 0: ');
readln(n);

until (n>0);

</div>
<span class='text_page_counter'>(3)</span><div class='page_container' data-page=3>

begin

write('z[',i,']= ');
readln(z[i]);
end;

writeln('Cac phan tu khong chia he cho 3');
for i:=1 to n do

if (z[i] mod 3 <> 0) then
write(z[i]:5);

readln;
end.

<b>Bài 3</b>: Viết chương trình nhập vào chuỗi họ tên thí sinh và xuất ra màn hình
chuỗi họ tên chạy trên màn hình theo chiều ngang cho đến khi ấn một phím bất
kỳ thì dừng

(nhập xuất chuỗi: 1 đ)
(chạy chữ: 1 đ)

( ấn phím bất kỳ dừng: 1 đ)

<b>Ví dụ:</b>

Ho va Ten: Tran Bang Tam



Tran Bang Tam
Program Bai3;

uses crt;
var str: string;
i: integer;
dung:boolean;
begin

textbackground(1);
clrscr;

write('Nhap Ho va Ten: ');
readln(str);

textcolor(14);
dung:=false;
while true do

</div>
<span class='text_page_counter'>(4)</span><div class='page_container' data-page=4>

begin

gotoxy(i,10);

write(str);
delay(1000);
clrscr;

dung:=keypressed;
if dung then

exit;
end;
end.

</div>

<!--links-->