Hoang Ninh Trang

Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (161.67 KB, 4 trang )

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

ĐỀ THI HỌC SINH GIỎI TIN HỌC 9 – VÒNG LOẠI

NGÀY THI: 25/12/2010 -

TH

ỜI GIAN: 150 PHÚT

HỌ VÀ TÊN HỌC SINH: ………

I. PHẦN TRẮC NGHIỆM: (10điểm)

Câu 1: Với ngơn ngữ lập trình Passcal câu lệnh lặp for i:=1 to 10 do x:=x+1; thì biến đếm i
phải được khai báo là kiểu dữ liệu gì?

A. Interger; B. real; C. string; D. Tất cả các kiểu trên đều được
Câu 2: Hµm copy(‘Thoi_khoa_bieu’, 6,3) trả v giá trị:

A. khoa B. tho C. hoi D. ‘kho’

Câu 3: Nếu A là biến xâu; B là biến kiểu mảng. Lệnh nào sau đây đúng:

A. Readln(A, B); B. Readln(B); C. Readln(A); D. Tất cả đều sai;
Câu 4: Khai báo nào sau đây đúng:

A. Type s=string(10); B. type st=tring{10};
C. Type st=string10; D. Type st = string[10];
Câu 5: St:=’Dai_hoc_tap_trung'. Thđ tơc Delete(st,1,4), st cho kÕt qu¶ là:

A. ‘hoc_tap_trung’ B. ‘tap_trung’ C. ‘Dai_hoc’ D. ‘Dai_tap_trung’
Câu 6: Hµm length(‘Cai_cach_hanh_hinh_nha_nuoc’) mod 3 trả về giá trị:

A. 1 B. 0 C. 3 D. 2

Cõu 7: Xâu ký tự st:=Nguyen_Trai_highschool thì st[2]+st[14] cho kÕt qu¶:

A. ‘gi’ B. ‘Ng’ C. ‘gl’ D. ‘go’
Câu 8: Để tham chiếu đến phần tử có chỉ số i trong biến mảng một chiều B. Ta viết:

A. B{i} B. B(i) C. B[i] D. B.i

Câu 9: Một biến kiểu xâu có thể nhận số kí tự tối đa:

A. 255 B. 225 C. 127 D. 256

Cõu 10: Khai báo nào sau đây là đúng

A. Var B: array[1…20] of integer; B. Var M: array[1:10] of real;
C. Var A: array[1..20] of real; D. Var C: array[1.20] of real;

II. TỰ LUẬN: (20Đ)

1. Viết chương trình tìm các vị trí xuất hiện chuỗi S1 trong chuỗi S? (6đ)

Dữ liệu vào:Chuỗi s và chuỗi s1.

Kết quả ra:Các vị trí tìm thấy s1 trong s.

Ví dụ:

Input Output

Test 1 ‘aaahocjhochoc’

‘hoc’ 4 8 11

Test 2 ‘adddddee’
‘dd’

2 3 4 5

Tên tập tin:D:\TIMCHUOI.PAS

2. Nhập vào một chuỗi sau đó xuất ra (các) từ dài nhất trong chuỗi? (6Đ)

Dữ liệu vào: Một chuỗi.

Kết quả ra: Các từ dài nhất trong chuỗi.

Ví dụ:

Input Output

Test 1 Tran Nguyen dao Nguyen
Test 2 Tran quang dao bgggg quang

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

Tên tập tin:D:\TUMAX.PAS

3. Bờm và cuội là 2 học sinh rất giỏi tin học và thường liên lạc với nhau bằng thư điện tử (Email).
Nhưng những bức thư mà hai bạn gởi cho nhau chỉ toàn là dãy những chữ số liền nhau. Cả hai bạn đều có
chương trình mã hoá các con số thành những ký tự và ngược lại giải mã các con số thành ký tự, theo qui
định hai bạn sẽ chuyển những ký tự mình định gởi thành các con số là thứ tự của ký tự đó trong bảng mã
ASCII (ví dụ: A: 65; B: 66) từ chữ thường máy chuyển thành chữ hoa rồi mã hố thành các con số.(ví dụ:
aA65, bB66). Sau khi mã hố sẽ chuyển thư đi. Người nhận có chương trình để giải mã các con

số thành những ký tự in hoa (vdụ: 6566326768AB CD). Em hãy viết:

a. Chương trình 1 (D:\MAHOA.pas) để mã hố 1 xâu ký tự thành các chữ số. (4Đ)
Ví dụ:

Input Output

Di an che? 68733265783267726963

