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 [r]
(1)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 là 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 màn hình giá trị biểu thức: T 1 1 1 2 n (Kết làm tròn chữ số phần thập phân) Ví dụ: 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 các 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 màn hình các số nguyên tố có dãy số trên Ví dụ: Dữ liệu vào (bàn phím) 12 -6 14 11 31 -7 32 -9 -7 -23 Dữ liệu (màn hình) 14.600 11 31 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) 3521 32123 Dữ liệu (màn hình) Khong doi xung Doi xung Hết - Thí sinh không sử dụng tài liệu Giám thị không giải thích gì thêm (2) 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 <Khoảng trắng> <Khoảng trắng> -8 11 13 -21 8.400 11 13 7 Doi xung 4589 Khong doi xung 44788744 Doi xung 56165 Doi xung Điểm 2đ 2đ 2đ 1đ 2đ 2đ 2đ 1đ 2đ 2đ 2đ (3) 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 (4)