Пример 2

Даны первый член арифметической прогрессии и ее разность. Записать в массив первые n членов прог­рессии.

Решение

Пусть а1 − первый член прогрессии, a k − ее разность, тогда i−й член можно найти по следующему правилу: a[i]:=a[i-1]+k, или

a[i]:=a1+k*(i-1); если i=1, тo a[i]:=a1. Опишем процедуру, в которую передаются два параметра, а результатом является одно­мерный массив. Его первый элемент равен первому чле­ну прогрессии, второй − второму − и так далее.

Program Example_101;

Procedure Progress (a1, k: Integer;

Var a: myarray);

Var i: Integer;

Begin

a[1]:=a1;

For i:=2 To n Do

Begin

a[i]:=a[i-1]+k;

Write(a[i]:5);

End;

End;

Работа с несколькими массивами Пример

Даны два одномерных массива − А и В. Найти их скалярное произведение.

Решение

Скалярным произведением двух массивов одинако­вой размерности называется сумма произведений соот­ветствующих элементов:

a[1]*b[1]+a[2]*b[2]+...+a[n-1]*

*b[n-1]+...+а[n]*b[n],

где n − количество элементов в массивах.

Program Example_102;

Function Sp (a, b: myarray): longint;

Var i: Integer;

s: Longint;

Begin

s:=0;

For i:=1 To n Do s:=s+a[i]*b[i];

Sp:=s;

End;

§38. Удаление элементов из одномерного массива Пример 1

Удалить из массива, в котором все элементы различ­ны, максимальный элемент. После удаления максималь­ного элемента массив "уплотнить", сдвинув все следую­щие за ним элементы влево. Последнему (самому право­му) элементу массива присвоить 0.

Решение

Для того чтобы решить данную задачу, необходимо:

• найти номер максимального элемента k;

• сдвинуть все элементы начиная с k−го на один эле­мент влево;

• последнему элементу присвоить значение 0.

Рассмотрим решение задачи на конкретном примере. Пусть дан одномерный массив, состоящий из 10 эле­ментов: 6, 3, 4, 7, 11, 2, 13, 8, 1, 5.

Номер максимального элемента равен 7 (k=7), то есть начиная с 7−го элемента будем сдвигать элементы на один влево: 7−му элементу присвоим значение 8−го, 8−му присвоим значение 9−го, а 9−му присвоим значение 10−го, на этом сдвиг заканчивается. Таким образом, сдвиг начинается с k−го элемента и заканчивается (n-1)−м (где n − количество элементов в массиве). После этого по­следнему элементу присвоим 0, тогда массив примет вид:

6, 3, 4, 7, 11, 2, 8, 1, 5, 0.

Примечание. При удалении элемента размерность масси­ва не изменяется.

Составим программу для удаления максимального эле­мента из одномерного массива, в ней воспользуемся дву­мя уже знакомыми процедурами инициализации масси­ва и вывода его на печать. Первая заполняет массив слу­чайными числами, а вторая выводит на печать этот мас­сив. Чтобы последний 0 не выводился на экран, мы мо­дифицируем процедуру вывода Print и будем ей пере­давать не только массив, но и количество элементов, ко­торые надо вывести, начиная с первого.

Program Example_103;

Const n=30; dd=51;

Type myarray = Array[l..n] Of Integer;

Var A: myarray;

k:Integer; {k - номер максимального

элемента}

Procedure Init2 (Var m:myarray);

{Процедура заполнения (инициализации)

массива случайными числами}

...

Procedure Print1 (n1: Integer; m: myarray);

{Процедура вывода (распечатки) массива}

Var i: Integer;

Begin

For i:=1 To n1 Do Write(m[i]:5);

Writeln;

End;

Function Maximum (m: myarray): Integer;

Var i, max, maxi: Integer;

Begin

max:=-32768;

{Минимальное значение типа Integer

равно -32 768}

For i:=1 To n Do

{Просмотр всех элементов массива}

If m[i]>max Then

{Если данный элемент больше максимального

элемента, найденного среди первых

i-1 элементов, то}

Begin

max:=m[i];

{Новое значение максимального элемента}

maxi:=i;

{Номер максимального элемента в массиве} End;

Maximum:=maxi;

End;

Procedure Delete (k1: Integer;

Var m: myarray);

Var i: Integer;