Đề thi chọn Học sinh giỏi cấp Trường năm học 2014 - 2015 môn Tin học lớp 10 - Trường THPT Thành Sen

Chia sẻ: Phan Thanh Ha | Ngày: | Loại File: DOC | Số trang:4

Thêm vào BST

Báo xấu

609
lượt xem 58
download

Download Vui lòng tải xuống để xem tài liệu đầy đủ

Mời các bạn tham khảo Đề thi chọn Học sinh giỏi cấp Trường năm học 2014 - 2015 môn Tin học lớp 10 sau đây để biết được cấu trúc đề thi cũng như những dạng bài chính được đưa ra trong đề thi. Từ đó, giúp các bạn có kế hoạch học tập và ôn thi hiệu quả.

Chủ đề:

Bình luận(0) Đăng nhập để gửi bình luận!

Lưu

Nội dung Text: Đề thi chọn Học sinh giỏi cấp Trường năm học 2014 - 2015 môn Tin học lớp 10 - Trường THPT Thành Sen

TRƯỜNG THPT THÀNH SEN KỲ THI CHỌN HỌC SINH GIỎI CẤP ========== TRƯỜNG NĂM HỌC 2014 2015 MÔN THI: TIN HỌC – LỚP 10 Thời gian: 180 phút (Không kể thời gian giao đề) Hãy trình bày thuật toán giải các bài toán sau đây: BÀI 1. ĐẾM DÃY (6 điểm) Tom là cậu bé đam mê toán học và tin học, cậu có thể viết thuật toán để giải được một số bài toán về số tự nhiên cơ bản. Tiếp tục tìm hiểu các thuật toán về số tự nhiên Tom phát hiện ra rằng số cách phân tích một số nguyên dương thành tổng các số nguyên dương có tính quy luật. Thầy giáo ra bài toán và Tom đang suy nghĩ xem quy luật phân tích đó như thế nào? Yêu cầu: Nhập vào 1 số nguyên dương N (NN). Hãy liệt kê tất cả các cách phân tích số S thành các tổng số tự nhiên từ 1 đến N. Dữ liệu vào Kết Quả 5 6 6=1+1+1+1+1+1 6=1+1+1+1+2 6=1+1+1+3 6=1+1+2+2 6=1+1+4 6=1+2+3 6=1+5 6=2+2+2 6=2+4 6=3+3 BÀI 2. BẢNG KẾT QUẢ XỔ SỐ (7 điểm) Yêu cầu: Bảng kết quả xổ số được cho bởi mảng A=(a1,a2,..,aN) và B=(b1,b2,..,bN) trong đó A là mảng các số trúng giải, còn B là mảng số tiền thưởng của mỗi giair tương ứng. Hãy lập chương trình tính tổng số tiền thưởng cho các vé mang các số ghi trong mảng C=(c1,c2,..,cM) cho trước. Dữ liệu vào Kết Quả 4 5 350 7 9 12 56 100 200 250 500 7 12 6 16 5 BÀI 3. TÌM SỐ (7 điểm) Yêu cầu: Cho 2 số nguyên dương a và b (a
5 58 5 7 9 15 17 21 27 31 33 45 51 Hết Đáp án: Bài 1. program demday; var x,t:array[0..20] of longint; n,k,s:longint; f,g:text; procedure try(i:longint); var j:longint; begin for j:=x[i-1] to n-t[i-1]div 2 do begin x[i]:=j; t[i]:=t[i-1]+j; if t[i]=s then begin write(g,s,'='); for k:=1 to i-1 do write(g,x[k],'+'); writeln(g,x[i]); end else try(i+1); end; end; begin assign(f,'demday.inp'); reset(f); read(f,n,s); assign(g,'demday.out'); rewrite(g); x[0]:=1; T[0]:=0; try(1); close(f); close(g); end. ----------------------------------------- Bài 2. var m,n:longint; a,b,c:array[1..1000] of longint; f,g:text; procedure nhap; var i,j:longint; begin assign(f,'Xoso.inp'); reset(f); readln(f,n,m); for i:=1 to n do read(f,a[i]); readln(f); for i:=1 to n do read(f,b[i]); readln(f); for j:=1 to m do read(f,c[j]); close(f);
end; procedure xuly; var i,j, tien:longint; begin assign(g,'xoso.out'); rewrite(g); tien:=0; for j:=1 to m do begin for i:=1 to n do if c[j]=a[i] then tien:=tien+b[i]; end; writeln(g,tien); close(g); end; begin nhap; xuly; end. --------------------------------- Bài 3. program timso; var a,b:longint; f,g:text; function kiemtra_nt(k:longint):boolean; var uoc,i:longint; begin uoc:=0; for k:=2 to k-1 do if k mod i =0 then inc(uoc); if uoc=0 then kiemtra_nt:=true else kiemtra_nt:=false; end; function kiemtra_dx(k:longint):boolean; var xau:string; m,du,i:longint; begin xau:=''; m:=k; while m0 do begin du:=m mod 2; if du=0 then xau:='0'+xau else xau:='1'+xau; m:=m div 2; end; kiemtra_dx:=true; for i:=1 to length(xau) div 2 do if xau[i]xau[length(xau)-i+1] then begin kiemtra_dx:=false; break; end; end; procedure xuly; var i:longint; begin assign(g,'timso.out'); rewrite(g); for i:=a to b do
if kiemtra_nt(i) and kiemtra_dx(i) then write(g,i,' '); close(g); end; begin assign(f,'timso.inp'); reset(f); readln(f,a,b); xuly; end.