Đề thi tin học trẻ khối THCS năm 201119915

Nhaọp moọt xaõu s bao goàm soỏ vaứ kớ tửù, in ra xaõu ủaừ saộp xeỏp soỏ theo thửự tửù taờng daàn coứn vũ trớ caực kớ tửù vaón giửừ nguyeõn?. abc6ghj7kkkkk1hhhh9 abc6ghj7kkkkk1hhhh9 Bài 2

Hội THI TIN Học TRẻ nghệ an

lần thứ XVII - 2011

đề tham khảo

ĐỀ THI TIN HỌC TRẺ - THCS

Thời gian làm bài 120 phỳt, khụng kể thời gian phỏt đề

Địa điểm thi: Trường Đại học Vinh

B PHẦN LẬP TRèNH

ĐỀ BÀI:

Bài 1 (10 điểm):

Sắp xếp trong xõu

1 Nhaọp moọt xaõu s bao goàm soỏ vaứ kớ tửù, in ra xaõu ủaừ saộp xeỏp soỏ theo thửự tửù taờng daàn coứn vũ trớ caực kớ tửù vaón giửừ nguyeõn?

abc6ghj7kkkkk1hhhh9 abc6ghj7kkkkk1hhhh9

Bài 2 (10 điểm):

vieỏt chửụng trỡnh nhaọp vaứo moọt chuoồi caực kyự tửù chửừ caựi goàm nhieàu tửứ moói tửứ laứ moọt teõn cuỷa moọt hoùc sinh vaứ treõn maứn hỡnh phaỷi hieọn ra ủuựng chửừ ủaàu cuỷa teõn laứ chửừ hoa coứn caực chửừ caựi coứn laùi laứ chửừ thửụứng Sau ủoự saộp xeỏp caực teõn treõn theo thửự tửù alphabet moói teõn xuaỏt moọt doứng

Dửừ lieọu vaứo: Caực phớm chửừ caựi thửụứng tửứ a z vaứ phớm caựch troỏng ủeồ phaõn bieọt teõn hoùc sinh naứy vụựi teõn hoùc sinh kia

Keỏt quaỷ ra: Maứn hỡnh seừ hieồn thũ chửừ ủaàu cuỷa moói teõn hoùc sinh laứ chửừ hoa (ngửụứi nhaọp

khoõng caàn baỏm giửừ phớm shift hoaởc baọt Caplock), saộp xeỏp caực teõn treõn theo thửự tửù alphabet moói teõn xuaỏt moọt doứng

Gụùi yự: Duứng haứm Readkey

Vớ duù:

dung cuong an xuan dao Dung Cuong An Xuan Dao

An Cuong Dao Dung Xuan

program bai1;

uses crt;

var x,xs:string;

procedure docdl;

var v:text;

begin

assign(v,'c:\input.txt'); reset(v);

readln(v,x);

close(v);

end;

procedure xau_so;

var i,j:word;c:char;

begin

xs:='';

for i:= 1 to length(x) do

for c:= '0' to '9' do

if x[i]=c then xs:=xs+c;

for i:= 1 to length(xs)-1 do

for j:= i+1 to length(xs) do

if xs[i]>xs[j] then

begin

c:=xs[i];

xs[i]:=xs[j];

xs[j]:=c;

end;

end;

procedure thay;

var i:word; c:char;

begin

for i:= 1 to length(x) do

for c:='0' to '9' do

if x[i]=c then

begin

x[i]:=xs[1];

delete(xs,1,1);

end;

end;

procedure xuat;

var r:text;

begin

assign(r,'c:\OUTPUT.TXT'); rewrite(r);

writeln(r,x);

close(r);

end;

begin

clrscr;

docdl;

xau_so;

thay;

xuat;

end

Hội THI TIN Học TRẻ nghệ an

lần thứ XVII - 2011

đề tham khảo

ĐỀ THI TIN HỌC TRẺ - THCS

Thời gian làm bài 120 phỳt, khụng kể thời gian phỏt đề

Địa điểm thi: Trường Đại học Vinh

program bai 2;

uses crt;

var x:string; s:array[1 1000] of string;

i,n,j:word; v,r:text;

begin

clrscr;

assign(v,'d:\vao.txt'); reset(v); readln(v,x);

close(v);

writeln(x);

assign(r,'d:\ra.txt'); rewrite(r);

n:=1;

repeat

i:= pos(' ',x);

s[n]:= copy(x,1,i-1);

delete(x,1,i);

n:=n+1;

until pos(' ',x) =0;

n:=n+1; s[n]:=x;

s[n-1]:=s[n]; n:=n-1;

for i:= 1 to n do s[i][1]:= upcase(s[i][1]);

for i:= 1 to n-1 do write(r,s[i],' '); writeln(r,s[n]);

for i:= 1 to n-1 do

for j:= i+1 to n do

if s[i]>s[j] then

begin

x:=s[i];

s[i]:=s[j];

s[j]:=x;

end;

for i:= 1 to n do

writeln(r,s[i]);

close(r);

end