Đang tải... (xem toàn văn)
Caû hai baïn ñeàu coù chöông trình maõ hoaù caùc con soá thaønh nhöõng kyù töï vaø ngöôïc laïi giaûi maõ caùc con soá thaønh kyù töï, theo qui ñònh hai baïn seõ chuyeån nhöõng kyù töï m[r]
(1)ĐỀ THI HỌC SINH GIỎI TIN HỌC – 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 x:=x+1; biến đếm i phải khai báo kiểu liệu gì?
A Interger; B real; C string; D Tất kiu 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 biến xâu; B biến kiểu mảng Lệnh sau đúng:
A Readln(A, B); B Readln(B); C Readln(A); D Tất sai; Câu 4: Khai báo sau đú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ả giá trị:
A 1 B 0 C 3 D 2
Câu 7: X©u ký tự st:=Nguyen_Trai_highschool 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ó số i biến mảng 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 nhận số kí tự tối đa:
A 255 B 225 C 127 D 256
Cõu 10: Khai báo sau
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 vị trí xuất chuỗi S1 chuỗi S? (6đ)
Dữ liệu vào:Chuỗi s chuỗi s1
Kết ra:Các vị trí tìm thấy s1 s
Ví dụ:
Input Output
Test ‘aaahocjhochoc’
‘hoc’ 11
Test ‘adddddee’ ‘dd’
Tên tập tin:D:\TIMCHUOI.PAS
2 Nhập vào chuỗi sau xuất (các) từ dài chuỗi? (6Đ)
Dữ liệu vào: Một chuỗi
Kết ra: Các từ dài chuỗi
Ví dụ:
Input Output
Test Tran Nguyen dao Nguyen Test Tran quang dao bgggg quang
(2)Tên tập tin:D:\TUMAX.PAS
3 Bờm cuội học sinh giỏi tin học thường liên lạc với thư điện tử (Email) Nhưng thư mà hai bạn gởi cho toàn dãy chữ số liền Cả hai bạn có chương trình mã hố số thành ký tự ngược lại giải mã số thành ký tự, theo qui định hai bạn chuyển ký tự định gởi thành số thứ tự ký tự bảng mã ASCII (ví dụ: A: 65; B: 66) từ chữ thường máy chuyển thành chữ hoa mã hố thành số.(ví dụ: aA65, bB66) Sau mã hoá chuyển thư Người nhận có chương trình để giải mã
số thành ký tự in hoa (vdụ: 6566326768AB CD) Em viết:
a Chương trình (D:\MAHOA.pas) để mã hoá xâu ký tự thành chữ số (4Đ) Ví dụ:
Input Output
Di an che? 68733265783267726963
b Chương trình (D:\GIAIMA.PAS) để giải mã chuỗi số thành ký tự (4Đ)
Ví dụ:
Input Output
79326865853286658963 O dau vay?
ĐỀ THI CÓ TRANG - HẾT (L
ưu ý: Học sinh làm vào đề 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;
(3)write('nhap sau:');readln(s); s:=s;
m:='';t:='';
for i:= 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:= TO length(t) write(t[i]); readln;
end.
Bài 3a: program ma_hoa; var s:string;i:integer; begin
write('nhap chuoi:');readln(s); for i:= to length(s) do
if (s[i]>='a') and (s[i]<='z') then s[i]:=upcase(s[i]); for i:= 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 do write(tt[j]);
(4)ĐIỂM:
I Trắc nghiệm: 0/10đ
II Tự luận:
Bài 1: Timchuoi 6/6đ
Bài 2: Tumax 3/6đ
Bài 3:
a/ Mahoa 4/4đ
b/ Giaima 3/4đ
Tổng điểm: 16/30đ
* Nhận xét:
- Phần trắc nghiệm đâu??????. - Đã làm tự luận.
- Một số trình bày có tính cấu trúc (cần ý khác).
- Bài có ý tưởng song chưa thực được.
- Bài 3b chưa tối ưu (còn gặp lỗi với dãy số dài)