de thi tham khao HSG 20152016
Bạn đang xem bản rút gọn của tài liệu. Xem và tải ngay bản đầy đủ của tài liệu tại đây (89.52 KB, 3 trang )
<span class='text_page_counter'>(1)</span>PHÒNG GD & ĐTTX DUYÊN HẢI TRƯỜNG THCS TRƯỜNG LONG HÒA. ĐỀ THI HỌC SINH GIỎI CẤP THỊ XÃ NĂM HỌC: 2015-2016 MÔN: TIN HỌC 9 Thời gian: 150 phút (không kể thời gian giao đề). NỘI DUNG ĐỀ: Câu 1: (6 điểm) Viết chương trình nhập vào một số nguyên. a) In ra màn hình các ước của số đó? b) Số đã cho có bao nhiêu ước? Ví dụ: Nhập vào số nguyên: 28 Các ước của 28 là: 1 2 4 7 Số 28 có: 6 ước.. 14. 28. Câu 2: (6 điểm) Dãy fibonacci có 2 phần tử đầu là 1,1 . Các phần tử sau bằng tổng hai phần tử đứng ngay trước nó: 1, 1, 2, 3, 5, 8, 13, 21….Nếu kí hiệu Fn là số thứ n của dãy Fibonacci, ta có: F1 = F2 = 1, Fn = Fn-1 + Fn-2, n>=3 Hãy viết chương trình nhập từ bàn phím số nguyên n và tính số hạng thứ n của dãy Fibonacci Câu 3: (8 điểm) Nhập vào một số nguyên từ bàn phím. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần. (không được xếp lại mảng) ĐÁP ÁN CÂU ĐÁP ÁN Câu 1 Program Timuoc; (6 điểm) Uses crt; Var a,i,dem: integer; Begin Writeln (‘Nhap vao mot so nguyen: ’); Readln (a); dem:=0; Write (‘Cac uoc cua so’,a, ‘la: ’); For i:=1 to a do If (a mod i = 0) then Begin Write (i,‘ ’); dem:=dem+1; end; Write (‘So’,a, ‘co’,dem, ‘uoc’);. ĐỂM 1 1 1 2. 1.
<span class='text_page_counter'>(2)</span> Readln; End. Câu 2 program soncuafibonacy; (6 điểm) var a,b,c,i,n:longint; begin write ('nhap so hang can tinh');readln(n); if(n=1)or(n=2) then c:=1; else begin a:=1; b:=1; for i:=3 to n do begin c:=a+b; a:=b;b:=c; end; end; writeln('so hang thu n cua day fibonaci la:',c); readln end. Câu 3 Program chen_so_vao_mang; (8 điểm) Uses Crt; Var A:Array[1..50] of integer; i, n, tg, j, m: Byte; Begin Clrscr; Write('nhap so phan tu mang:n= ');readln(n); for i:=1 to n do begin write('A[',i,']= ');Readln(a[i]); end; Write('nhap so nguyen m= ');readln(m); For i:=1 to n do begin for j:=1 to i do if a[i]>a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end;. 1 1 3. 1 1. 1. 1. 2.
<span class='text_page_counter'>(3)</span> For i:=n downto 1 do if a[i]>m then a[n+1]:=m; For i:=n downto 1 do if a[i]<=m then begin A[i+1]:=a[i]; a[i]:=m; end; Writeln(‘Day so sau khi chen them so la:’); for i:=1 to n+1 do write(a[i],' '); readln; End.. 2. 1. GVBM. Võ Thị Cẩm Huyền.
<span class='text_page_counter'>(4)</span>
