SỞ GD VÀ ĐT VĨNH PHÚC TRƯỜNG THPT LIỄN SƠN KỲ THI CHỌN HSG CẤP TRƯỜNG LỚP 11 Năm học 2018 2019 MÔN TIN HỌC Thời gian 180 phút (Không kể thời gian giao đề) Tổng quan bài thi TT Tên bài Tên file CT Tên[.]
SỞ GD VÀ ĐT VĨNH PHÚC TRƯỜNG THPT LIỄN SƠN KỲ THI CHỌN HSG CẤP TRƯỜNG LỚP 11 Năm học: 2018-2019 MƠN: TIN HỌC Thời gian 180 phút (Khơng kể thời gian giao đề) Tổng quan thi TT Tên Tên file CT Tên file DL vào Tên file DL Đếm đoạn Số lớn Chia quà tết count.pas nmax.pas gift.pas count.inp nmax.inp gift.inp count.out nmax.out gift.out Điể m 7 Thời gian 1s 1s 1s Bài 1: Đếm đoạn Tên file: count.pas Dữ liệu vào: count.inp Dữ liệu ra: count.out Cho mảng A có N số nguyên Một đoạn A dãy phần tử liên tiếp A Hãy đếm số đoạn A có giá trị lớn lớn M Dữ liệu: Dòng 1: Ghi số nguyên N , M , số cách khoảng trống Dòng 2: Ghi N số nguyên dãy A , số cách khoảng trống Kết quả: Gồm dòng ghi kết Ví dụ: count.inp 51 11111 count.inp 44 1525 count.out 15 Giới hạn: Có 30 % số test ứng với 30 % số điểm có ≤ N ≤ 100 Có 30 % số test khác ứng với 30 % số điểm có ≤ N ≤ 5000 Có 40% số test cịn lại ứng với 40 % số điểm có ≤ N ≤ 105 Trong tất test có ≤ A i ≤ 106 Bài Số lớn Tên file: nmax.pas Dữ liệu vào: nmax.inp Dữ liệu ra: nmax.out count.out Peter Bin chơi trị chơi tìm số lớn, Peter cho Bin biết trước xâu kí tự, có chữ số Peter yêu cầu Bin tìm số lớn từ xâu cho cách loại bỏ số kí tự khỏi xâu cho kí tự cuối cịn lại theo thứ tự tạo thành số lớn Dữ liệu: Dòng gồm xâu cho trước Kết quả: Một dòng chứa số nguyên số lớn mà Bin tìm sau loại bỏ kí tự Ví dụ: nmax.inp nmax.out 13a7b48cb7d9e68f7 89687 Bài 3: Chia quà tết Tên file: gift.pas Dữ liệu vào: gift.inp Dữ liệu ra: gift.out Trường THPT A chia quà tết cho học sinh, có X áo Y hộp bánh để chia quà cho học sinh diện sách cuối năm 2018 Nhà trường chia quà cho học sinh thoả mãn điều kiện: chia cho n học sinh diện sách học sinh phải nhận số lượng áo nhau, số lượng hộp bánh nhau, đồng thời phải chia hết tất X áo Y hộp bánh Em giúp nhà trường liệt kê tất phương án chia quà thoả mãn điều kiện nêu Dữ liệu: Dòng 1: hai số nguyên X, Y (1length(s); for i:=1 to begin k:=i; for j:=i to length(s)+i-5 if s[k]i then delete(s,i,k-i); end; writeln(g,copy(s,1,5)); close(g); end; Begin Nhap; xuly; readln; End Bài 3: Chia quà tết //gift.pas var i,x,y:longint; f,g: text; function UCLN(x,y:longint):longint; var sd:longint; begin while y0 begin sd:= x mod y; x:=y; y:=sd; end; UCLN:=x; end; begin assign(f,'gift.inp'); reset(f); assign(g,'gift.out'); rewrite(g); read(f,x,y); for i:=1 to UCLN(x,y) begin if (x mod i=0) and (y mod i =0) then writeln(g,i,' ',x div i,' ',y div i); end; close(f); close(g); readln End ... chia quà tết cho học sinh, có X áo Y hộp bánh để chia quà cho học sinh diện sách cuối năm 2018 Nhà trường chia quà cho học sinh thoả mãn điều kiện: chia cho n học sinh diện sách học sinh phải nhận... chia quà có n học sinh chia quà, học sinh nhận a áo b hộp bánh Các phương án liệt kê dòng liên thứ tự n tăng dần Ví dụ: gift.inp 12 gift.out 12 334 18 239 326 613 18 -Hết - Đáp án: Bài... i:=1 to n read(f,a[i]); q:=0; for i:=1 to n begin if a[i]>=m then begin q:=i; b[i]:=b[i-1]+q; end else b[i]:=b[i-1]+q; end; writeln(g,b[n]); close(f); close(g); End Bài 2: Tìm số lớn var f,g:text;