SỞ GD&ĐT QUẢNG NAM TRƯỜNG THPT CHUYÊN NGUYỄN BỈNH KHIÊM I KỲ THI CHỌN HỌC SINH GIỎI KHU VỰC DUYÊN HẢI & ĐỒNG BẰNG BẮC BỘ NĂM 2013 ĐỀ THI ĐỀ NGHỊ MÔN: TIN HỌC, LỚP 10 ( Thời gian: 180 phút không kể thời gian giao đề) Tổng quan đề thi: Tên File làm Dữ liệu vào Dữ liệu Giới hạn BAN TIN BONG DA Bl1.pas BANGDIEM.INP TKEGIAI.OUT giây NHA CHUNG CU Bl2.pas GIACANHO.INP LOAIGIA.OUT giây MUA VÉ Bl3.pas TICK.INP TICK.OUT giây Chú ý: - Bài thi làm ngôn ngữ Free Pascal - Đề thi gồm có trang II Nội dung đề thi: Bài BẢN TIN BÓNG ĐÁ Sau cuối mùa giải bóng đá, vào bảng điểm tất trận đấu, Ban tổ chức biết số trận thắng, thua, hòa tổng số điểm đội Từ đó, Ban tổ chức biết đội bóng đá mạnh mùa giải Quy ước: Trận thắng điểm, trận hòa điểm, thua điểm Yêu cầu: Người lập trình giúp Ban tổ chức, thống kê số trận thắng, hòa, thua, tổng điểm đội, tìm đội bóng đá mạnh Dữ liệu: Vào từ file văn BANGDIEM.INP • Dòng ghi hai số nguyên dương n, m tương ứng n đội m trận đấu đội, 02 số cách dấu cách • Dòng thứ i n dòng chứa m số nguyên thuộc số 0, 1, ứng với điểm trận đấu, cách dấu cách Kết quả: Ghi file văn TKEGIAI.OUT: Ghi n dòng, dòng bốn chữ số, theo thứ tự số lượng trận thắng, hòa, thua số cuối tổng điểm đội Dòng tiếp theo, ghi số thứ tự đội bóng danh sách ban đầu đội bóng mạnh Nếu trường hợp có nhiều đội bóng có tổng số điểm ta liệt kê hết số thứ tự đội bóng cách dấu cách Ví dụ: BANGDIEM.INP TKEGIAI.OUT 1 0 10 3 2 1 0 2 Bài NHÀ CHUNG CƯ Một khu chung cư xây dựng nhằm đáp ứng nhu cầu nhà người có thu nhập thấp Do nhu cầu nhà lớn nhu cầu khác nhau, nên người kinh doanh nhà xây dựng với số lượng hộ lớn giá trị cho thuê hộ khác Mỗi hộ trang bị đầy đủ tiện nghi, đảm bảo cho ga đình sinh hoạt hàng ngày Yêu cầu: Người lập trình giúp cho người kinh doanh thống kê có loại hộ ứng với mức giá trị cho thuê Đồng thời cho biết số lượng hộ có giá trị cho thuê nhiều nhất? Dữ liệu: Vào từ file văn GIACANHO.INP • Dòng ghi số nguyên dương N số lượng hộ khu chung cư • Dòng thứ hai trở đi, dòng chứa 10 số (cho đến hết N số), số cách dấu cách, dòng cuối 10 số, số nhỏ 100 (đơn vị tính triệu đồng), số lớn 800 Kết quả: Ghi file văn LOAIGIA.OUT: dòng đầu ghi M số lượng loại hộ khác ứng với giá trị cho thuê; dòng thứ hai ghi số cách dấu cách, số đầu ghi số lượng hộ có mức giá cho thuê nhiều nhất, số thứ hai giá trị hộ Ví dụ: GIACANHO.INP 15 100 150 150 200 250 300 250 150 400 150 LOAIGIA.OUT 10 150 500 150 600 700 800 BÀI 3: MUA VÉ Có N người xếp hàng mua vé, đánh số đến N theo thứ tự đứng hàng Thời gian phục vụ bán vé cho người thứ i t i Mỗi người cần mua vé quyền mua tối đa vé, số người nhờ người đứng trước mua hộ vé Người thứ i nhận mua vé cho người thứ i+1 thời gian mua vé cho người ri Yêu cầu: Tính thời gian nhỏ để bán vé xong cho N người Dữ liệu vào: Đọc từ file TICK.INP • Dòng thứ ghi số N • Dòng thứ hai ghi N số nguyên dương t1, t2, …, tN • Dòng thứ ba ghi N – số r1, r2, …, rN-1 Dữ liệu ra: Kết ghi file TICK.OUT • Dòng thứ ghi tổng thời gian phục vụ bán vé • Các dòng ghi số khách hàng cần rời khỏi hàng, dòng 10 số, ngược lại rời khỏi hàng ghi số Giới hạn: < N ≤ 2000 Ví dụ: TICK.INP TICK.OUT 17 25784 24 10 10 -Hết - HƯỚNG DẪN CHẤM Bài 1( điểm) Program bangtinbongda; Const inp='BangDiem.inp'; out='Tkegiai.out'; var a: array[1 100,1 100] of word; s,t,h: array[1 100] of word; i,j,n,m,max: byte; fi,fo:Text; Procedure docfile_xuly; Var i,j:Byte;ss:Word; Begin assign(fi,inp);reset(fi); readln(fi,n,m); fillchar(s,sizeof(s),0); fillchar(t,sizeof(t),0); fillchar(h,sizeof(h),0); for i:=1 to n begin for j:=1 to m begin read(fi,a[i,j]); s[i]:=s[i]+a[i,j]; if a[i,j]=3 then t[i]:=t[i]+1; if a[i,j]=1 then h[i]:=h[i]+1; end; readln(fi); end; close(fi); max:=s[1]; for i:=2 to n if max