Đề thi học sinh giỏi huyện Tin học lớp 8 Năm học 20142015 Phòng GD ĐT Long Mỹ19153

Sở GD&ĐT Hậu Giang Phòng GD&ĐT Long Mỹ ĐỀ THI HỌC SINH GIỎI HUYỆN NĂM HỌC 2014-2015 Môn: Tin Học Thời gian làm bài: 120 phút (Các tập tin lưu thư mục D:\SBD\, SBD số báo danh thí sinh) Bài Tên tập tin Bai1.pas Bai2.pas Bai3.pas Bài 1: (6 điểm) Viết chương trình cho phép nhập vào số nguyên n (1≤n≤10000) In hình giá trị biểu thức: T   Ví dụ: 1 1    (Kết làm tròn chữ số phần thập phân) 2 n Dữ liệu vào (bàn phím) 10 105 Dữ liệu (màn hình) 1.55 1.64 Bài 2: (7 điểm) Viết chương trình cho phép nhập vào dãy số nguyên gồm n phần tử (1≤n≤100) a) Tinh trung bình cộng phần tử lớn có dãy số (Kết làm tròn chữ số phần thập phân) b) Hiện hình số ngun tố có dãy số Ví dụ: Dữ liệu vào (bàn phím) Dữ liệu (màn hình) 12 -6 14 11 31 -7 14.600 11 31 32 -9 -7 -23 14.000 Bài 3: (7 điểm) Nhập vào số tự nhiên N với (0 < N ≤ 65535) a) Hãy cho biết chữ số lớn số tự nhiên vừa nhập b) Kiểm tra xem số có đối xứng khơng Ví dụ: Dữ liệu vào (bàn phím) Dữ liệu (màn hình) 3521 Khong doi xung 32123 Doi xung Hết - Thí sinh không sử dụng tài liệu  Giám thị khơng giải thích thêm ThuVienDeThi.com Bài Bai1.pas (6 điểm) Bai2.pas (7 điểm) Bai3.pas (7 điểm) HƯỚNG DẪN CHẤM ĐIỂM (Chấm theo Test) Dữ liệu vào (bàn phím) Dữ liệu (màn hình) 1.00 15 1.58 605 1.64 7 7 -5 -8 -3 -8 11 13 -21 8.400 11 13 7 Doi xung 4589 Khong doi xung 44788744 Doi xung 56165 Doi xung ThuVienDeThi.com Điểm 2đ 2đ 2đ 1đ 2đ 2đ 2đ 1đ 2đ 2đ 2đ CHƯƠNG TRÌNH THAM KHẢO Program bai1; Uses crt; Var i,n: integer; t: real; Begin Clrscr; Write('Nhap n: '); readln(n); t:=0; for i:=1 to n t:=t+1/(i*i); Writeln('T=',t:0:2); Readln; End Program bai2; Uses crt; Var i,j,n,d,t: integer; a: array[1 100] of Integer; Begin Clrscr; Write('Nhap n: '); readln(n); For i:=1 to n Begin Write('Nhap phan tu thu ',i,': '); readln(a[i]); end; d:=0; t:=0; For i:=1 to n if a[i]>0 then begin t:=t+a[i]; d:=d+1; end; Writeln('Trung binh cong cua cac phan tu lon ho la: ', t/d:0:3); Writeln('Cac so nguyen to co day so la: '); For i:=1 to n begin d:=0; for j:=1 to a[i] if a[i] mod j=0 then d:=d+1; if d=2 then Write(a[i],' '); end; Readln; End Program bai3; Uses crt; Var s,s1,max: string; i: integer; Begin Clrscr; Write('Nhap n: '); readln(s); max:=''; for i:=1 to length(s) if s[i]>max then max:=s[i]; Writeln('Chu solon nhat la ',max); s1:=''; for i:=length(s) downto s1:=s1+s[i]; if s1=s then writeln(s,' la xau doi xung') else writeln(s,' khong la xau doi xung'); Readln; End ThuVienDeThi.com ... (màn hình) 1.00 15 1. 58 605 1.64 7 7 -5 -8 -3 -8 11 13 -21 8. 400 11 13 7 Doi xung 4 589 Khong doi xung 44 788 744 Doi xung 56165 Doi xung ThuVienDeThi.com Điểm 2đ 2đ 2đ... then writeln(s,' la xau doi xung') else writeln(s,' khong la xau doi xung'); Readln; End ThuVienDeThi.com