Вставка элемента в одномерный массив

Удаление элементов из одномерного массива.

Вывод массива

Заполнение массива

Описание массивов

Обработка одномерных и двумерных массивов.

Лабораторная работа №7

Цель: научиться описывать, заполнять, выводить и обрабатывать одномерные и двумерные массивы.

Теоретические сведения:

Массив – группа элементов одного типа, объединенных под общим именем.

Массивы описываются в разделе описания переменных Var.

Общий вид описания одномерного массива:

<имя массива>: array [<начальный индекс>..<конечный индекс>] of <тип элемента>;

где имя - имя переменной-массива; array - ключевое слово, обозначающее, что переменная является массивом; нижний_индекс и верхний_индекс - целые числа, определяющие диапазон изменения индексов (номеров) элементов массива и, неявно, количество элементов (размер) массива; тип - тип элементов массива.

Общий вид описания двумерного массива:

<имя массива>:array[<m₁>..<m₂>,<n₁>..<n₂>] of <тип>;

где Имя - имя массива; array - слово языка Pascal, показывающее, что описываемый элемент данных - массив; m₁, m₂, n₁, n₂ - константы или выражения типа INTEGER, определяющие диапазон изменения индексов и, следовательно, число элементов массива; Тип - тип элементов массива.

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

1) с клавиатуры: For i:=1 to n do readln(a[i]);

2) через датчик случайных чисел: Randomize; For i:=1 to n do begin а[i]:=random(i);

Если требуется, чтобы значения элементов массива выбирались из определенного интервала [a,b], то a+Random(b-a+1);

3) через оператор присваивания (по формуле): For i:=1 to n do а[i]:=i*3;

Если в программе необходимо вывести значения всех элементов массива, то для этого удобно использовать инструкцию FOR, переменная-счётчик которой может быть реализована как индекс элемента массива. Например, For i:=1 to n do writeln(a[i]);

Для того, чтобы удалить из массива k-ый элемент нужно: найти номер элемента k; сдвинуть все элементы, начиная с k-го, на один элемент влево; последнему элементу присвоить значение, равное 0; уменьшить количество элементов массива на единицу.

Вставлять элемент можно до или после данного элемента, номер этого элемента можно вводить с клавиатуры или искать при определенных условиях. Пусть k - это номер элемента, после которого мы должны вставить элемент х. Тогда вставка осуществляется следующим образом: первые k элементов массива остаются без изменения, все элементы, начиная с (k+1)-го, необходимо сдвинуть на один назад, на место (k+1)-го элемента записываем значение х; увеличить количество элементов в массиве на единицу.

При решении задач с использованием двумерных массивов организуются вложенные циклы:

For i:=1 to m do begin

изменяется номер строки

For j:=1 to n do begin изменяется номер столбца

Запись элемента массива: а[i, j]

Главная диагональ i = j

Побочная диагональ i + j = n+1

а11	а12	а13	а14
а21	а22	а23	а24
а31	а32	а33	а34
а41	а42	а43	а44

а11	а12	а13	а14
а21	а22	а23	а24
а31	а32	а33	а34
а41	а42	а43	а44

Порядок выполнения работы:

1) Запустите программу Turbo Pascal.

2) Ввести одномерный массив, состоящий из 10 элементов. Заменить отрицательные элементы на противоположные по знаку. Вывести полученный массив на экран.

3) Ввести одномерный массив, состоящий из n элементов. Найти и вывести на экран номера четных элементов.

4) Ввести одномерный массив, состоящий из т элементов. Найти количество положительных и отрицательных элементов в данном массиве.

5) Ввести одномерный массив, состоящий из п элементов. Удалите из массива третий элемент.

6) Ввести одномерный массив, состоящий из п элементов. Вставьте в массив число 100 после пятого элемента.

7) Ввести двумерный массив, состоящую из n*m элементов. Найдите сумму всех элементов.

8) Заполните двумерный массив размером N*N следующим образом:

0 1 1 1 1 0

2 0 1 1 0 4

2 2 0 0 4 4

2 2 0 0 4 4

2 0 3 3 0 4

0 3 3 3 3 0.

9) Запишите полученные результаты в тетрадь. Оформите отчет о проделанной работе, который должен содержать тему, цель работы, формулировки задач с решениями.

10) Выйдите из программы Turbo Pascal.

Дата добавления: 2015-06-26