De HSG Tin Hoc 8 1

<span class='text_page_counter'>(1)</span>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 8 Thời gian làm bài: 120 phút. (Các tập tin lưu trong thư mục D:\SBD\, trong đó SBD là số báo danh của thí sinh) Bài Tên tập tin 1 Bai1.pas 2 Bai2.pas 3 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 ra màn hình giá trị của biểu thức:. T 1 . 1 1 1 1  2  2 .....  2 2 2 3 4 n . (Kết quả làm tròn 2 chữ số ở phần thập phân). Ví dụ:. Dữ liệu vào (bàn phím) 10 105. Dữ liệu ra (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 của các phần tử lớn hơn 0 có trong dãy số. (Kết quả làm tròn 2 chữ số ở phần thập phân) b) Hiện ra màn hình các số nguyên tố có trong dãy số trên. Ví dụ:. Dữ liệu vào (bàn phím) 12 -6 5 14 11 31 -7 32 -9 -7 7 3 -23. Dữ liệu ra (màn hình) 14.600 5 11 31 14.000 7 3. Bài 3: (7 điểm) Nhập vào 1 số tự nhiên N với (0 < N ≤ 65535). a) Hãy cho biết chữ số lớn nhất của 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) 3521 32123. Dữ liệu ra (màn hình) 5 Khong doi xung 3 Doi xung. ------------------Hết----------------- Thí sinh không được sử dụng tài liệu  Giám thị không giải thích gì thêm.

<span class='text_page_counter'>(2)</span> 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 bộ Test) Dữ liệu vào (bàn phím) Dữ liệu ra (màn hình) 1 1.00 15 1.58 605 1.64 7 7 7 6 3 4 7 5 3 7 -5 -8 -3 <Khoảng trắng> <Khoảng trắng> -8 2 7 11 9 13 -21 8.400 2 7 11 13 7 7 Doi xung 4589 9 Khong doi xung 44788744 8 Doi xung 56165. 6 Doi xung. Điểm 2đ 2đ 2đ 1đ 2đ 2đ 2đ 1đ 2đ 2đ 2đ.

<span class='text_page_counter'>(3)</span> 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 do 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 do Begin Write('Nhap phan tu thu ',i,': '); readln(a[i]); end; d:=0; t:=0; For i:=1 to n do if a[i]>0 then begin t:=t+a[i]; d:=d+1; end; Writeln('Trung binh cong cua cac phan tu lon ho 0 la: ', t/d:0:3); Writeln('Cac so nguyen to co trong day so la: '); For i:=1 to n do begin d:=0; for j:=1 to a[i] do 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) do if s[i]>max then max:=s[i]; Writeln('Chu solon nhat la ',max); s1:=''; for i:=length(s) downto 1 do s1:=s1+s[i]; if s1=s then writeln(s,' la xau doi xung') else writeln(s,' khong la xau doi xung'); Readln; End..

<span class='text_page_counter'>(4)</span>