Së gi¸o dôc vµ ®µo t¹o Kú thi chän hSG líp 11 qu¶ng b×nh SBD: N¨m häc 2005-2006 M«n: Tin häc Thêi gian: 180 phót, kh«ng kÒ thêi gian giao ®Ò §Ò ra Sö dông ng«n ng÷ lËp tr×nh Turbo Pascal ®Ó lËp tr×nh gi¶i c¸c bµi to¸n sau: C©u 1: (2.5 ®iÓm) §Õm sè tõ cã trong x©u-WORD.PAS Ta ®Þnh nghÜa: Tõ lµ mét nhãm ký tù bÊt kú mµ trong ®ã kh«ng chøa dÊu c¸ch. VÝ dô ‘thch’ lµ mét tõ. Cho mét x©u S gåm N ký tù ®îc lÊy tõ tËp ký tù ‘a’...’z’ vµ ‘ ’ (dÊu c¸ch), (1 ... 2 3 1 1 4 Hớng dẫn chấm thi học sinh giỏi toàn tỉnh lớp 11 năm học 2005-2006 I/ Phơng pháp chung - Giám khảo tạo liệu vào, tính toán kết Thực chơng trình học sinh so sánh kết - Giám khảo sử dụng... sinh so sánh kết - Giám khảo sử dụng chơng trình mẫu để tính kết liệu vào: WORD.PAS DAYCON.PAS SQUARES.PAS - Chơng trình học sinh chạy test, giám khảo cho 0.5 điểm Nh vậy, câu hỏi có điểm giám... procedure xl; var i,j,dem:ii; begin for i:=1 to n e[i]:=i; writeln; sort(1,n); tinhgoc; fillchar(b,sizeof(b),false); quet(0,pi /2); dem:=0; for i:=1 to n end; begin end if b[i] then inc(dem); assign(f,fo);