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

Viết chương trình tạo mảng BỊ1..n].. Trong đó B[ï] là tống giá trị của ¡ phần tử đầu tiên của mảng A.. 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 x HET Chủ ý : Học si

PHÒNG GD-ĐT DE THI CHON DOI THI HOC SINH GIOI TINH

GIO LINH

MON : TIN HOC

Thời gian 150 phút ( Không ké thoi gian giao dé )

Negay thi 9 thang 12 nam 2008 HOC SINH THUC HANH TREN MAY TINH

Luu bai lam vao thu muc D:\CHONHSG

Ví dụ: D:\CHONHSG\BAII

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[ï] là tống giá trị của ¡ 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ụ:

abcaabca a4 bcbsaaba b3

Cau 3:(4d)

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

x

HET Chủ ý : Học sinh không được sữ dụng tài liệu

ĐÁP ÁN

Program Bail;(3d)

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 1:= 1 to n do

Begin Write(‘a[',i,'}=');readIn(a[i]);

End;

For 1:= 1 to n do

Write(ali|:5);

For 1:= lto n do

Begin

B[i]:= 0;

For j:=1 to i do B[i]:=B[i]+alj];

End;

For 1:= 1 to n do Write(B[1]:5);

Readln;

End

Progaram bai2;(3d)

uses crt;

const max = 100;

var st:string; 1,j,max:integer;ch:char;

Begin

Write(' nhap vao xau Ki tư'); readln(st);

For ch:= 'a' to 'z' do dem[ch]:=0;

For i:= 1 to length(st) do

inc(dem|st[1]]);

Max:= demJst[1]];

For i:= 1 to length(st) do

if dem[st[i]|> max then max:=dem|st[1]];

1:=];

While dem[st[i]|<>max do

begin i:=1+1;

end;

Writeln( ki tu xuat hien nhieu nhat la:', st[i]); writeln( so lan xuat hien:',max);

Readln;

End

Progam Bai3;(4d)

Uses Crt;

Type Mang= Array[1 10,1 10] of Integer;

Var A: Mang;

m,n,1.J,5,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['.1,J,"]='); ReadIn(A[1,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:=2tondo { Duyet tung phan tu cua dong i}

If max < A[i.j] then max: = A[i,j |;

S:=St+max;

Writeln(’ Tong cac phan tu lon nhat cua moi dong la:',S); Readln;

End;

End.