bài tập ôn kiểm tra bồi dưỡng

Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng.. CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị nó với phần tử thứ nhất.. Viết ch

Trang 1

ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013

THỜI GIAN: 120 PHÚT

CÂU 1: cho dãy số A gồm n phần tử bất kỳ nhập từ bàn phím, viết chương trình tính tổng các số chia hết cho 3 và 5

CÂU 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000

CÂU 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng

CÂU 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị

nó với phần tử thứ nhất

Trang 2

ĐÁP ÁN ĐỀ THI THAM KHẢO TIN HỌC TRẺ NĂM HỌC 2012-2013

Program chiahet3va5;

Uses crt;

Var i, n, : integer;

Tong, ai:real;

Begin

Write(‘nhap so phan tu cua mang n=’);

Readln(n);

I:=0; Tong:=0;

For i:= 1 to n do

Begin

Write(‘nhap phan tu thu ‘,i:2,’ ’);

Readln(ai);

If (ai mod 3 =0) and (ai mod 5 = 0) then tong:=tong+ai;

End

Write(‘tong cac so chia het cho 3 va 5 la:’,tong);

Readln

End

Câu 2: Viết chương trình tìm n nhỏ nhất để tổng của các số từ 1 đến n lớn hơn 1000

Program timn;

Uses crt;

Var tong, i:integer;

Begin

Clrscr;

Tong:=0; i:=0;

While tong<1000 do

Begin

i:=i+1;

Tong:=tong+i;

End;

Writeln(‘so n nho nhat de tong lon hon 1000 la’,i:4);

Write(‘gia tri cua tong la’,tong:4);

Readln

End

Câu 3: Cho mảng A một chiều gồm 10 phần tử nhập từ bàn phím Viết chương trình tìm số lần xuất hiện của phần tử x trong mảng

Program demx;

Uses crt;

Const n=10;

Var a:array[1 10] of real;

x:real;

Dem, i, spt:integer;

Begin

Clrscr;

Trang 3

Write(‘nhap so phan tu cua mang’);

Readln(spt);

For i:=1 to spt do

Begin

Write(‘nhap phan tu thu ‘,i,’ ’);

readln(a[i]);

End;

Write(‘nhap vao phan tu x can dem:’);

Readln(x);

For i:= 1 to spt do

If a[i]=x then inc(dem);

If dem=0 then write(‘khong co phan tu nao bang x!’) else

Write(co ‘,dem,’ phan tu bang x!’);

Readln;

End

Câu 4: Viết chương trình nhập vào một mảng số nguyên, tìm phần tử nhỏ nhất rồi hoán vị nó với phần tử thứ nhất

Program hoanvi;

Uses crt;

Var a:array[1…50] of integer;

n, i, vitri, min:integer;

Begin

Clrscr;

Write(‘nhap so phan tu cua mang’);

Readln(n)

For i:=1 to n do

Begin

Write(‘nhap phan tu thu ‘,i,’ ’);

Readln(a[i]);

End;

Writeln(‘cac phan tu cua mang la:’);

For i:=1 to n do write(a[i]); writeln;

Min:=a[1];

For i:=2 to n do

begin

If min>a[i] then

begin

min:=a[i];

vitri:=i;

end;

a[vitri]:=a[1];

a[1]:=min;

writeln(‘mang sau khi doi cho la:’);

for i:=1 to n do

write(a[i]); writeln;

readln

end

Trang 4

Bài 6 - Nhập vào 1 mảng gồm n số nguyên (2<n<20) In ra các số nguyên tố có trong mảng

program Mang ;

uses crt ;

var a :array [ 1 20 ] of byte ;

i , n , d , , k : integer ;

procedure nhap ;

begin

for i := 1 to n do

begin

write (' a[', i ,']='); readln ( a [ i ]);

end ;

procedure nguyento ;

begin

write (' Day so cac so nguyen to:');

k := 0 ;

for i := 1 to n do

begin

d := 0 ;

for j := 1 to a [ ]- 1 do

if a [ i ] mod j = 0 then

d := d + 1 ;

if d = 1 then

begin write (' ', a [ i ]);

k := k + 1 ; end ;

end ;

if k 0 then

write (' khong co so nao')

else

begin

writeln ;

writeln (' Trong day co ', k ,' so nguyen to'); end ;

end ;

begin

clrscr ;

repeat

write (' Nhap n='); readln ( n );

until ( 2 < n )and( n < 20 );

nhap ;

nguyento ;

readln ;

end

1. , Nhập vào 1 dãy n số, sau đó in số dương 1 dòng, số âm 1 dòng:

PROGRAM am_duong_cach_biet ;

USES crt ;

VAR

a :ARRAY[ 1 100 ] OF INTEGER ;

i , n : BYTE ;

BEGIN

Trang 5

clrscr ;

write ('Nhap so phan tu cua day vao: ');

readln ( n );

FOR i := 1 TO n DO

BEGIN

write ('Nhap phan tu thu: ', i ,' vao: ');

readln ( a [ ]);

END ;

write ('Nhung so duong la: ');

FOR i := 1 TO n DO

IF a [ ]> 0 THEN write ( a [ ],' ');

writeln ;

write ('Nhung so am la : ');

FOR i := 1 TO n DO

IF a [ ]< 0 THEN write ( a [ ],' ');

readln ;

END

10,Tính trung bình cộng riêng các số dương, âm nhập vào từ 1 mảng

PROGRAM tbc_am_duong_mang ;

USES crt ;

VAR a :ARRAY[ 1 100 ] OF REAL ;

i , n , x , y : INTEGER ;

tongam , tongduong , tba , tbd : REAL ;

BEGIN

clrscr ;

write ('So phan tu cua day n= '); readln ( n );

FOR i := 1 TO n DO

BEGIN

write ('Nhap phan tu a[', i ,']: ');

readln ( a [ ]);

END ;

tongam := 0 ; x := 0 ;

FOR i := 1 TO n DO

IF a [ ]< 0 THEN

BEGIN tongam := tongam + a [ ];

x := x + 1 ;

END ;

tba := tongam / x ;

write ('TB cong cac so am la: ', tba : 5 : 1 );

writeln ;

tongduong := 0 ; y := 0 ;

FOR i := 1 TO n DO

IF a [ ]> 0 THEN

BEGIN tongduong := tongduong + a [ ];

y := y + 1 ;

END ;

tbd := tongduong / y ;

write ('TB cong cac so duong la: ', tbd : 5 : 1 );

readln ;

END

Định dạng
Số trang	5
Dung lượng	55 KB