Массивы в языке Паскаль

которого являются логические величины (False - если элемент

уже встречался ранее, True - иначе)}

Program Razlichnye_Elementy;

Var I, N, K, Kol : Integer;

A : Array [1 50] Of Integer;

Lo : Array [1 50] Of Boolean;

Begin

Write('Введите количество элементов массива: '); ReadLn(N);

FOR I := 1 TO N DO

Begin

Write('A[', I, ']='); ReadLn (A[I]);

Lo[I] := Tru

e; {Заполняем вспомогательный массив значениями True}

End;

Kol := 0; {переменная, в которой будет храниться количество различных чисел}

FOR I := 1 TO N DO

IF Lo[I] THEN

Begin

Kol := Kol + 1;

FOR K := I TO N DO

{Во вспомогательный массив заносим значение False,

если число уже встречалось ранее или совпадает с текущим элементом A[I]}

Lo[K] := (A[K] <> A[I]) And Lo[K];

End;

WriteLn('Количество различных чисел: ', Kol)

END.

Тест: N = 10; элементы массива - 1, 2, 2, 2, -1, 1, 0, 34, 3, 3. Ответ: 6.

Задача 2. Дан линейный массив. Упорядочить его элементы в порядке возрастания.

{Сортировка массива выбором (в порядке возрастания)}.

Идея решения: пусть часть массива (по K-й элемент включительно)

отсортирована. Нужно найти в неотсортированной части массива

минимальный элемент и поменять местами с (K+1)-м}

Program Sortirovka;

Var N, I, J, K, Pr : Integer; A : Array [1 30] Of Integer;

Begin

Write('Введите количество элементов: '); ReadLn(N);

For I := 1 To N Do

Begin

Write('Введите A[', I, '] '); Readln(A[I]);

End;

WriteLn;

For I := 1 To N - 1 Do

Begin

K := I;

For J := I + 1 To N Do If A[J] <= A[K] Then K := J;

Pr := A[I]; A[I] := A[K]; A[K] := Pr;

End;

For I := 1 To N Do Write(A[I], ' ');

End.

Тест: N = 10; элементы массива - 1, 2, 2, 2, -1, 1, 0, 34, 3, 3.

Ответ: -1, -1, 0, 1, 2, 2, 2, 3, 3, 34.

1.3 Двумерные массивы

Двумерный массив (прямоугольная таблица (матрица, набор векторов)) - это пример массива, в котором элементы нумеруются двумя индексами.

В качестве номера (индекса) элемента массива используется выражение порядкового типа (чаще integer).

Двумерным массивом называется таблица, состоящая из строк и столбцов. Для описания массива используются два индекса.

А11 А12 А13 … А1m

A21 A22 A23 . А2m

. . . . .

. . . . .

. . . . .

An1 An2 An3 . Anm

Описание массива

Способ 1. В разделе описания переменных

var

ИмяМассива: array [Верх.Гр.1 Ниж.Гр.1,Верх.Гр.2 Ниж.Гр.2] of ТипЭлементов;

Способ 2. В разделе описания типов

ИмяМассива: array [Верх.Гр.1 Ниж.Гр.1,Верх.Гр.2 Ниж.Гр.2] of ТипЭлементов;

Способ 3. В разделе описания констант

const

ИмяМассива: array[1 3,1 3] of real=((1.2,2.4,0.4),(0.045,-0.47,0.003),(1.24,1,-7.4));

Заполнение массива данными (ввод элементов)

Массив, описанный как типизированная константа, уже содержит данные. Массивы, объявленные в разделе описания переменных, необходимо заполнить данными, прежде чем выполнять с ними какие-либо действия.

Значения элементов массива также можно задать следующими способами: при вводе данных с клавиатуры:

write('Введите количество строк и столбцов');

readln(n,m);

for i:=1 to n do

for j:=1 to m do

begin

write('a[',i,',',j,']='); {Можно эту строчку в программе не использовать}

readln(a[i,j]);

end;

с помощью датчика случайных чисел:

randomize;

writeln('Введите количество элементов массива');

readln(n);

for i:=1 to n do

begin

a[i]:=random(50);

writeln('a[',i,',',j,']=',a[i,j]);

end;

присваением заданных значений (например по формуле i*i/i+2):

writeln('Введите количество элементов массива');

readln(n);

for i:=1 to n do

begin

a[i]:=i*i/i+2;

writeln('a[',i,',',j,']=',a[i,j]);

end;

Вывод массива

вывод в столбец:

for i:=1 to n do

writeln(a[i,j]);

по строкам и столбцам:

for i:=1 to n do

begin

for j:=1 to m do

begin

write(a[i,j]:3);

end;

readln;

end;

Обработка массивов

Часто требуется вычислить сумму элементов массива, их среднее арифметическое значение или найти значения и номера максимального и минимального элементов, а также изменить значения элементов массива и т.д. Особенность работы с двумерными массивами заключается в том, что расширяется возможность обработки массива (появились новые элементы: строки, столбцы - являющиеся одномерными массивами). Подробно все действия можно рассмотреть в задачах разобранных в этом разделе.

Квадратная матрица

Квадратной называется такая матрица, в которой количество строк равно количеству столбцов. Выделяют следующие элементы квадратной матрицы:

главная диагональ;

побочная диагональ;

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

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

элементы, расположенные выше побочной диагонали;

элементы, расположенные ниже побочной диагонали;

Главная диагональ. Если значения индексов (i, j) элемента равны, то элементы расположены на главной диагонали.

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

if i=j then <инструкции>

Побочная диагональ. Если для значений индексов (i, j) элементов выполняется равенство: i+j=n+1, то элементы расположены на побочной диагонали.

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

if i+j=n+1 then <инструкции>

Для элементов, расположенных выше главной диагонали необходимо использовать один из следующих фрагментов программы:

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

for i:=1 to n do

for j:=1 to n do

if i < j then <инструкции>

for i:=1 to n-1 do

for j:=i+1 to n do

<инструкции>

Если элементы расположены на главной диагонали и выше её необходимо использовать следующий фрагмент программы:

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

for i:=1 to n do

for j:=1 to n do

if i<=j then <инструкции>

Для элементов, расположенных ниже главной диагонали необходимо использовать следующий фрагмент программы:

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

for i:=1 to n do

for j:=1 to n do

if i>j then <инструкции>

Для элементов, расположенных ниже главной диагонали и не ней необходимо использовать следующий фрагмент программы:

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

for i:=1 to n do

for j:=1 to n do

if i>=j then <инструкции>

Если элементы, расположены выше побочной диагонали, то необходимо использовать следующий фрагмент программы:

А11 А12 А13 А14

A21 A22 A23 А24

A31 A32 A33 А34

A41 A42 A43 А44

for i:=1 to n-1 do

for j:=1 to n-1 do

if i+j<=n then <инструкции>

Если элементы, расположены ниже побочной диагонали, то необходимо использовать следующий фрагмент программы:

 Скачать реферат