Методы работы с элементами одномерного массива
Изменение значения некоторых элементов
Пример:
Заменить отрицательные элементы на противоположные по знаку.
Решение
Для этого опишем процедуру. Ей будет передавать один параметр - массив, который будет результатом её выполнения, так как некоторые элементы могут быть заменены.
Procedure Substitation1(Var m: myarray);
Var i : Integer;
Begin
For i:=1 To n Do
If m[i]<0 Then m[i]:=-m[i];
End;
Пример:
Прибавить к каждому элементу число 25.
Решение
Преобразуем предыдущую процедуру.
Procedure Sudstitation2(Var m: myarray);
Var i : Integer;
Begin
For i:=1 To n Do m[i]:=m[i]+25;
End;
Пример:
Если элемент чётный, то прибавить к нему первый, если нечётный - прибавить последний. Первый и последний элементы не изменять.
Решение
Будем просматривать каждый элемент, кроме первого и последнего, и если он чётный, то есть делиться на 2 без остатка, то увеличим его на значение первого элемента, иначе - на значение последнего элемента.
Procedure Sudstitation3(Var m: myarray);
Var i : Integer;
Begin
For i:=2 To n-1 Do
If (i<>1) And (i<>n) Then
If m[i] Mod 2=0 Then m[i]:=m[i]+m[I]
Else m[i]:=m[i]+m[n];
End;
Создание массива
Правила заполнения массивов могут быть разными. Рассмотрим два примера.
Пример:
Даны два одномерных массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов.
Решение
Пусть даны два массива А и В, состоящие из пяти элементов. получим из них массив С, состоящий тоже из пяти элементов, первый элемент этого массива равен сумме первых элементов массивов А и В, второй - сумме вторых элементов данных массивов и так далее.
| i | 1 | 2 | 3 | 4 | 5 |
| A | 14 | 2 | 7 | 8 | 9 |
| B | 3 | 6 | 5 | 12 | 4 |
| C | 17 | 8 | 12 | 20 | 13 |
Для решения этой задачи опишем процедуру, которой передаются три параметра. Первые два - это два исходных одномерных массива, третий - это одномерный массив той же размерности, который является результатом выполнения и заполняется по правилу.
Procedure Sum-Ar(a, b: myarray; Var c: myarray);
Var i : Integer;
Begin
For i:=1 To n Do c[i]:=a[i]+b[i];
End;
Пример:
Дан первый член арифметической прогрессии и её разность. Найти первые n членов.
Решение
Пусть a1 - это первый член прогрессии, а k - это её разность, тогда i-й член можно найти по правилу - а[i] = a[i-1] + k, или a[i] = aI + k*(i-1), если i = 1, то a[i]=aI . Опишем процедуру, которой передаём эти два параметра и результатом выполнения является одномерный массив. Первый элемент его равен первому члену прогрессии, второй - второму и так далее. Возьмём в качестве основной первую формулу.
Procedure Progress (a1, k: Integer; Var a: myarray);
Var i : Integer;
Begin
a[1]:=a1; For i:=2 To n Do a[i]:=a[i-1]+k
End;
Работа с несколькими массивами
Пример:
Даны два одномерных массива А и В. Найти их скалярное произведение.
Решение
Скалярным произведением двух массивов одинаковой размерности называется сумма произведений соответствующих элементов. Это можно записать так:
a[1]*b[1] + a[2]*b[2] + ... + a[n-1]*b[n-1] + a[n]*b[n], где n - это количество элементов в массивах.
Тогда можно составить следующую функцию:
Function Sp (a, b: myarray): Iongitn;
Var i : Integer;
s : Longint;
Begin
s:=0;
For i:=1 To n Do s:=s + a[i]*b[i];
Sp:= s;
End;
