KỲ THI CHỌN HỌC SINH GIỎI LỚP UBND HUYỆN HỒI ÂN PHỊNG GD&ĐT HUYỆN HỒI ÂN NĂM HỌC 2014 - 2015 ĐỀ THI MÔN TIN HỌC Thời gian 150’ (Không kể thời gian phát đề) Câu 1: (2 điểm) Viết chương trình nhập vào số nguyên Kiểm tra số nhỏ số nguyên Đưa kết số nhỏ hình Ví dụ: Nhap vao so nguyen: So nguyen nho nhat la: Câu 2: (4 điểm) Viết chương trình nhập vào số nguyên dương K kiểm tra số nguyên dương K có phải số nguyên tố hay không (số nguyên tố số chia hết cho nó) Đưa kết hình Ví dụ: Nhap K: So la so nguyen to Câu 3: (6 điểm) Viết chương trình nhập vào số nguyên dương N với (1 < n < 100) tính tổng sau: S=1+ + + + … + N a) In kết S hình b) In mà hình N có phải số phương hay khơng (số phương số bình phương bậc nó) Ví dụ: Nhap N: a) Tong S = 2.08 b) la so chinh phuong Câu 4: (8 điểm) Viết chương trình cho phép nhập dãy gồm N số nguyên từ bàn phím thực a) Tính tổng số nguyên chẵn dãy số in hình b) In hình dãy số tăng dần xếp c) In hình phần tử có giá trị tuyệt đối lớn dãy Ví dụ: Nhap N: Day so: 5, 2, -6, 1, 3, -8 a) Tong cac so nguyen chan: b) Day so tang dan: -8, -6, 1, 2, 3, c) Phan tu co gia tri tuyet doi lon nhat la: -8 ThuVienDeThi.com Lưu ý: Học sinh sử dụng ngôn ngữ lập trình PASCAL để thực yêu cầu Học sinh làm trực tiếp máy tính Tạo thư mục với tên số báo danh ổ đĩa D Sau làm xong câu lưu vào thư mục tạo với tên file Cau PAS.( số thứ tự câu) Ví dụ: Học sinh có số báo danh 250 sau làm xong câu lưu làm sau: D:\250\cau1.PAS; làm xong câu lưu sau: D:\250\cau2.PAS tương tự cho câu lại Trước nộp bài: Học sinh mở thư mục số báo danh (như D:\250) để xem có đủ file câu làm hay khơng sau nộp Học sinh khơng thực thao tác xảy tượng làm tự chịu trách nhiệm Học sinh giải nhiều cách cần test kết tính điểm ThuVienDeThi.com KỲ THI CHỌN HỌC SINH GIỎI LỚP UBND HUYỆN HỒI ÂN PHỊNG GD&ĐT HUYỆN HOÀI ÂN NĂM HỌC 2014 - 2015 Hướng dẫn giải chấm điểm: Câu Program Cau1; Uses Crt; Var a, b, c, min:Integer; BEGIN ClrScr; Write(‘Nhap so tu nhien:');Readln(a,b,c); If ac then min:=c; Write(‘So nho nhat so la:’,min); Readln END Câu Program Cau2; Uses Crt; Var K,i,dem:Integer; BEGIN ClrScr; Write(‘Nhap so tu nhien K:');Readln(K); dem:=0; For i:=1 to K if K mod i = then dem:=dem+1; If dem>2 then writeln(‘So ‘,K,’ khong phai la so nguyen to‘ Else writeln(‘So ‘,K,’ la so nguyen to’); Readln END Câu Program vd; Uses crt; Var N,i:byte; s:real; BEGIN write('Nhap N khoang 1