Turbo Pascal (Borland Pascal) 7.0. Руководство пользователя

Одномерные массивы


Линейный (одномерный) массив – массив, у которого в описании задан только один индекс, если два индекса – то это двумерный массив и т.д. Одномерные массивы часто называют векторами, т.е. они представляют собой конечную последовательность пронумерованных элементов.

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

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

Алгоритм решения задач с использованием массивов:

  • Описание массива
  • Заполнение массива
  • Вывод (распечатка) массива
  • Выполнение условий задачи ·
  • Вывод результата
Пример 1. Задан одномерный массив В(10), заполненный произвольным образом. Подсчитать количество элементов массива, больших заданного числа k.

Program massiv; Uses crt; Var b:array [1..10] of integer; I, k, s : integer; Begin Clrscr; S:=0; For i:=1 to 10 do Begin Write(‘Введите’, i, ‘-й элемент массива ’); Readln (B[i]); Write(b[i], ‘ ‘); End; Write(‘Введите число k’); Readln(k); For i:=1 to 10 do If b[i]>k then s:=s+1; Write(‘Количество элементов’, s); End.
Пример 2. Определить самую высокую температуру и самый теплый день в мае.

Program massiv; Uses crt; Var t:array [1..31] of integer; I, max, n : integer; Begin Clrscr; For i:=1 to 31 do Begin t[i]:=random(20); Write(b[i], ‘ ‘); End; Max:=t[1]; n:=1; For i:=2 to 31 do Begin If t[i] > max then max:=t[i]; n:=i ; End; Write(‘максимальная температура’, max, ‘в’, n, ‘день’); End.



Содержание раздела