HỘI THI TIN HỌC TRẺ KC NĂM 2012 ĐỀ THI PHẦN THỰC HÀNH BẢNG B - THCS Thời gian làm bài: 120 phút Ngày thi: 30-03-2012 YÊU CẦU CHUNG: - Nếu thí sinh không sử dụng tệp liệu vào ra, nhập liệu từ bàn phím xuất kết hình - Tạo thư mục với tên theo quy định C2_SBD ổ D:\ (trong SBD số báo danh thí sinh) Các làm thí sinh phải lưu thư mục - Sử dụng ngôn ngữ lập trình Turbo Pascal Free Pascal để viết chương trình Đặt tên làm tên tệp liệu theo quy định bảng sau: Stt Bài Quy định đặt tên tệp Quy định tên tệp Quy định tên tệp chương trình liệu vào liệu Bài Bai1.Pas Nhập từ bàn phím Xuất hình Bài Bai2.Pas Nhập từ bàn phím Xuất hình Bài Bai3.Pas Nhập từ bàn phím Xuất hình Bài Bai4.Pas Nhập từ bàn phím Xuất hình Bài 1: (20 điểm): Viết chương trình tính tổng S= 1+1.2+1.2.3+…+1.2.3…N (N2 Em biểu diễn số tự nhiên N thành tổng số Fibonaci khác Dữ liệu vào: Nhập từ bàn phím số N (N ≤ 2000000000) Dữ liệu ra: Xuất hình Ví dụ: Nhập từ bàn phím 129 Xuất hình 129 = 89 + 34 + + Nhập từ bàn phím Xuất hình 8=8 Hoặc Hết BÀI GIẢI Bài 1: (20 điểm): Viết chương trình tính tổng S= 1+1.2+1.2.3+…+1.2.3…N (N= ',-B/A:2:2) ELSE WRITELN('PT CO NGHIEM LA X < ',-B/A:2:2); END ELSE BEGIN IF (B>=0) THEN WRITELN('PT CO VO SO NGHIEM') ELSE WRITELN('PT VO NGHIEM'); END; READLN; END Bài 2: program so_nguyen_to; uses crt; var a:array[1 100] of integer; tong,dem,i,n:integer; function ktnt(k:integer):boolean; var i:integer; begin ktnt:=false; if k1 then write (length(s)); write(s[1]); s:=st[i]; end; if length (s)=1 then write(s) else write (length(s),s[1]); writeln('da xu ly xong'); readln; end Bài 4: PROGRAM CT; USES CRT; TYPE mang=array[1 100,1 100] of integer; Var TAM,I,J,CS,D,M,N:integer; A:mang; KTCS:BYTE; B:ARRAY[1 100] OF INTEGER; { } Procedure nhapmang(Var A:Mang); Begin Write(‘Cho biet so cot: ‘);readln(n); Write(‘Cho biet so dong: ‘);readln(m); For i:=1 to n For j:=1 to m BEGIN Write(‘a[‘,I,’]: ‘);Readln(A[i,j]); END; End; { -} BEGIN clrscr; D:=0;B[D]:=0; Nhapmang(a); {Chuyen ma tran sang mang chieu} FOR I:=1 TO M DO FOR J:=1 TO N DO BEGIN D:=D+1; B[D]:=A[I,J]; END; {Sap xep mang chieu} FOR I:=1 TO n*m-1 DO FOR J:=I+1 TO n*m DO IF B[I]>B[J] THEN BEGIN 10 TAM:=B[I]; B[I]:=B[J]; B[J]:=TAM; END; {Kiem tra cap so cong} CS:=B[2]-B[1]; for i:=1 to n*m-1 BEGIN J:=I+1; if((B[J]-B[i])CS)then BEGIN KTCS:=1; BREAK; END; END; writeln; if ktcs=1 then writeln('KHONG LAP THANH CAP SO CONG') else begin writeln('LA CAP SO CONG'); writeln('Cong sai: ',CS); end; writeln('Da xu ly xong !'); READLN END SỞGIÁO DỤC & ĐÀO TẠO ĐỀTHI CHÍNH THỨC (Đề thi có 02 trang, gồm bai) Câu truc đê thi: STT Tên bai FIBONANCI CẤP SỐCỘNG MA TRẬN CHUỖI ĐỀTHI TIN HỌC TRẺKHÔNG CHUYÊN NĂM HỌC 2010 - 2011 Môn : TIN HỌC - THCS Thời gian : 150 phút (không kể thời gian giao đề) Ngày thi : 18/2/2011 Tên file bai lam Tên file INPUT BAI1.PAS Nhập từ ban phím BAI2.PAS Nhập từ ban phím BAI3.PAS Nhập từ ban phím BAI4.PAS Nhập từ ban phím Tên file OUTPUT Xuât man hình Xuât man hình Xuât man hình Xuât man hình Bai 1: (4 điểm) Viết chương trình nhập vào số nguyên dương N Xuất số Fibonanci thứ N VD: Nhập N = 10 Xuất: 55 Bai 2: (6 điểm) Viết chương trình kiểm tra xem mảng số nguyên cho trước có lập thành cấp số cộng hay không ? Nếu có cho biết công sai 11 Dữ liệu vào: Nhập từ bàn phím: + Dòng đầu ghi số nguyên dương N (N