Создание массива

Правила заполнения массивов могут быть разными. Рассмотрим два примера.

Пример:

Даны два одномерных массива одинаковой размерности. Получить третий массив такой же размерности, каждый элемент которого равен сумме соответствующих элементов данных массивов.

Решение

Пусть даны два массива А и В, состоящие из пяти элементов. получим из них массив С, состоящий тоже из пяти элементов, первый элемент этого массива равен сумме первых элементов массивов А и В, второй - сумме вторых элементов данных массивов и так далее.

Для решения этой задачи опишем процедуру, которой передаются три параметра. Первые два - это два исходных одномерных массива, третий - это одномерный массив той же размерности, который является результатом выполнения и заполняется по правилу.

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 членов.

Решение

Пусть a₁ - это первый член прогрессии, а k - это её разность, тогда i-й член можно найти по правилу - а[i] = a[i-1] + k, или a[i] = a_I + k*(i-1), если i = 1, то a[i]=a_I . Опишем процедуру, которой передаём эти два параметра и результатом выполнения является одномерный массив. Первый элемент его равен первому члену прогрессии, второй - второму и так далее. Возьмём в качестве основной первую формулу.

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;