Алгоритм

  • 16 янв. 2014 г.
  • 839 Слова
Некоторые алгоритмы
обработки массивов


1 Суммирование двух массивов одинакового размера

2 Суммирование элементов массива

3 Определение числа элементов массива, удовлетворяющихзаданному условию

4 Суммирование элементов массива, удовлетворяющих заданному условию

5 Инвертирование массива

6 Формирование массива из элементов другого массива, удовлетворяющих заданномуусловию

7 Поиск максимального (минимального) элемента в массиве с запоминанием его положения в массиве

8 Поиск заданного элемента в массиве

9 Циклический сдвиг элементов массива

10Упорядочение Массива













1 Суммирование двух массивов одинакового размера

Задано: массивы A =(a1,a2,...,an) , B =(b1,b2,...,bn).
Сформировать: массив C =(c1,c2,...,cn) , гдеСi = Ai+Bi; i=1,2,...,n.
Задача сводится к организации цикла по i и вычислению Ci=Ai+Bi при каждом значении i от 1 до n.
Исходные данные:
N- размер массива;
A, B - массивы слагаемыеразмером N;
Результат: массив С - размером N;
Вспомогательные переменные: I - индекс - управляющая переменная цикла.

Procedure SUM_MAS (n : integer; A,B :mas; var C : mas);
{ где masдолжен быть описан в главной программе в разделе описания типов , например так :
type mas = array[1..100 ] of real ;
тогда это будет процедура для суммирования двух одномерных массивов размеромне более 100 элементов }
begin
for i := 1 to n do C[i] := A[i]+B[i];
end;

2 Суммирование элементов массива

Задано: массив P = (P1,P2,...,Pn) .Определить: сумму элементов массива.
Исходные данные:
N - размер массива;
P - массив размером N;
Результат: S - сумма элементов;
Вспомогательная переменная: I - индекс - управляющая переменнаяцикла.

Procedure SUMMA (n : integer; A :mas; var S : real );
{ процедура для суммирования элементов одномерного массива }
begin S:=0; { обнуление...
tracking img