PHỊNG GD VÀ ĐT HỒI NHƠN TRƯỜNG THCS HỒI CHÂU Đề thức KỲ THI HỌC SINH GIỎI CẤP TRƯỜNG NĂM HỌC: 2012-2013 MÔN: TIN HỌC THỜI GIAN: 90 phút (không kể thời gian phát đề) Tạo thư mục theo đường dẫn sau: E:\HSGTin Hãy sử dụng ngôn ngữ lập trình Pascal để viết chương trình theo yêu cầu sau lưu vào thư mục : E:\HSGTin (đã tạo) Bài 1: (6,0 điểm) Tên tệp tin lưu: Bai1.pas Cho hai giá trị nguyên x, y nhập từ bàn phím Hãy viết chương trình hốn đổi giá trị x y cho in chúng hình theo ví dụ sau: Nhap gia tri x : Nhap gia tri y : 10 Sau hoan doi : Gia tri x=10 Gia tri y=8 Bai 2: (6,0 điểm) Tên tệp tin lưu: Bai2.pas Số N gọi phương bình phương bậc hai N số N Cho N (4 ≤ N ≤ 100) số nguyên dương nhập từ bàn phím Hãy viết chương trình kiểm tra xem số N nhập vào có phải số phương hay khơng? Ví dụ : 1/ Nhap N: 9 chinh la so chinh phuong ! 2/ Nhap N: 12 12 khong phai la so chinh phuong! Bai 3: (8,0 điểm) Tên tệp tin lưu: Bai3.pas Số nguyên tố số chia hết cho (số khơng gọi số ngun tố) Ví dụ số nguyên tố : 2, 3, 5, 7, 11, 13, 17,… Cho N (5 ≤ N ≤ 50) số ngun dương nhập từ bàn phím Hãy viết chương trình tính trung bình cộng số ngun tố kể từ đến N theo ví dụ sau: Ví dụ : Nhap N=7 Trung binh cong cac so nguyen to nho hon hoac bang la: 4.3 Lưu ý: Số trung bình cộng in đến chữ số thập phân (Hết) (Học sinh dự thi không sử dụng tài liệu) (Giáo viên coi thi khơng giải thích thêm) ThuVienDeThi.com Đáp án Bài Bài (6,0 điểm) Bài (6,0 điểm) Bài (8,0 điểm) Nội dung chương trình uses crt; var x,y,t:integer; begin clrscr; write('Nhap gia tri x: ');readln(x); write('Nhap gia tri y: ');readln(y); t:=x; x:=y; y:=t; Writeln('Sau hoan doi:'); writeln('Gia tri x=',x); writeln('Gia tri y=',y); readln end uses crt; var n:word; begin clrscr; write('Nhap N:');readln(N); if trunc(sqr(sqrt(N)))=N then write(N,' chinh la so chinh phuong') else write(N,' khong phai la so chinh phuong'); readln end uses crt; var i,j,N,dem:word; T:longint; kt:boolean; begin clrscr; write('Nhap N=');readln(N); T:=0;dem:=0; for i:=2 to N begin kt:=false; for j:=2 to i-1 if i mod j=0 then begin kt:=true; break; end; if kt=false then begin T:=T+i; inc(dem); end; end; write('Trung binh cong cac so nguyen to nho hon hoac bang ',N,' la: ',T/dem:2:1); readln; end ThuVienDeThi.com Điểm 1,0 1,0 3,0 1,0 1,0 1,0 4,0 1,0 1,0 3,0 2,0 1.0 ThuVienDeThi.com ... nho hon hoac bang ',N,' la: ',T/dem:2:1); readln; end ThuVienDeThi.com Điểm 1,0 1,0 3,0 1,0 1,0 1,0 4,0 1,0 1,0 3,0 2,0 1.0 ThuVienDeThi.com