Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
Đáp Án
HỆ: Trung Học Phổ Thông
Thời gian: 150 phút
Bài 1
: Viết chương trình
a) Nhập vào 2 số nguyên n, m và 2 dãy số nguyên (1 đ)
A
1
, A
2
, A
3
, …, A
n
B
1
, B
2
, B
3
, …, B
m
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

Begin
max:=m;
for i:=1 to m do
kq[i]:=b[i];
for i:=1 to n do
kq[i]:=kq[i]+a[i];
end
else
Begin
max:=n;
for i:=1 to n do
kq[i]:=a[i];
for i:=1 to m do
kq[i]:=kq[i]+b[i];
end;
for i:=1 to max-1 do
for j:=i+1 to max do
if kq[i]<kq[j] then
begin
tmp:=kq[i];
kq[i]:=kq[j];
kq[j]:=tmp;
end;
for i:=1 to max do
write(kq[i]:5);
readln;
end.
Bài 2
: Viết chương trình
a) Nhập vào số thực x và số nguyên N > 0, nếu N < 0 người dùng nhập lại.

write('Nhap n > 0: ');
readln(n);
until (n>0);
write('Nhap so thuc X: ');
readln(x);
s:=0;
dau:=1;
tmp:=1;
for i:=1 to n do
begin
tmp:=tmp*x;
s:=s+dau*tmp;
dau:=-dau;
end;
write('Tong S la: ',s:8:3);
readln;
end.
Bài 3
: Viết chương trình
a) Nhập danh sách lớp: (2 đ)
Thông tin mỗi học sinh gồm: họ, tên. Lưu vào tập tin HOSO.txt
b) Đọc thông tin của các học sinh từ tập tin HOSO.txt xuất ra màn hình (2 đ)
program hoso;
type
hs=record
ho:string[30];
ten:string[10];
end;
var
3/5

close(f);
end;
procedure doc_hoso;
begin
write('Tap tap tin: ');
readln(st);
assign(f,st);
4/5
Hội Thi Tin Học Trẻ Huyện Dĩ An 2009
(*$I-*)
reset(f);
if IOResult<>0 then
begin
writeln('Khong co tap tin ',st);
halt(0);
end;
writeln;
writeln(':----------------------------------------:');
writeln(':Ho va Ten :');
writeln(':----------------------------------------:');
while not eof(f) do
begin
read(f,a);
with a do
writeln(':',ho,' ':30-length(ho),ten,' ':10-length(ten),':');
end;
writeln(':----------------------------------------:');
close(f);
end;
begin