b. Chương trình 2 (D:\GIAIMA.PAS) để giải mã 1 chuỗi số thành các ký tự. (4Đ)

Ví dụ:

Input Output

79326865853286658963 O dau vay?

ĐỀ THI CÓ 2 TRANG - HẾT

(L

ưu

ý: Học sinh làm bài vào ngay đề thi này)

BÀI LÀM

I. Trắc nghiệm:

Câu 1 2 3 4 5 6 7 8 9 10

Đáp án

II. Tự luận:

Bài 1:

program tim_chuoi;

var s,s1:string;i:integer;

begin

write('nhap chuoi mot:');readln(s);

write('nhap chuoi hai:');readln(s1);

repeat

i:=pos(s1,s);

if i<>0 then write(i:4);

s[i]:='*';

until i=0 ;

readln;

end.

Bài 2:

program tu_max;

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

write('nhap sau:');readln(s);

s:=s;

m:='';t:='';

for i:= 1 to length(s) do

begin

if s[i]=' ' then begin

m:=copy(s,1,i);

if length(m)>length(t) then

begin delete(t,1,length(t)); t:=m; end;

delete(m,1,length(m));

end;

delete(s,1,i);

end;

FOR I:= 1 TO length(t) do write(t[i]);

readln;

end.

Bài 3a:

program ma_hoa;

var s:string;i:integer;

begin

write('nhap chuoi:');readln(s);

for i:= 1 to length(s) do

if (s[i]>='a') and (s[i]<='z') then s[i]:=upcase(s[i]);

for i:= 1 to length(s) do

write(ord(s[i]));

readln;

end.

Bài 3b:

program giaima;

var s:longint;tt:string;j,i:integer;

begin

write('nhap so:');readln(s);

tt:='';

repeat

i:=s mod 100;

s:=(s-i) div 100 ;

tt:=tt+(chr(i));

until s<100;

write(chr(s));

for j:= length(tt) downto 1 do

write(tt[j]);

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

Hoang Ninh Trang

<b>ĐỀ THI HỌC SINH GIỎI TIN HỌC 9 – VÒNG LOẠI</b>

<b>NGÀY THI: 25/12/2010 - </b>

<b>TH</b>

<b>ỜI GIAN: 150 PHÚT</b>

<b>HỌ VÀ TÊN HỌC SINH: ………</b>

Tên tập tin:D:\TIMCHUOI.PAS

Tên tập tin:D:\TUMAX.PAS

ĐỀ THI CÓ 2 TRANG - HẾT

<i><b>(L</b></i>

<i><b> </b></i>

<i><b>ưu </b></i>

<i><b> </b></i>

<i><b>ý: Học sinh làm bài vào ngay đề thi này)</b></i>

<b>BÀI LÀM</b>

<b>I. Trắc nghiệm:</b>

<b>II. Tự luận:</b>

<b>Bài 1: </b>

program tim_chuoi;

var s,s1:string;i:integer;

begin

write('nhap chuoi mot:');readln(s);

write('nhap chuoi hai:');readln(s1);

repeat

i:=pos(s1,s);

if i<>0 then write(i:4);

s[i]:='*';

until i=0 ;

readln;

end.

<b>Bài 2: </b>

program tu_max;

write('nhap sau:');readln(s);

s:=s;

m:='';t:='';

for i:= 1 to length(s) do

begin

if s[i]=' ' then begin

m:=copy(s,1,i);

if length(m)>length(t) then

begin delete(t,1,length(t)); t:=m; end;

delete(m,1,length(m));

end;

delete(s,1,i);

end;

FOR I:= 1 TO length(t) do write(t[i]);

readln;

end.

<b>Bài 3a: </b>

program ma_hoa;

var s:string;i:integer;

begin

write('nhap chuoi:');readln(s);

for i:= 1 to length(s) do

if (s[i]>='a') and (s[i]<='z') then s[i]:=upcase(s[i]);

for i:= 1 to length(s) do

write(ord(s[i]));

readln;

end.

<b>Bài 3b: </b>

program giaima;

var s:longint;tt:string;j,i:integer;

begin

write('nhap so:');readln(s);

tt:='';

repeat

i:=s mod 100;

s:=(s-i) div 100 ;

tt:=tt+(chr(i));

until s<100;

write(chr(s));

for j:= length(tt) downto 1 do

write(tt[j]);

<b>ĐIỂM:</b>

<b>I. Trắc nghiệm: </b>

<b>0/10đ</b>

<b>II. Tự luận:</b>

<b>Bài 1: Timchuoi</b>

<b>6/6đ</b>

<b>Bài 2: Tumax</b>