Sở gd- đt Quảng Bình Đề thức Kỳ thi chọn học Sinh Giỏi lớp Năm học 2007-2008 hớng dẫn chấm môn tin học lớp 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 chơng trình mẫu để tính kết liệu vào: TAMGIAC.PAS; TIMSO.PAS; DEMTU.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 khảo phải tạo đợc test - Nếu chơng trình chạy sai test giám khảo cho điểm test - Riêng câu 3: Giám khảo cho 0.5 điểm cho test nhng chia cho ý: + Nếu in số từ giám khảo cho 0.25 điểm; + In đợc từ, từ dòng giám khảo cho 0.25 điểm II/ Chơng trình mẫu Câu 1: (3 điểm): Nhận dạng tam giác vuông TAMGIAC.PAS Program Tam_Giac_Vuong; Var a,b,c:Integer; Begin Write('Nhap vao bo so a, b, c: '); Readln(a,b,c); If (a>0) and (b>0) and (c>0) then Begin If (a*a + b*b = c*c ) or (b*b + c*c = a*a) or (c*c + a*a = b*b) then Writeln('BO SO DA CHO THOA MAN') Else Writeln('BO SO DA CHO KHONG THOA MAN') End Else Writeln('BO SO DA CHO KHONG THOA MAN'); Readln; End Câu 2: (3.5 điểm): Tìm số TIMSO.PAS Program Tim_so; Var a,b,c: Byte; So:Word; Begin For a:= to For b:= to For c:= to If (89*a - 10*c - b = 0) then Begin So := 100*a + 10*b + c; Writeln(So); End; Readln; End Câu 3: (3.5 điểm) DEMTU.PAS Đếm từ Program Dem_tu; Var i,Count:Byte; St:String; Begin Writeln('Nhap vao mot xau'); Readln(st); While (st[1]= #32) and (st '') Delete(st,1,1); While (st[Length(st)]= #32) Delete(st,Length(st),1); While (Pos(#32#32,st) 0) Delete(st,Pos(#32#32,st),1); Count:=0; For i:= to Length(st) If (st[i]=#32) then inc(Count); If st '' then inc(Count); Writeln(Count); st:= st+#32; While st '' Begin Writeln(Copy(st,1,Pos(#32,st)-1)); Delete(st,1,Pos(#32,st)); End; Readln; End ...For a:= to For b:= to For c:= to If ( 89* a - 10*c - b = 0) then Begin So := 100*a + 10*b + c; Writeln(So); End; Readln; End C©u 3: (3.5