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

Задано: массивы 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.

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

Задано: массив P = (P1,P2,...,Pn).

Определить: сумму элементов массива.

Исходные данные:

N - размер массива;

P - массив размером N;

Результат: S - сумма элементов;

Вспомогательная переменная: I - индекс - управляющая переменная цикла.

Procedure SUMMA (n: integer; A:mas; var S: real);

{ процедура для суммирования элементов одномерного массива }

begin S:=0; { обнуление переменной под сумму }

for i:= 1 to n do S:= S+P[i]

en d.

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

Задано: массив P = (P1,P2,...,Pn); T - заданное число.

Определить: сколько элементов удовлетворяет заданному условию, например Pi > T.

Исходные данные:

N - размер массива;

P - массив размером N;

T - заданное значение, с которым сравниваются элементы массива.

Результат: K - число элементов массива P, удовлетворяющих условию.

Вспомогательная переменная: I- индекс - управляющая переменная цикла.

Procedure USLOVIE (n: integer; P:mas; T: real; var K: integer);

{процедура определения числа элементов, удовлетворяющих условию}

begin

k:= 0; { обнуление переменной под счетчик чисел }

for i:= 1 to n do if P[ i ] > T then k:= k+1

end;

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

Задано: массив P = (P1,P2,...,Pn); T - заданное число.

Определить: сумму элементов массива P, удовлетворяющих заданному условию, например Pi > T.

Исходные данные:

N - размер массива;

P - массив размером N;

T - заданное значение, с которым сравниваются элементы массива;

Результат: S - сумма элементов массива P, удовлетворяющих условию.

Вспомогательная переменная: I - индекс - управляющая переменная цикла.

Procedure SUM_USLOV (n: integer; P:mas; T: real; var S: real);

{процедура определения суммы элементов, удовлетворяющих условию}

begin S:= 0; {обнуление переменной под сумму элементов}

for i:= 1 to n do if P [ i ] > T then S:= S+1

end;

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

Задано: массив C = (c1,c2,...,cn).

Требуется: изменить порядок следования элементов массива C на обратный, используя одну вспомогательную переменную.

Исходные данные:

N - размер массива;

C - массив размером N;

Результат:

C - инвертированный массив;

Вспомогательные переменные:

I -индекс, управляющая переменная цикла;

M = n/2 - вычисляется до входа в цикл для уменьшения объема вычислений; P - используется при перестановке двух элементов массива.

Procedure INVER_MAS (n: integer; C:mas; var C: mas);

Var m: integer; p: real; { локальные переменные }

begin m:= n div 2; { целочисленное деление }

for i:= 1 to m do

begin p:= C[ i ]; C[i]:= C[N-i+1]; C[N-i+1]:= p end;

end.

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

Задано: массив A = (a1, a2,..., an), T - заданное число.

Сформировать: массив B = (b1, b2,..., bn), состоящий из элементов массива, удовлетворяющих условию Ai > T.

Заметим, т.к. индексы элементов массивов A и B не совпадают (не все элементы массива Ai > T), то для обозначения индексов массива B должна быть предусмотрена другая переменная.

Исходные данные:

N - размер массива;

A - массив размером N;

T - заданное значение;

Результат:

B - массив размером не больше N;

Y - число элементов массива B;

Вспомогательная переменная: I - индекс - управляющая переменная цикла.

Procedure MAS_NEW (n:integer;T:real;A:mas;var B: mas; var Y: byte);

{ где mas должен быть описан в главной программе в разделе описания типов, например так:

type mas = array[1..100 ] of real;

тогда это будет процедура для суммирования двух одномерных массивов размером не более 100 элементов }

{ процедура включения в новый массив элементов, удовлетворяющих условию }

begin Y:= 0; { обнуление ячейки под счетчик элементов массива В }

for i:= 1 to n do

If A[ i ] > T then begin Y:= Y+1; B[ Y ]:= A[ i ] end;

e nd.