Вывод в CountingBlanksInText выглядит несколько ст ранно – множество пробелов отделяет конец строки. Количество пробелов зависит от выведенного целочисленного значения.
Когда целые значения выводятся в файлы типа TEXT, они преобразуются в символы и выравниваются по правой границе строки с фиксированной длиной (обычно длиной 10 символов). Лидирующие нули удаляются. Существует разница между операторами WRITE(‘5’) и WRITE(5). Первый добавляет строку †5† в OUTPUT, тогда как второй добавляет строку † 5†, потому что это были константы типов CHAR и INTEGER соответственно.
Паскаль имеет возможность управлять размером поля, в котором печатается значение типа INTEGER. Любые целые выражения в операторе WRITE могут быть дополнены двоеточием и целочисленным выражением которое обозначает размер поля для выражения. Например, если X и Y целые переменные со значениями 123 и 5, соответственно, тогда оператор WRITE(X:Y) добавляет строку † 123† в OUTPUT.
Последовательные целочисленные значения могут быть считаны из файла типа TEXT если они разделены пробелами или маркерами строк. Если Int1 целочисленная переменная, выражение READ(Int1) будет ожидать последовательность символов в INPUT, которая образует знаковое целое. Строка символов будет преобразована в целое значение перед сохранением в Int1. Синтаксис таких последовательностей символов в INPUT такой же как синтаксис констант типа INTEGER в Паскаль-программах.
Когда целочисленная переменная появляется в операторе READ, пробелы и маркеры, если необходимо, пропускаются пока не будет встречен непробельный символ. Оператор READ принимает те символы, которые могут быть частью целочисленной константы включая предшествующие знаки и останваливается перед первым символом, который не может быть частью этой константы. Целочисленное значение, соответствующее принятым символам сохраняется в переменной.
Например, для данной строки в INPUT:
† -12 3/32/†
где / представляет маркер конца строки, и программного фрагмента
VAR
I1, I2, I3 : INTEGER;
BEGIN
READ(I1, I2, I3);
…
выполнение оператора READ произведет состояние выполнения со следующим частичным содержанием:
{I1·-12, I2·3, I3·32}
При чтении файла типа TEXT, содержащего неизвестное количество целых чисел, финальный маркер конца строки остается за последним считанным целым числом. Таким образом, EOF не может быть использован для определения завершения, как по ошибке пытается делать программа ReadInts:
PROGRAM ReadInts(INPUT, OUTPUT);
{Ошибочная попытка считать все целые числа в INPUT}
VAR
Val: INTEGER;
BEGIN {ReadInts}
WHILE NOT EOF
DO
BEGIN
READ(Val);
WRITELN(Val)
END
END. {ReadInts}
После того как последнее целое будет считано, остается маркер конца строки и EOF будет все еще FALSE, поэтому программа пытается считать снова когда целых чисел уже нет, значение оператора READ неопределено.
Следующий вариант лучше:
PROGRAM ReadInts2(INPUT, OUTPUT);
{Читать файл с целыми числами обращая внимание
на последний маркер конца строки }
VAR
Val: INTEGER;
BEGIN {ReadInts2}
WHILE NOT EOF
DO
BEGIN
IF EOLN
THEN
READLN;
IF NOT EOF
THEN
BEGIN
READ(Val);
WRITELN(Val)
END
END
END. {ReadInts2}
Однако и эта программа выдаст ошибку, если финальный маркер конца строки не следует непосредственно за последним числом, например для строки †123x† или †123 †. Легче читать целые числа из файла типа TEXT с использованием охраняющего значения для обозначения, когда входные данные закончились (например –99999 или 0, какое-то значение, которое недопустимо в данном файле).
Для иллюстрации вычислений с целыми числами, следующая программа получает целое число N из входного файла, потом вычисляет сумму первых N целых чисел:
PROGRAM Sum (INPUT, OUTPUT);
{(N >= 0 -> I, S := N+1, 1+2+…+ N)}
VAR
I, N, S: INTEGER;
BEGIN {Sum}
READ(N);
S := 0;
I := 1;
WHILE I <= N
DO
BEGIN
S := S+I;
I := I+1;
END;
WRITELN(‘Сумма первых’, N:2
‘ положительных целых чисел’, S:3 )
END. {Sum}
Выполнение:
INPUT: 6
OUTPUT: Сумма первых 6 положительных целых чисел 21
