ĐÁP ÁN HSG T9 CHÂU ĐỨC

UBND HUYỆN CHÂU ĐỨC
PHÒNG GD&ĐT
----------


ĐÁP ÁN KÌ THI CHỌN HSG CẤP HUYỆN
Năm học: 2011-2012
Môn: Tin học
Thời gian làm bài: 150 phút
(Đề thi này gồm 02 trang)

GIÁO VIÊN: HOÀNG ĐỨC KIÊN-trường QUẢNG THÀNH)
(mong quý thầy cô góp ý giúp)
BÀI 4
var a,diem:array[1..10] of byte;
ten:array[1..10] of string[25];
i,dem,k,n,max:integer;
f:text;
const fi=`fi.inp`;
fo=`fo.out`;
{---------------------}
procedure docfile;
begin
assign(f,fi); reset(f);
readln(f,n);
for i:=1 to n do
begin
readln(f,ten[i]);
readln(f,diem[i]);
end;
close(f);
end;
{----------------------}
procedure kiemtra;
begin
max:=0;
for i:=1 to n do
if diem[i]>max then max:=diem[i];

end;
{-----------------------}
procedure luu;
begin
assign(f,fo); rewrite(f);
for i:=1 to n do
if diem[i]=max then writeln(f,ten[i]);
close(f);
end;
{-------------------------}
begin
docfile;
kiemtra;
luu;
end.
BÀI 3
var a:array[1..10] of byte;
i,dem,k,n:byte;
f:text;
const fi=`fi.inp`;
fo=`fo.out`;
{---------------------}
procedure docfile;
begin
assign(f,fi); reset(f);
readln(f,n);
close(f);
end;
{----------------------}
procedure luu;
begin
assign(f,fo);append(f);
for k:=1 to n do write(f,a[k]);
writeln(f);
inc(dem);
close(f);
end;
{-----------------------}
procedure try(i:byte);
var j:byte;
begin
for j:=0 to 1 do
begin
a[i]:=j;
if i=n then luu
else try(i+1);
end;
end;
{-------------------------}
begin
docfile;
try(1);
assign(f,fo); append(f);
write(f,dem);
close(f);
end.