Формирование массива

Массивы

Формирование массива

1 способ: формирование вручную (или с клавиатуры) ‑ используется в случае небольшой размерности массивов как числовых так и строковых.

Var a: array [1..10] of Integer;

i:byte;

Begin

For i:=1 to 10 do

read(A[i]);

End.

2 способ: формирование компьютером (или с помощью датчика случайных чисел) ‑ используется в случае большой размерности числовых массивов.

var a:array [1..20] of integer;

i:byte;

begin

Randomize;

for i:=1 to 20 do

a[i]:=Random(21)-10; {случайные числа от -10 до 10}

end.

3 способ: формирование чтением из файла ‑ используется в случае частого обращения к одним и тем же данным (как числовым так и строковым).

Массив – это набор однотипных элементов, объединённых одним именем и имеющие индекс (т.е. порядковый номер).

Массивы бывают:

î одномерные: например, арифметическая последовательность (числовой массив); список учащихся класса (строковый массив);

î двумерных: например, матрица; страница классного журнала; расписание уроков;

î трёхмерные: например, Декартова система координат, трёхмерное изображение; многоэтажных жилой дом;

î n-мерные: например, химическая модель вещества; звёздное небо.

Обозначение элемента одномерного массива: A[i] , a[1] , masiv[10] .

Обозначение элемента матрицы (двумерного массива):

A[i,j] – элемент, стоящий на пересечении i-й строки и j-го столбца;

a[1,3] – элемент, стоящий на пересечении 1-й строки и 3-го столбца;

masiv[5,10] - элемент, стоящий на пересечении 5-й строки и 10-го столбца

Объявление одномерных массивов:

Var A : Array [1..10] Of Integer; B : Array [1..30] Of Byte;	- одномерные числовые массивы А и В разной размерности и разного типа
Constn=100; Var x, y : Array [1..n] Of Integer;	- одномерные числовые массивы X и Y одинаковой размерности одного типа
Var s1 : Array [1..20] Of String;	- одномерный строковый массив
Var a,b,c : Array [1..10,1..10] Of Integer;	- три квадратных матрицы размерностью 10х10 (10 строк и 10 столбцов)

Var a: array [1..10] of Integer;

i:byte;

Begin

For i:=1 to 10 do

read(A[i]);

End.

var a:array [1..20] of integer;

i:byte;

begin

Randomize;

for i:=1 to 20 do

a[i]:=Random(21)-10; {случайные числа от -10 до 10}

end.