Тема: «Одномерные массивы»

Массив это упорядоченная совокупность конечного числа данных одного типа. Простейшим примером массива может служить линейная таблица. Значения, образующие линейную таблицу, являются элементами массива, а их порядковые номера в таблице называются индексами. Можно сказать, что одномерный массив соответствует понятию вектора. Индекс определяет положение элемента массива относительно его начала.

Общая форма описания переменной:

Var <имя>: Array |<тип-индексов>| of<тип-элементов>

Выбор отдельной компоненты одномерного массива осуществляется указанием идентификатора массива, за которым в квадратных скобках следует индексное выражение. Индексное выражение должно давать значения, лежащие в диапазоне, определяемом типом индекса.

Например: M[1],M[2],…,M[N].

Для организации автоматического ввода значений следует воспользоваться функцией библиотеки CRT Random. Эта функция возвращает случайное число из диапазона от 0 до n. Для этого необходимо в основной программе инициализировать датчик случайных чисел командой Randomize.

Формат вызова функции Random:

Random(m), где m – значение, указывающее на правую границу диапазона выдаваемых значений.

Например: создание линейной таблицы размерностью 10, числами из диапазона от 0 до 10.

ProgramVector_Full;

Constn=10;

Type vector = array [1..n] of Integer;

Var v:vector;

ProcedureEnter (Varvect: vector);

Var i: Integer;

Begin

For i:=1 to n do

vect[i]:=Random(10);

End;

Begin

Randomize;

Enter (v);

End.

Примеры решений задач

1. Дана последовательность символов s1,s2,...,s30. Требуется определить, совпадает ли начальная часть последовательности s1,s2,...,s15 с ее концевой частью s15,s16,...,s30.

ProgramDouble;

Label1;

Type t:array[1..15];

Varx;t;y:char;t:integer;

Begin

Fori:=1to15do read(x[i]);

Fori:=1to15do

Begin read(y);

ifx[i]<>ythen

begin write(‘не ‘);

goto1;

end;

end;

1:write(‘совпадают’)

End.

2. Найти максимальное число в последовательности.

program maximum;

Var

a:array [1..10] of integer;

n: byte;

m: integer;

Begin

for n:=1 to 10 do

readln (a[n]);

m:=a[1];

for n:=2 to 10 do

if a[n]>m then m:=a[n];

writeln ('maximum = ', m);

Readln

end.