Министерство образования Российской федерации
УГТУ – УПИ
Филиал в г. Краснотурьинске
Кафедра вычислительной техники
По лабораторной работе № 5
По теме ,, Одномерные массивы.”
Студент Д. В. Поздняков
Группа Р - 131 КТ
2003
Цель работы: обработать данные содержащиеся в одномерных массивах
Задания:
а) Даны массивы а[n] и b[m], вставить массив b в массив а , начиная с к-ой позиции (к £ n).
б)Составить алгоритм и программу для решения задачи.
Дан массив а[n] . Найти количесво элементов массива ,больших среднего арифметического, Если элементов удовлетворяющих условию нет, вывести соответствующее сообщение.
1.
|
|
|
|
|
а)
|
|
|||||||||||
б)
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
Вывод: Я научился создавать программы, обрабатывающие данные, содержащиеся в одномерных массивах.
Уважаемый посетитель!
Чтобы распечатать файл, скачайте его (в формате Word).
Ссылка на скачивание - внизу страницы.