Đáp án đề thi tin học trẻ huyện Dĩ An 2009 - THCS

Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
Đáp Án
HỆ: Trung Học Cơ Sở
Thời gian: 120 phút
Bài 1
: Viết chương trình
a) Nhập vào số nguyên N và 2 dãy số nguyên: (1 đ)
A
1
, A
2
, A
3
, …, A
N
B
1
, B
2
, B
3
, …, B
N
b) Cộng từng phần tử tương ứng của 2 dãy trên vào dãy: (1 đ)
KQ
1
, KQ
2
, KQ
3
, …,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 đ)
Ví dụ:
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]);
1/4
KQ: 4 7 17 7 9
Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
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ài 2
: 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 Z
1
, Z
2
, Z
3
, …,Z
N
(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 đ)
Ví Dụ:
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);
writeln('Nhap gia tri cho day so nguyen:');
for i:=1 to n do
2/4
Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
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ài 3
: 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 đ)
Ví dụ:
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
for i:=1 to 80 do
3/4
Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
begin
gotoxy(i,10);
write(str);
delay(1000);
clrscr;
dung:=keypressed;
if dung then
exit;
end;
end.
----- Hết -----
4/4