De thi chọn HSG cap truong ly tu trong 2018

PHÒNG GD&ĐT TP LÀO CAI TRƯỜNG THCS LÝ TỰ TRỌNG ĐỀ CHÍNH THỨC ĐỀ THI CHỌN HSG LỚP CẤP TRƯỜNG NĂM HỌC 2018 - 2019 Môn: Tin học (Thời gian làm 150 phút không kể thời gian giao đề ) (Đề thi có 01 trang) Câu (6 điểm): Em sử dụng phần mềm Scratch để thực cơng việc sau: a) Vẽ hình bên phải b) Nhập vào số nguyên 𝑁, tính tổng chữ số tạo thành nó? Ví dụ: với 𝑁=123 in tổng chữ số 6; với 𝑁=12345 in tổng chữ số 15 c) In số đảo ngược số vừa nhập vào: Ví dụ: Nhập vào số 123 in số 321 Câu (4 điểm): Nhập vào từ bàn phím số ngun dương 𝑁, sau nhập dãy có 𝑁 số nguyên dương 𝑎1, 𝑎2 , 𝑎3 , … 𝑎𝑁 (𝑁 ≤ 100, ≤ 𝑎𝑖 ≤ 9) Em sử dụng tất số dãy vừa nhập để in số nguyên dương lớn nhất, bé tạo thành từ số trên? Ví dụ: Nhập vào dãy số: 1, 0, 0, 2, 3, 4, 9, 1, số lớn là: 994321100, số bé là: 100123499 Câu (6 điểm): Nhập vào từ bàn phím số nguyên dương 𝑁, sau nhập dãy có 𝑁 số nguyên dương: 𝑎1 , 𝑎2, 𝑎3 , … 𝑎𝑁 (3 ≤ 𝑁 ≤ 100) a) Đếm xem dãy có số nguyên tố? b) Đếm xem dãy có số 𝑎𝑖 , 𝑎𝑗 , 𝑎𝑘 (𝑖 ≠ 𝑗 ≠ 𝑘) thỏa mãn 𝑎𝑖 + 𝑎𝑗2 = 𝑎2𝑘 Bộ số thỏa mãn tính chất gọi số Pytago c) Tìm ước chung lớn tất số dãy Câu (4 điểm): Có ốc sên bị lên cọc cao 𝐻, vào ngày lẻ thì: ban ngày bị lên đoạn có độ dài 𝑎1, ban đêm lại bị xuống đoạn độ dài 𝑏1 ; cịn vào ngày chẵn thì: ban ngày bị lên đoạn có độ dài 𝑎2, ban đêm lại bò xuống đoạn độ dài 𝑏2 Hỏi sau ngày bị lên đến đỉnh cọc Biết 𝐻, 𝑎1, 𝑏1 , 𝑎2 , 𝑏2 số nguyên dương nhập vào từ bàn phím thỏa mãn: 𝑎1 ≥ 𝑏1 ; 𝑎2 ≥ 𝑏2 ; 𝐻 ≥ 𝑎1; 𝐻 ≥ 𝑎2 lẻ Ví dụ: 𝐻 = 10; 𝑎1 = 4; 𝑏1 = 2; 𝑎2 = 3; 𝑏2 = sau ngày ốc sên lên đến đỉnh cọc HẾT -Họ tên học sinh: SBD: PHÒNG GD&ĐT TP LÀO CAI TRƯỜNG THCS LÝ TỰ TRỌNG HDC THI CHỌN HSG LỚP CẤP TRƯỜNG NĂM HỌC 2018 - 2019 Mơn: Tin học HDC CHÍNH THỨC Nguyên tắc chấm: - Dựa theo làm học sinh điểm, - Chấm ý tưởng thuật tốn học sinh trường hợp chương trình chưa hoàn thiện - Học sinh giải cách khác, nhiên cho kết cuối cho đủ số điểm thành phần - Dữ liệu nhập vào để kiểm tra chương trình phải đảm bảo xác, khơng bắt bí học sinh, học sinh khơng cần phải kiểm tra tính hợp lệ liệu nhập vào Bài 1: Chấm dựa theo chương trình chạy học sinh Bài 2: var a:array[1 100] of integer; n,i,j:integer; procedure sapxep(); var i,j,tg:integer; begin for i:=1 to n for j:=i+1 to n if (a[i]>a[j]) then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end; BEGIN write('Nhap so chu so N= '); readln(n); for i:=1 to n begin write('Nhap so hang thu ',i, ': '); readln(a[i]); end; sapxep(); write('So lon nhat duoc tao la: '); for i:=n downto write(a[i]); writeln; i:=1; 1,5đ 0,5 đ 0,5 đ while (a[i]=0) inc(i); if (a[1]=0) then begin a[1]:=a[i]; a[i]:=0; end; write('So be nhat duoc tao la: '); for i:=1 to n write(a[i]); readln END 1,5 đ Bài 3: var n,i,j,k,uc,demNguyento,demPytago:integer; a:array[1 100] of integer; procedure sapxep(); var i,j,tg:integer; begin for i:=1 to n for j:=i+1 to n if (a[i]>a[j]) then begin tg:=a[i]; a[i]:=a[j]; a[j]:=tg; end; end; function ktnt(n:integer):boolean; var i,dem:integer; begin dem:=0; for i:=1 to n if (n mod i=0) then inc(dem); if (dem=2) then ktnt:=true else ktnt:=false; end; function ucln(a,b:integer): integer; var i:integer; begin for i:=1 to a if (a mod i =0) and (b mod i=0) then ucln:=i; end; BEGIN write('Nhap so chu so N= '); readln(n); for i:=1 to n begin write('Nhap so hang thu ',i,': '); readln(a[i]); end; demNguyento:=0; demPytago:=0; for i:=1 to n if (ktnt(a[i])) then inc(demNguyento); writeln('Day so vua nhap co: ',demNguyento,' so nguyen to'); 1,0 đ 1,0đ 1,0 đ 1,0đ sapxep(); demPytago:=0; for i:=1 to n-2 for j:=i+1 to n-1 for k:=j+1 to n if (a[i]*a[i]+a[j]*a[j]=a[k]*a[k]) then inc(demPytago); writeln('Day so vua nhap co: ',demPytago,' bo so Pytago'); uc:=ucln(a[1],a[2]); for i:=3 to n uc:=ucln(uc,a[i]); writeln('Uoc chung lon nhat cua day so tren la: ',uc); readln; END 1,0đ 1,0đ Bài 4: var h,a1,a2,b1,b2,songay,docao:integer; BEGIN write('Nhap du lieu vao theo thu tu H, a1, a2, b1, b2: '); readln(H, a1, b1, a2, b2); docao:=0; songay:=1; 0,5đ while (docao=H) then break else begin docao:=docao+a1-b1; inc(songay); end; 1,5đ if (songay mod 2=0) then if (docao+a2>=H) then break else begin docao:=docao+a2-b2; inc(songay); end; end; 1,5đ writeln; write('So de oc sen leo len den dinh co la: ',songay); readln; END 0,5đ ... readln(a[i]); end; demNguyento:=0; demPytago:=0; for i:=1 to n if (ktnt(a[i])) then inc(demNguyento); writeln('Day so vua nhap co: ',demNguyento,' so nguyen to'); 1,0 đ 1,0đ 1,0 đ 1,0đ sapxep(); demPytago:=0;... a[j]:=tg; end; end; function ktnt(n:integer):boolean; var i,dem:integer; begin dem:=0; for i:=1 to n if (n mod i=0) then inc(dem); if (dem=2) then ktnt:=true else ktnt:=false; end; function ucln(a,b:integer):...PHÒNG GD&ĐT TP LÀO CAI TRƯỜNG THCS LÝ TỰ TRỌNG HDC THI CHỌN HSG LỚP CẤP TRƯỜNG NĂM HỌC 2018 - 2019 Mơn: Tin học HDC CHÍNH THỨC Ngun tắc chấm: - Dựa theo làm học sinh