De HSG Tin 1314

<span class='text_page_counter'>(1)</span>PHÒNG GD& ĐT TAM NÔNG. ĐỀ KHẢO SÁT HỌC SINH GIỎI TỈNH. MÔN : TIN HỌC Thời gian 150 phút ( Không kể thời gian giao đề ) Ngày thi 19 tháng 02 năm 2014 (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\ BAI...) Câu 1:(6đ) Số nguyên dương n gọi là song tố khi n là số nguyên tố và tổng chữ số của nó cũng là số nguyên tố. Viết chưong trình nhập vào số nguyên dương n và thực hiện công việc sau: a) Hãy cho biết n có là số song tố hay không? b) In ra các số song tố nhỏ hơn n.. Câu 2:(10đ) Cho mảng A các số nguyên gồm n phần tử. Viết chương trình thực hiện các công việc sau: a) Tìm phẩn tử max, min trong mảng A. In ra các số nguyên từ max đến min là bội của 5 không có trong mảng A. b) 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. S. 1 1 1 1    ...  ( 1)n  1 . . B1 B2 B3 Bn. c) Tính tổng : d) Đếm và tính tổng các số chính phương có trong mảng A và mảng B. Câu 3:(4đ) 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 a4 bcbsaaba b3 HẾT Chú ý : Học sinh không được sữ dụng tài liệu.

<span class='text_page_counter'>(2)</span> ĐÁ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.

<span class='text_page_counter'>(3)</span> 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..

<span class='text_page_counter'>(4)</span>

<span class='text_page_counter'>(5)</span>