- Chương trình cho kết quả sai: Chỉ chấm phần các ý chính của thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm của câu.. Bộ Test thử..[r]
(1)phòng giáo dục và đào tạo cẩm khê kú thi chän häc sinh giái c¸c m«n v¨n ho¸ líp cÊp huyÖn n¨m häc 2012 - 2013 §Ò chÝnh thøc đề thi môn tin học Thời gian làm bài: 150 phút, không kể thời gian giao đề Bài (4,0 điểm) Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn: n S n n 1 Tên tập tin: D:\THI\Bai1.pas Bài 2.(5,0 điểm) Viết chương trình in màn hình các số từ x đến y là số chẵn và chia hết cho Với x, y nhập từ bàn phím? Đếm xem có tất bao nhiêu số? Dữ liệu vào: Số nguyên x và y (x<y) Kết ra: Các số chẵn chia hết cho phạm vi từ x đến y và đếm có bao nhiêu số Ví dụ: Dữ liệu vào 40 Dữ liệu 12 18 24 30 36 Co tat ca: so Tên tập tin: D:\THI\Bai2.pas Bài (6,0 điểm) Viết chương trình cho phép rút gọn phân số Yêu cầu: - Dữ liệu vào: Tử số và mẫu số phân số cần rút gọn - Dữ liệu xuất: Rút gọn và xuất kết dạng c/d Với c/d là phân số sau rút gọn Ví dụ: Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ” Tên tập tin: D:\THI\Bai3.pas Bài 4.(5,0 điểm) Cho mảng A các số nguyên gồm n phần tử Viết chương trình tạo mảng B[1 n] Trong đó B[i] là tổng giá trị i phần tử đầu tiên mảng A Tên tập tin: D:\THI\Bai4.pas Hết -(Cán coi thi không giải thích gì thêm) HƯỚNG DẪN CHẤM THI - KỲ THI CHỌN HỌC SINH GIỎI LỚP CẤP HUYỆN NĂM HỌC 2012 – 2013 (2) Môn: Tin học Yêu cầu chung: Yêu cầu chương trình chạy thông suốt ( 2-3 điểm) + Hoàn thành đúng phần khai báo các biến: (0,25 điểm) + Viết đúng chương trình nhập mảng: (0,25 điểm) + Viết đúng thuật toán (cách giải) tính tổng: (1-2 điểm) + Viết đúng thủ tục tạo và ghi kết vào tệp: (0,5 điểm) - Chương trình chạy cho kết đúng (có thể làm theo cách khác đáp án): khai báo đầy đủ, trình bày có cấu trúc rõ ràng cho điểm tối đa Không khai báo mỗi biến trừ 0.25 điểm - Chương trình cho kết sai: Chỉ chấm phần các ý chính thuật toán, mỗi ý đúng cho điểm không vượt quá 40% số điểm câu Bài (4,0 điểm) Viết chương trình nhập số tự nhiên n (n≤100) và tính giá trị biểu thức Sn: n S n n 1 Chương trình Uses Crt; Var n,i:Integer; s:Real; BEGIN ClrScr; Write(‘Nhap so tu nhien n=');Readln(n); s:=0; For i:=1 to n s:=s+i/(i+1); Write(‘s=’,s:4); Readln END Điểm 0,5 0,5 2,0 0,5 0,5 Bộ Test thử n nhập vào 100 1000 Kết S trên màn hình 0.500 95.803 993.514 Bài 2.(5,0 điểm): Viết chương trình in màn hình các số từ x đến y là số chẵn và chia hết cho với x, y nhập từ bàn phím? Đếm xem có tất bao nhiêu số? Dữ liệu vào: Số nguyên x và y (x<y) Kết ra: Các số chẵn chia hết cho phạm vi từ x đến y và đếm có bao nhiêu số Chương trình Điểm (3) Uses Crt; var x,y,i,d:longint; Begin d:=0; Repeat Writeln(‘Nhap vao x,y: ’); Readln(x,y) Until x<y; for i:=x to y if (i mod 2=0)and(i mod 3=0) then begin write(i:6); inc(d); end; writeln; writeln('Co tat ca:',d,' so'); readln; End 0,5 1,0 2,5 1,0 Bộ Test thử Dữ liệu vào 40 Dữ liệu 12 18 24 30 36 Co tat ca: so Bài (6,0 điểm): Viết chương trình cho phép rút gọn phân số Yêu cầu: - Dữ liệu vào: Tử số và mẫu số phân số cần rút gọn - Dữ liệu xuất: Rút gọn và xuất kết dạng c/d Với c/d là phân số sau rút gọn Ví dụ: Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ” Chương trình Program Rut_Gon_Phan_So; uses crt; var Tu,Mau: Integer; a,b,r,UCLN: Integer; ‘Nhập phân số:’ Begin clrscr; Write('Nhap tu so: ');readln(Tu); Write('Nhap mau so: '); readln(Mau); if Mau = then writeln(‘Khong phai phan so’) Điểm 0.5 0.5 0,5 (4) else Begin write(Tu,’/’,Mau); ‘Tìm UCLN tử và mẫu:’ a:= Tu; b:= Mau; r:= a mod b; while r <> Begin a:=b; b:=r; r:= a mod b; end; UCLN:=b; ‘Thực rút gon:’ Tu:=Tu div UCLN; mau:= Mau div UCLN; ‘In phân số sau rút gọn:’ if Mau <> then write('=',tu,’/’,mau) else write(Tu); end; readln; End Bộ Test thư Nhập tử: - Nhập mẫu: Kết xuất: “6/8 = 3/4 ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “10/5 = ” Nhập tử: 10 - Nhập mẫu: Kết xuất: “Khong phai phan so ” 0,5 2,0 0,5 1,0 0.5 Bài 4.(5,0 điểm) Cho mảng A các số nguyên gồm n phần tử Viết chương trình tạo mảng B[1 n] Trong đó B[i] là tổng giá trị i phần tử đầu tiên mảng A Chương trình Điểm Uses Crt; Const max = 100; 0.5 Var A,B:array[1 max] of Integer;i,j,n:integer; Begin Write(' nhap vao so phan tu cua mang'); Readln(n); For i:= to n 1,0 Begin Write('a[',i,']=');readln(a[i]); End; For i:= to n 0,5 (5) Write(a[i]:5); For i:= 1to n Begin B[i]:= ; For j:=1 to i B[i]:=B[i]+a[j]; End; For i:= to n Write(B[i]:5); Readln; End 2,5 0,5 Bộ Test thử Mảng A Mảng B 1 -2 -1 6 12 19 28 28 36 (6) (7)