Đề thi chọn học sinh giỏi cấp tỉnh môn Tin học Lớp 9 - Năm học 2013-2014

Nội dung text: Đề thi chọn học sinh giỏi cấp tỉnh môn Tin học Lớp 9 - Năm học 2013-2014

1. SỞ GIÁO DỤC VÀ ĐÀO TẠO KỲ THI CHỌN HỌC SINH GIỎI CẤP TỈNH LỚP 9 THCS BÌNH ĐỊNH KHÓA NGÀY 18-03-2014 ĐỀ CHÍNH THỨC Môn thi: TIN HỌC Thời gian: 150 phút (Không kể thời gian phát đề) Ngày thi: 18/03/2014 Chú ý: - Các file dữ liệu *.INP, *.OUT lưu trong thư mục \TINHOC9\ - Bài làm của thí sinh lưu trong thư mục \TINHOC9\ \. Ví dụ: D:\TINHOC9\SBD01\ Bài 1. (6.0 điểm) :Tách số: Ten file chương trình: Tachso.Pas Viết chương trình tách số nguyên dương A (A max then Const End; Begin fi='tachso.inp'; Begin s:=i; fo='tachso.out'; { Clrscr;} max:=Uc(i,n-i); Var n,i,s,max:Integer; Assign(f,fi); End; f:text; Reset(f); If max>1 then Function Readln(f,n); Writeln(f,s,' ',n-s,' ',Uc(s,n-s)) Uc(x,y:Integer):Integer; Assign(f,fo); Else Begin Rewrite(f); Writeln(f,1,' ',n,' ',1); While x y then x:=x-y max:=1; End.
2. Bài 2. (7.0 điểm) Khai triển Cantor Tên file chương trình: Cantor.PAS Khai triển Cantor của số tự nhiên N là biểu diễn số N dưới dạng: N= ak.k! + ak-1.(k-1)! + + a2.2! + a1.1! Trong đó: 0 ≤ ak ≤ k và k!= 1.2.3 (k-1).k Viết chương trình liệt kê các hệ số a k, ak-1, , a3, a2, a1 trong khai triển Cantor của số tự nhiên N (N n do fo='Cantor.out'; Assign(f,fi); s:=s-1; Var n,k,s:Word; Reset(f); Write(f,s,' '); f:text; Readln(f,n); n:=n-gt(k)*s; Function gt(n:Byte):Word; Assign(f,fo); k:=k-1; Var i:Byte; Rewrite(f); Until n=0; p:Word; Writeln(f,n); If k>0 then Begin k:=1; For s:=1 to k do p:=1; While gt(k)<n do Write(f,0,' '); For i:=2 to n do k:=k+1; Close(f); p:=p*i; k:=k-1; End.
3. Bài 3. (7.0 điểm) Bi đổi màu: Tên file chương trình: bidoimau.PAS Trên bàn có ba loại bi màu đỏ, xanh, vàng với số lượng lần lượt là: x, y, z (x, y, z 0) then End; Var d,x,v:integer; Begin End f:text; Writeln(f,d,' ',x,' ',v); Else Writeln(f,'Khong thuc hien Begin While (x+v)<>0 do duoc !'); Assign(f,fi); Begin Close(f); Reset(f); d:=d- End. Readln(f,d,x,v); 1+3*((3*x*v)div(3*x*v-1)); Hết