NỘI DUNG ĐỀ: Câu 1: 6 điểm Viết chương trình nhập vào một số nguyên.. Chèn số đó vào mảng sao cho mảng vẫn có thứ tự giảm dần.[r]
(1)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 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 số nguyên a) In màn hình các ước số đó? b) Số đã cho có bao nhiêu ước? Ví dụ: Nhập vào số nguyên: 28 Các ước 28 là: Số 28 có: ước 14 28 Câu 2: (6 điểm) Dãy fibonacci có phần tử đầu là 1,1 Các phần tử sau tổng hai phần tử đứng trước nó: 1, 1, 2, 3, 5, 8, 13, 21….Nếu kí hiệu Fn là số thứ n 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 dãy Fibonacci Câu 3: (8 điểm) Nhập vào số nguyên từ bàn phím Chèn số đó vào mảng cho mảng có thứ tự giảm dần (không xếp lại mảng) ĐÁP ÁN CÂU ĐÁP ÁN Câu 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 If (a mod i = 0) then Begin Write (i,‘ ’); dem:=dem+1; end; Write (‘So’,a, ‘co’,dem, ‘uoc’); ĐỂM 1 (2) Readln; End Câu 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 begin c:=a+b; a:=b;b:=c; end; end; writeln('so hang thu n cua day fibonaci la:',c); readln end Câu 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 begin write('A[',i,']= ');Readln(a[i]); end; Write('nhap so nguyen m= ');readln(m); For i:=1 to n begin for j:=1 to i if a[i]>a[j] then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end; 1 1 1 (3) For i:=n downto if a[i]>m then a[n+1]:=m; For i:=n downto if a[i]<=m then begin A[i+1]:=a[i]; a[i]:=m; end; Writeln(‘Day so sau chen them so la:’); for i:=1 to n+1 write(a[i],' '); readln; End GVBM Võ Thị Cẩm Huyền (4)