- Преподавателю
- Информатика
- Ввод и вывод одномерных массивов в Паскале
Ввод и вывод одномерных массивов в Паскале
Раздел | Информатика |
Класс | 9 класс |
Тип | Конспекты |
Автор | Бронова Е.А. |
Дата | 25.01.2016 |
Формат | docx |
Изображения | Есть |
Ввод и вывод одномерных массивов в Паскале
Ввод и вывод массивов осуществляется поэлементно.
Введем одномерный массив Х, состоящий из 30 элементов, то есть необходимо ввести некую последовательность элементов Х1, Х2, …, Х30.
Пусть i - индекс (порядковый номер) элемента в массиве Х. Тогда
Хi - i-й элемент массива Х, где i = 1, 2, …, 30.
Для ввода массива можно использовать любой цикл.
Первый вариант: ввод массива с использованием цикла с предусловием (Рисунок 1).
Program Primer_1;
Var i: integer;
X: array [1..30] of Integer;
Begin
i := 1;
While i <= 30 Do
Begin
Read (X[i]); i := i + 1
End;
Readln
End.
Можно ввести с клавиатуры элементы следующим образом:
-7 _ 4 _ -2 _ 0 _ 12 _ -1 _ -5 _ 9 _ 11 _ -3 _ -5 _ … _15, то есть через пробел ввести в строчку и нажать клавишу Enter.
Можно было ввести элементы в столбец, отделяя элементы клавишей Enter, то есть каждый элемент с новой экранной строки:
-7 Enter
4 Enter
-2 Enter
…
15 Enter
Второй вариант: ввод массива с использованием цикла с постусловием (Рисунок 2).
Program Primer_2;
Var i: integer;
X: array [1..30] of Integer;
Begin
i := 1;
Repeat
Read (X[i]); i := i + 1
Until i > 30;
Readln
End.
Третий вариант: ввод массива с использованием цикла с параметром (Рисунок 3).
Program Primer_3;
Var i: integer;
X: array [1..30] of Integer;
Begin
For i := 1 To 30 Do Read (X[i]);
Readln
End.
Массив вводится с помощью цикла с параметром, где в качестве параметра используется индекс элемента массива (i).
Вывод одномерного массива осуществляется аналогично.
В программе вместо операторов Read или Readln используются операторы Write или Writeln. Но просто заменить одни операторы на другие здесь недостаточно. Для того чтобы выводимые значения не сливались между собой, надо явным образом вставлять между ними разделитель - пробел или перевод строки. Приведем два возможных способа вывода массива:
-
For i := 1 To n Do Write (X[i],' ');
-
For i := 1 To n Do Writeln (x[i]).
Например, выведем одномерный массив Х1, Х2, …, Хn, состоящий из элементов вещественного типа, используя цикл с параметром (Рисунок 4):
Program Primer_4;
Const n = 30;
Var i: Integer;
X: Array [1..n] Of Real;
Begin
For i:= 1 To n Do Write (X[i] : 6 : 2, ' ');
Writeln; {курсор переводит на новую строку}
Readln
End.