Đề thi chon đội HSG thi tỉnh năm 2009

PHÒNG GD- ĐT ĐỀ THI CHỌN ĐỘI THI HỌC SINH GIỎI TỈNH GIO LINH MÔN : TIN HỌC Thời gian 150 phút ( Không kể thời gian giao đề ) Ngày thi 9 tháng 12 năm 2008 HỌC SINH THỰC HÀNH TRÊN MÁY TÍNH Lưu bài làm vào thư mục D:\CHONHSG Ví dụ: D:\CHONHSG\BAI1 Câu 1:(3đ) Cho mảng A các số nguyên gồm n phần tử. Viết chương trình tạo mảng B[1 n]. Trong đó B[i] là tổng giá trị của i phần tử đầu tiên của mảng A. Câu 2:(3đ) Nhập vào xâu S (a z), in ra ký tự xuất hiện nhiều lần nhất trong xâu và số lần xuất hiện ? Nếu có nhiều trường hợp thì in ra trường hợp đầu tiên Ví dụ: Input Output abcaabca a 4 bcbsaaba b 3 Câu 3:(4đ) Cho mảng hai chiều các số nguyên. Viết chương trình tính tổng các phần tử lớn nhất của mỗi dòng HẾT Chú ý : Học sinh không được sữ dụng tài liệu ĐÁP ÁN Program Bai1;(3đ) Uses Crt; Const max = 100; Var A,B:array[1 max] of Integer;i,j,n:integer; Begin Write(' nhap vao so phan tu cua mang'); Readln(n); For i:= 1 to n do Begin Write('a[',i,']=');readln(a[i]); End; For i:= 1 to n do Write(a[i]:5); For i:= 1to n do Begin B[i]:= 0 ; For j:=1 to i do B[i]:=B[i]+a[j]; End; For i:= 1 to n do Write(B[i]:5); Readln; End. Progaram bai2;(3đ) uses crt; const max = 100; var st:string; i,j,max:integer;ch:char; Begin Write(' nhap vao xau ki tu'); readln(st); For ch:= 'a' to 'z' do dem[ch]:=0; For i:= 1 to length(st) do inc(dem[st[i]]); Max:= dem[st[1]]; For i:= 1 to length(st) do if dem[st[i]]> max then max:=dem[st[i]]; i:=1; While dem[st[i]]<>max do begin i:=i+1; end; Writeln(' ki tu xuat hien nhieu nhat la:', st[i]); writeln(' so lan xuat hien:',max); Readln; End. Progam Bai3;(4đ) Uses Crt; Type Mang= Array[1 10,1 10] of Integer; Var A: Mang; m,n,i,j,S,max:Integer; Begin Write(' nhap vao so dong '); Readln(m); Write(' nhap vao so cot '); Readln(n); For i:= 1 to m do For j:=1 to n do Begin Write('A[',i,j,']='); Readln(A[i,j]); End; S:=0; For i:= 1 to m do { Duyet qua tung dong} Begin { Tim phan tu lon nhat dong i } Max:=A[i,1]; For j:= 2 to n do { Duyet tung phan tu cua dong i} If max < A[i,j] then max: = A[i,j]; S:=S+max; Writeln(' Tong cac phan tu lon nhat cua moi dong la:',S); Readln; End; End. . PHÒNG GD- ĐT ĐỀ THI CHỌN ĐỘI THI HỌC SINH GIỎI TỈNH GIO LINH MÔN : TIN HỌC Thời gian 150 phút ( Không kể thời gian giao đề ) Ngày thi 9 tháng 12 năm 2008 HỌC. 2008 HỌC SINH THỰC HÀNH TRÊN MÁY TÍNH Lưu bài làm vào thư mục D:CHONHSG Ví dụ: D:CHONHSGBAI1 Câu 1:(3đ) Cho mảng A các số nguyên gồm n phần tử. Viết