lt;Имя массива>:Array[<диапозон1>, <диапазон2>] of <тип компонент>;

⇐ ПредыдущаяСтр 2 из 2

<Имя массива>:Array[<диапозон1>, <диапазон2>] of <тип компонент>;

Например:

Var

M: array[1..10 , 1..10] of integer; {Описание двумерного массива (матрицы) из 100 эл-тов целого типа}

Способы задания элементов массива

1) константа типа массив

Пример1.

Const

Vector : Array [1..5] of real = (0.1, -3.24, 11.87, 1.0, 4.7);

{В результате будет сформирован одномерный вектор с вещественными компонентами}

Matrix : Array [1..2, 1..4] of integer = ( (1, 2, 3, 4), (5, 6, 7, 8) );

{В результате будет сформирована матрица следующего вида

1 2 3 4

5 6 7 8}

CharVector1 : Array [1..4] of char = (‘C’, ‘H’, ‘A’, ‘R’);

2) ввод элементов с клавиатуры

Пример 2.

Var а: аrray[1..20] of integer;

i:integer;

Begin

For i:= 1 to 20 do read(a[i]); {Заполнение массива A с клавиатуры}

End.

3) заполнение случайными числами, при помощи функции Random.

Random(N) – встроенная математическая функция возвращающая случайное целое число от 0 до N, где N- переменная, выражение или константа целого типа. Функция Random может быть задана и без аргумента. В этом случае будет генерироваться случайное вещественное число из диапазона от 0 до 1.

Randomize – встроенная математическая процедура, обеспечивающая несовпадение последовательностей случайных чисел, генерируемых функцией Random. (Если генерировать случайные числа с помощью функции Random без предварительного использования процедуры Randomize, то при каждом перезапуске программы цепочка случайных чисел будет повторяться.)

Пример 3.

Var D, B: Array[1..50] of integer; C: Array[1..100] of real:

j, k, n: integer;

Begin

Randomize;

For j:= 1 to 20 do b[j]:=Random(20); {Заполнение массива B случайными

целыми числами в диапазоне от 0 до 20}

For k:= 1 to 50 do c[k]:=Random; {Заполнение массива С случайными

вещественными числами в диапазоне от 0 до 1}

For n:= 1 to 50 do d[n]:=10*Random-5; {Заполнение массива D

случайными вещественными числами в диапазоне от -5 до 5}

end.

Задача. Найти среднее арифметическое элементов массива А размерности n.

Program AVERAGE_1;

const n=10;

Var a: array[1..n] of real;

i: integer;

S, av: real;

begin

S:=0;

For i:=1 to n do begin

write ('введите', i, '-ый элемент');

readln (a[i]);

S:= S+a[i];

end;

av:= S/n;

writeln ('среднее арифметическое =',av);

end.

Решить эту же задачу, оформив заполнение массива случайными числами, распечатку массива и подсчет среднего арифметического процедурами.

Program AVERAGE_2;

const n=10;

Type massiv = array[1..N] of integer;

Var a: massiv;

        av:real;

Procedure vvod (var a:massiv);

Var i: integer;

Begin

For i:=1 to n do

    a[i]:=10*Random - 5;

End;

Procedure vivod (a:massiv);

Var i: integer;

Begin

For i:=1 to n do

    Write(a[i]:3);

Writeln;

End;

Procedure summa (a:massiv; var av:real);

Var S:real;

Begin

S:=0;

For i:=1 to n do S:= S+a[i];

av:= S/n;

End;

begin

vvod(a);

vivod(a);

summa (a, av);

writeln ('среднее арифметическое =',av);

End.

⇐ Предыдущая 12