De thi HSG olympic tin hoc cap tinh 2014 2015

Đề thi HSG Olympic Tin học Bình Dương SỞ GIÁO DỤC VÀ ĐÀO TẠO BÌNH DƯƠNG ĐỀ CHÍNH THỨC ĐỀ THI HỌC SINH GIỎI BẬC THCS MÔN: TIN HỌC Thời gian: 180 phút (không kể thời gian phát đề) Bài 1: Cho trước số tự nhiên N. Viết chương trình in ra số nguyên tố lớn nhất không vượt

SỞ GIÁO DỤC VÀ ĐÀO TẠO BÌNH DƯƠNG ĐỀ CHÍNH THỨC ĐỀ THI HỌC SINH GIỎI BẬC THCS MÔN: TIN HỌC Thời gian: 180 phút (không kể thời gian phát đề) Bài 1: Cho trước số tự nhiên N Viết chương trình in số nguyên tố lớn không vượt N Bài 2: Viết thủ tục Compare(S1,S2:String;Var Kq:String) thực công việc sau: so sánh hai xâu S1 S2, tìm tất ký tự có hai xâu Xâu KQ chứa tất kí tự đó, kí tự nhớ lần Bài 3: Viết chương trình hoàn chỉnh Pascal để thực theo thực đơn sau: 1- Nhập liệu (nhập số thực a, b, c) 2- Giải phương trình ax2 + bx + c = 3- Thoát khỏi chương trình Bài 4: Em viết chương trình kiểm chứng giả thuyết sau với n chẳn lớn nhỏ 1000 Mọi số tự nhiên chẳn biểu diễn thành tổng hai số nguyên tố GỢI Ý ĐÁP ÁN Bài 1: program ktsonto; uses crt; var i,j,m,a,b,t,max:integer; function kt(n:integer):boolean; var i,d:integer; begin kt:=false; d:=0; for i:=1 to n if n mod i=0 then d:=d+1; if d=2 then kt:=true; end; begin clrscr; write('nhap vao m ');readln(m); for i:=1 to m if kt(i) then max:=i; write('So nguyen to lon nhat khong vuot qua ',m, ' la: ',max);readln; end Bài 2: program bai2; uses crt; var xau1,xau2,xau:string; chon:char; function kt(ch:char;st:string): boolean; begin kt:=pos(ch,st)0; end; procedure compare(s1,s2: string;Var kq:string); var i:byte; begin kq:=''; for i:=1 to length(s1) if(not kt(s1[i],kq)) and (kt(s1[i],s2)) then kq:=concat(kq,s1[i]); end; Begin repeat clrscr; writeln('nhap vao xau s1 va s2: '); write('S1: ');readln(xau1); write('S2: ');readln(xau2); compare(xau1,xau2,xau); if xau'' then writeln('Xau chung la: ',xau) else writeln('Khong co ki tu nao ca hai xau'); writeln('ban co muon tiep tuc khong (c/k)? ');readln(chon); until (chon='k') or (chon='K'); end Bài 3: program gptb2; uses crt; var a,b,c,delta,x1,x2: real; chon,hoi:char; begin repeat clrscr; writeln('Chuong trinh giai pt bac hai'); writeln(' '); writeln('1 Nhap du lieu (nhap so thuc a,b,c)'); writeln('2 Giai phuong trinh ax2+bx+c=0'); writeln('3 Thoat khoi chuong trinh'); writeln('ban hay chon noi dung can thuc hien 1,2,3 '); readln(chon); case chon of '1':Begin write('nhap vao a= ');readln(a); write('nhap vao b= ');readln(b); write('nhap vao c= ');readln(c); end; '2':Begin if(a=0) then begin if b=0 then if (c=0) then writeln('pt vo so nghiem') else writeln('pt vo nghiem') else writeln('pt co nghiem x=',c/b) end else begin delta:=b*b-4*a*c; if delta2) and (m mod 2=0); for i:=1 to m if kt(i) then begin H[j]:=i;j:=j+1; end; for a:=1 to j-1 begin for b:=1 to j-1 if H[a]+H[B]=m then begin nto1:=H[a];nto2:=H[b]; end; end; write('Hai so nguyen to cong lai bang ',m,' la: ',nto1,' + ',nto2,' = ',m); readln; end  ... begin delta:=b*b-4*a*c; if delta