ДОМОЙ    ПАСКАЛЬ
О САЙТЕ
Общие сведения
Учебные материалы
Практические задания
Примеры программ
От автора
Используемые материалы
Карта
Благодарности
ТЕМЫ
Основные понятия языка
Структура программы
Стандартные типы данных
Присваивание, ввод и вывод
Линейные алгоритмы
Ветвления
Оператор выбора
Циклы
Графика в паскале
Массивы
Процедуры
Массивы
[Предыдущий урок]      [На уровень вверх]      [Следующий урок]

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

Массивы бывают одномерными или двумерными сначала рассмотрим одномерные массивы. Объявление массивов происходит в разделе описания следующим образом:

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

    Var имя массива : Array [тип индекса] of тип элементов ;

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

    Type имя типа = Array [тип индекса] of тип элементов ;
    Var имя массива : имя типа ;

  3. В разделе констант

    Const имя массива : Array [тип индекса] of тип элементов = (список элементов);

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

    For i:=1 to n do
    Read (A[ i ]);

  2. Ввод массива оператором случайных чисел Random на интервале

    [ a ; b ]

    ( a ; b )

    For i:=1 to n do
    A[ i ] := Random (b-a+1)+a;
    For i:=1 to n do
    A[ i ] := Random (b-a)+a;

  3. Ввод массива в разделе констант (производится вместе с объявлением).
    Например:

    Const N=5;
    A := Array [1..N] of integer = (-8,0,4,1,3);
Вывод одномерного массива
  1. Вывод линейного массива
    В строку

    В столбец

    For i:=1 to n do
    Write (a[i],' ');
    For i:=1 to n do
    Writeln (a[i],' ');

Поиск суммы произведения и количества элементов одномерного массива

Название Действие до цикла Дествие в цикле Действия после цикла
сумма S = 0 S = S + A[i] Write (S=',s)
произведение P = 1 P = P * A[i] Write (P=',p)
количество K = 0 If условие then K = K + 1 Write (K=',k)

Поиск экстремального элемента в одномерном массиве

  1. Поиск минимального элемента

    min := a[1];
    k :=1;
    for i := 1 to n do
    begin
    if A[i] < min then min := A[i];
    k:=i;
    end;
    writeln (a[k]);

  2. Поиск максимального элемента

    max := a[1];
    k :=1;
    for i := 1 to n do
    begin
    if A[i] > max then min := A[i];
    k:=i;
    end;
    writeln (a[k]);

Объявление двумерных массивов
Способы заполнения двумерных массивов
  1. По строке

    For i := 1 to n do
    For j := 1 to m do
    a [i,j] := random (100) ; {или Readln[i,j]}

  2. По столбцу

    For i := 1 to n do
    For j := 1 to m do
    a [i,j] := random (100) ; {или Readln[i,j]}

Вывод двумерного массива ввиде таблицы

For i := 1 to n do
  begin
    for j :=1 to m do
    write (a[i;j],' ');
    writeln
  end;

Операции, выполняемые с одномерными массивами приминимы и для двумерных массивов. Единственная разница в том, что двемерные массивы содержат в качестве определителя номера элемента не только номер строки, но и номер столбца. Это нужно учитывать при работе с двумерными массивами.


[Предыдущий урок]      [На уровень вверх]      [Следующий урок]

Полезные сайты:
      Электронный учебник по Турбо Паскалю
      Решение задач в turbo pascal
Hosted by uCoz