Массивы в Pascal l Массив это

Массивы в Pascal

l Массив – это именованный набор фиксированного числа элементов одного типа

l Массивы бывают одномерными и многомерными. l Многомерными называют массивы, элементы которых – это также массивы.

l Каждому элементу массива соответствует уникальный номер (индекс), определяющий позицию в общей последовательности элементов. l Количество индексов совпадает с размерностью массива

Объявление массива Имя массива : array [начальный элемент. . конечный элемент] of тип данных Var A: array [1. . 10] of integer;

Примеры var а: array [1. . 10] of real; b: array [0. . 50] of Char; с: array [-3. . 4] of Boolean; Объявление многомерного массива: s: array [1. . 5, 1. . 10] of integer;

Доступ к элементу массива Для доступа к элементу массива используют индекс этого элемента, заключенный в квадратные скобки Первому элементу массива присваиваем 2: А[1] : =2; Второму элементу массива присваиваем 2+3: А[2] : =2+3; Третьему элементу массива присваиваем 5 – 2: А[3] : =А[2] -А[1] ; l

Задание элементов массива l 1 способ – в тексте программы var а: array [1. . 4] of byte; begin а[1] : = 1; а[2] : = 2; а[3] : = 3; а[4] : = 4; end.

Задание элементов массива l 2 способ – ввод элементов с клавиатуры var а: array [1. . 4] of byte; begin read(а[1]); read(а[2]); read(а[3]); read(а[4]); end.

Задание элементов массива l 3 способ – с использованием цикла var i: byte; а: array [1. . 4] of byte; begin for i: =1 to 4 do a[i]: =12; end.

Задание элементов массива var i: byte; а: array [1. . 4] of byte; begin for i: =1 to 4 do read(a[i]); end.

Вывод элементов массива l 1 пример var а: array [1. . 4] of byte; begin а[1] : = 1; а[2] : = 2; а[3] : = 3; а[4] : = 4; write(a[1], ’ ‘, a[2], ’ ‘, a[3], ’ ‘, a[4]); end.

Вывод элементов массива l 2 пример Var i: integer; а: array [1. . 4] of byte; begin а[1] : = 1; а[2] : = 2; а[3] : = 3; а[4] : = 4; for i=1 to 4 do writeln(a[i]); end.

Задача. Заполнить с клавиатуры одномерный массив 20 –ю целыми числами и распечатать этот массив в обратном порядке. Program M 2; Var A : Array [1. . 20] Of Integer; I : Integer; Begin For I: =1 To 20 Do {Организуем цикл с параметром I по всем возможным} Readln(A[I]); {заполняем значениями индексов и вводим A[I] с клавиатуры} For I: =20 Downto 1 Do {Распечатываем массив в обратном порядке} Write(A[I], ‘ ‘); End.

Задачи для самостоятельного решения: 1. Задайте массив из 100 элементов целого типа; 2. Задайте массив из 50 элементов символьного типа; 3. Напишите программу, в которой массив из восьми элементов заполняется следующими значениями: первый элемент = 3, 2 -й – 45, 3 -й – 0, 4 -й – 12, 5 -й – 23, 6 -й – 57, 7 -й – 48, 8 -й -5. 4. Заполнить массив из 20 элементов значениями, вводимыми с клавиатуры; 5. Заполнить массив из 15 элементов следующим образом: 1 эл. =1, 2 эл. = 2, …, 15 эл. = 15 6. Заполнить массив из 50 элементов произвольными значениями и вывести эти значения на экран 7. Заполнить массив из 10 элементов произвольным образом. Увеличить каждый из элементов в 2 раза и вывести полученные значения на экран. 8. Заполнить массив из 15 элементов вещественными числами. Увеличить каждый из элементов на 5 и вывести полученные значения на экран.