Обработка данных, содержащихся в одномерных массивах

Министерство образования Российской федерации

УГТУ – УПИ

Филиал в г. Краснотурьинске

Кафедра вычислительной техники

Отчет

По лабораторной работе № 5

По теме ,, Одномерные массивы.”

Преподовалель                                                                                              О. В. Мезенцева

Студент                                                                                                          Д. В. Поздняков

Группа                                                                                                            Р - 131 КТ

2003

Цель работы: обработать данные содержащиеся в одномерных массивах

Задания:

а) Даны массивы а[n] и b[m], вставить  массив b в массив а , начиная с к-ой позиции (к £ n).

б)Составить алгоритм и программу для решения задачи.

Дан массив а[n] . Найти количесво элементов массива ,больших среднего арифметического, Если элементов удовлетворяющих условию нет, вывести соответствующее сообщение.

1. 

i=K

a [i]=b [j]

a [i+m]=a [i]

i=i+1

a [i+m]=a [i]

 Блок – схемы

а)

нет

да

 

б)

 

3.

Программы :

а) program vstavka;

uses crt;

var a,b:array[1..100] of integer;

n,k,i,j,m:integer;

begin

clrscr;

writeln('введите размер массива а');

readln(n);

writeln('введите элементы массива а');

for i:=1 to n do begin

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

read(a[i]);

end;

writeln('введите размер массива b');

readln(m);

for i:=1 to m do begin

write('b[',i,']=');

readln(b[i]);

end;

repeat

writeln('введите k-ую позицию (k<=n)');

readln(k);

until k<=n;

writeln('исходный массив а');

writeln;

for i:=1 to n do

write(a[i],'  ');

writeln;

writeln ('исходный массив b');

writeln;

for i:=1 to m do

write(b[i],'  ');

for i:=n downto k do

a[m+i]:=a[i];

i:=k;

for j:=1 to m do begin

a[i]:=b[j];

i:=i+1

end;

writeln;

writeln('полученный массив а');

writeln;

for i:=1 to n+m do

write(a[i],'  ');

readln;

end.

б) program vstavka;

uses crt;

var a:array[1..100] of integer;

s:real;

k,n,i:integer;

begin

clrscr;

writeln('введите размер массива а');

readln(n);

writeln('введите элементы массива а');

s:=0;

for i:=1 to n do begin

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

read(a[i]);

s:=s+a[i];

end;

S:=S/n;

k:=0;

for i:=1 to n do

if a[i]>s then k:=k+1;

writeln('исходный массив а');

writeln;

for i:=1 to n do

write(a[i],'  ');

writeln('среднее арифметическое равноs=',s:5:2);

writeln;

if k>0 then begin

writeln(число элементов больше среднего арифметического к=',k);

readln;

end

else  begin

writeln('элементов большее среднего арифметического нет’);

readln;end;

readln;

end.

4. Результат

   а) исходный массив а 1  2  3  4 ;исходный массив b 5  6  7  8   k = 2

полученный массив а  1  5  6  7  8  2  3  4

   б) исходный массив а  3  6  9  10   s = 7  k = 2

Вывод: Я научился создавать программы, обрабатывающие данные, содержащиеся в одномерных массивах.