Nội dung mỗi bài được lưu lại và đặt tên theo cấu trúc: BAI_Số.PAS Ví dụ: Nội dung Bài 1 được lưu vào File có tên: BAI_1.PAS... Kết quả được xuất ra màn hình và lưu vào C hoặc D:\HSG\BAI[r]
(1)PHÒNG GD & ĐT THỊ XÃ ĐỒNG XOÀI Đề 01 SBD Đề thi chọn học sinh giỏi lớp THCS môn tin học lập trình pascal Năm học 2011-2012 Thời gian làm bài 90 phút Họ và tên: Ngày sinh Học sinh lớp: .Trường Máy số Giám thị 1: ………………………… Giám thị 2: ……………………………… (Đề gồm bài, 01 trang) 1 1 Bài 1: Tính tổng S=1+ + + + + n (Với n ∈ N ❑ ) Bài 2: Nhập hai số tự nhiên từ bàn phím, viết chương trình tính UCLN và BCNN chúng Bài 3: Giải phương trình ax2 + bx + c = Các hệ số a, b,c nhập từ bàn phím, a Bài 4: Lập chương trình tìm các số có chữ số cho số đó tổng các chữ số nó HẾT Chú ý: - Học sinh làm bài trên chương trình Pascal Nội dung bài lưu lại và đặt tên theo cấu trúc: BAI_Số.PAS Ví dụ: Nội dung Bài lưu vào File có tên: BAI_1.PAS (2) PHÒNG GD & ĐT THỊ XÃ ĐỒNG XOÀI Đề 02 SBD Đề thi chọn học sinh giỏi lớp THCS môn tin học lập trình pascal Năm học 2011-2012 Thời gian làm bài 90 phút Họ và tên: Ngày sinh Học sinh lớp: .Trường Máy số Giám thị 1: ………………………… Giám thị 2: ……………………………… (Đề gồm bài, 01 trang) Bài 1: Cho số tự nhiên lớn (được lưu C D:\HSG\BAI_5.INP), tìm các số nguyên tố không vượt quá số đó Kết xuất màn hình và lưu vào C D:\HSG\BAI_5.OUT Bài 2: Điểm môn Văn, Toán, Lý, Hoá, Ngoại ngữ học sinh lưu C D:\HSG\BAI_6.INP Thông báo điểm môn và điểm trung bình màn hình (biết Văn, Toán hệ số 2; các môn còn lại hệ số 1) Bài 3: Cho độ dài ba cạnh (a, b, c) tam giác là số lưu C D:\HSG\BAI_7.INP Tính chu vi (C), diện tích (S), độ dài bán kính đường tròn ngoại tiếp (R), bán kính đường tròn nội tiếp (r), độ dài các đường cao (ha, hb, hc) tam giác đó Kết xuất màn hình và lưu C D:\HSG\BAI_7.OUT theo cấu trúc: C S R r hb hc Chú ý: - Học sinh làm bài trên chương trình Pascal Nội dung bài lưu lại và đặt tên theo cấu trúc: BAI_Số.PAS Ví dụ: Nội dung Bài lưu vào File có tên: BAI_1.PAS PHÒNG GD & ĐT Đáp án và biểu chấm Kỳ thi chọn học sinh giỏi lớp THCS (3) THỊ XÃ ĐỒNG XOÀI môn tin học lập trình pascal Năm học 2011-2012 Đề 01 1 1 Bài 1: (5 điểm) Tính tổng S= + + + + n (Với n ∈ N ❑ ) Uses crt; Var n,i:integer; S:real; Begin clrscr; Repeat Write('Nhap mot so tu nhien khac khong: '); Read(n); Until n > 0; S:=0; For i:=1 to n S:= S + 1/i ; Writeln('Gia tri cua tong la ',S:5:2); Readln; Readln; End Bài 2: (5 điểm) Uses crt; Var n,m,a,b:integer; Begin Repeat Clrscr; Write('Nhap so tu nhien thu nhat: '); Read(n); Write('Nhap so tu nhien thu hai: '); Read(m); Until (n>0) and (m>0); a:=n; b:=m; While n<>m If n>m then n:= n-m else m:=m-n; Writeln('UCLN(',a,' , ',b,') = ',n); Writeln('BCNN(',a,' , ',b,') = ',trunc(a*b/n)); Readln; Readln; End Bài 3: (5 điểm) uses crt; var a,b,c,d,x1,x2:real; BEGIN writeln; clrscr; REPEAT writeln('NHAP CAC HE SO: '); d:=b*b-4*a*c; UNTIL a<>0; readln(a,b,c); if d<0 then writeln('PHUONG TRINH VO NGHIEM'); if d=0 then writeln('PHUONG TRINH CO NGHIEM KEP LA: ',-b/(2*a):8:2); (4) if d>0 then Begin x1:=(-b-SQRT(d))/(2*a); x2:=(-b+SQRT(d))/(2*a); writeln('PHUONG TRINH CO HAI NGHIEM PHAN BIET LA: ',x1:8:2,' , ', x2:8:2); End; Readln; END Bài 4: (5 điểm) Var a,b,c,T,i,j,k:integer; Begin Write(‘cac so co ba chu so bang tong lap phuong cac chu so cua no la: ’); For a:=1 to For b:=0 to For c:=0 to If 100*a + 10*b + c = a*a*a + b*b*b + c*c*c then Write(a,b,c,' '); Readln; End PHÒNG GD & ĐT THỊ XÃ ĐỒNG XOÀI Đáp án và biểu chấm Kỳ thi chọn học sinh giỏi lớp THCS (5) Đề 02 môn tin học lập trình pascal Năm học 2011-2012 Bài 1: (7 điểm) Uses crt; Var i,j,d,n,A,PN:integer; t,f:text; Begin Clrscr; Assign(t,'D:\HSG\BAI_2.INP'); Reset(t); Read(t,A); Assign(f,'D:\HSG\BAI_2.OUT'); Rewrite(f); Writeln('Cac so nguyen to khong lon hon ',A,' la: '); d:=0; {Bien dem} for n:=2 to A begin PN:=trunc(sqrt(n)); i:=2; while (n mod i <>0) and (i<=PN) i:=i+1; If i>PN then begin j:=j+1; write(n, ' '); Write(f,n,' '); end; end; Close(f); Writeln; writeln('Co ',j,' so nguyen to khong lon hon ',A); Readln; End Bài 2: (6 điểm) USES crt; Var V,T,L,H,NN,DTB: real; f: text; Begin Clrscr; Assign(f,'D:\HSG\BAI_3.INP'); Reset(f); Read(f,V,T,L,H,NN); Writeln('Diem mon Van: ',V:3:1); Writeln('Diem mon Toan: ',T:3:1); Writeln('Diem mon Ly: ',L:3:1); Writeln('Diem mon Hoa: ',H:3:1); Writeln('Diem mon Ngoai ngu: ',NN:3:1); DTB:=(V*2 + T*2 + L + H + NN)/7; Writeln('Diem trung binh cua hoc sinh la: ',DTB:3:1); Readln; END Bài 3: (7 điểm) Uses crt; var a,b,c,CV,S,ha,hb,hc,P,R,r:real; (6) f:text; Begin assign(f,'D:\HSG\BAI_3.inp'); reset(f); read(f,a,b,c); CV:=a+b+c; P:= (a+b+c)/2; S:=sqrt(P*(P-a)*(P-b)*(P-c)); R:=4*S/(a*b*c); r:=S/P; ha:=2*S/a; hb:=2*S/b; hc:=2*S/c; writeln('chu vi tam giac la',CV); writeln('dien tich tam giac la',S); writeln('do lai ban kinh duong tron ngoai tiep tam giac la',R); writeln('do lai ban kinh duong tron noi tiep tam giac la ‘,r); writeln('do dai cac duong cao la',ha,';',hb,';',hc); assign(f,'D:\HSG\BAI_7.out'); rewrite(f); writeln(f,CV,’ ‘,S); writeln(f,R,’ ‘,r); writeln(f,ha,' ',hb,' ',hc); close(f); readln; end Ghi chú: - Nếu chương trình không chạy, không cho điểm bài đó - Học sinh có thể làm theo nhiều cách, đúng cho điểm tối đa (7)