Процедура чтения Read

Процедура чтения Read обеспечивает ввод числовых данных, символов, строк и т.д. для последующей их обработки программой.

Формат процедуры Read:

Read (x1, x2, …, xn);

или

Read (fv, x1, x2, …, xn);

где x1, x2, …, xn- переменные допустимых типов данных; fv- переменная, связанная с файлом, откуда будет выполняться чтение.

Значения x1, x2, …, xn набираются минимум через один пробел на клавиатуре и высвечиваются на экране. После набора данных для одной процедуры Read нажимается клавиша ввода Enter.

Значения переменных должны вводится в строгом соответствии с синтаксисом языка Паскаль. Если соответствие нарушено (например, х1 имеет тип Integer, а при вводе набирается значение типа Char), то возникают ошибки ввода-вывода. Сообщение об ошибке имеет вид: I/O error XX, где ХХ - код ошибки.

. . .

Var

I:Real;

J:Integer;

K:Char;

Begin

Read(I,J,K);

. . .

Первый вариант ввода данных: 21,5 23 ’B’

Второй вариант ввода данных: 34 ’A’ 12 ,4

Первый вариант обеспечивает правильный ввод данных, так как набираемые значения 21,5 23 ’B’ соответствуют типам переменных I, J, K в процедуре Read. Второй вариант ввода вызовет ошибку, так как для переменной I типа Real вводится значение типа Char.

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

. . .

Var

A, B, Sum1: Integer;

C, D, Sum2: Real;

. . .

Begin

Read (A, B);

Sum1:=A+B;

Read (C, D);

Sum2:=C+D;

. . .

End.

В результате на экране появятся те данные, которые пользователь вводит с клавиатуры. Например:

12 34 12,5 34,5