Ввод массива с клавиатуры

Ввести массив с клавиатуры- это значит ввести каждый его элемент. Рассмотрим ввод одномерного массива А, размер которого равен n. В общем виде массив можно записать следующим образом:

А(a[1],a[2],a[3],…a[n])

Алгоритм ввода одномерного массива можно записать так:

1. Запросить ввод первого элемента. Ввести первый элемент.

2. Запросить ввод второго элемента. Ввести второй элемент.

......

n. Запросить ввод n-го элемента. Ввести его.

Данный алгоритм не удобен и рациональнее преобразовать его в следующий:

Для i:=1 до n повторять

Нач

Вывод(‘введите a[’,i,’]’);

Ввод(a[i]);

Кон;

На Turbo Pascal он будет выглядеть следующим образом

Var a: array [1..n] of integer;

I: integer;

......

{алгоритм ввода одномерного массива}

For i:=1 to n do

Begin

Writeln(‘введите а[’,I,’]’);

Readln(a[i]);

End;

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

Var a: array [1..n,1..m] of real;

I,j: integer;

......

{алгоритм ввода двумерного массива}

For i:=1 to n do

For j:=1 to n do

Begin

Writeln(‘введите а[’,i,’,’,j,’]’);

Readln(a[i,j]);

End;

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

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

По аналогии с алгоритмом ввода, алгоритм вывода одномерного массива будет иметь вид:

Var a: array[1..n] of integer;

I: integer;

….

{алгоритм вывода одномерного массива }

for i:=1 to n do

write(a[i],’ ‘);

Оператор Write позволяет выводить элементы массива в строку через пробел. При выводе элементов массива следует обратить внимание на тип элементов массива, для элементов действительного типа следует указать формат вывода. Например, write(a[i]:10:2).

Алгоритм вывода двумерного массива аналогичен, но следует обратить внимание на то, что выводить массив необходимо по строкам. Т.е. для каждой строки нужно:

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

ü Перевести курсор на новую строку.

Тогда алгоритм будет выглядеть следующим образом:

Var a: array [1..n,1..m] of real;

I,j: integer;

......

{алгоритм вывода двумерного массива}

For i:=1 to n do

begin

For j:=1 to n do Write (a[i,j]:10:2);

Writeln;

End;

Дома:

ü Повторить условные операторы и операторы цикла.

ü Разобрать и выучить все изученное на данный момент о массивах

Лекция 22.