Đề 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:CHONHSGBAI1
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.