Операторы ввода-вывода

Для выполнения ввода-вывода данных используются операторы Read, Readln, Write, Writeln.

Структура оператора ввода

Read(F, x1, x2, ..., xn) или Readln(F, x1, x2, ..., xn),

где F – переменная, связанная с файлом, из которого происходит чтение значений переменных x1, x2, ..., xn. Если переменная F отсутствует, тогда чтение значений переменных производится с клавиатуры. Оператор Readln в отличие от Read переводит курсор на следующую строку.

Использование оператора Readln без аргументов используется для ожидания нажатия клавиши <Enter>.

Структура оператора вывода:

Write(F, e1, e2, ..., en) или Writeln(F, e1, e2, …, en),

где F – переменная, связанная с файлом, в который осуществляется запись значений выражений e1, e2, ..., en. При отсутствии F значения выводятся на экран. Оператор Writeln в отличие от Write переводит курсор на новую строку после вывода значений. Использование оператора Writeln без аргументов используется для вывода пустой строки.

Выходные форматы языка Pascal

Для вывода значений переменных в языке Pascal используются следующие форматы (шаблоны)

R : a : b и R : a,

где R – переменная, а – число всех отводимых позиций под число, b – число позиций дробной части числа.

Для целых чисел и строковых переменных используется формат R : a, для вещественных рекомендуется формат R : a : b, причем под знак и десятичную точку отводится отдельная позиция. Если для вещественного числа не указан выходной формат, то оно выводится в форме с плавающей точкой. Строки символов, заключенные в апострофы, выводятся как текст. Примеры работы оператора Write представлены в табл. П 1.6. Если значение короче, оно «прижимается» к правому краю отведенного поля; если длиннее – поле «раздвигается» до необходимых размеров.

Таблица П 1.6

Значение	Оператор	Результат на экране
R = 654.734	Write(R)	6.54734000000171E+00002
R = 654.734	Write(R:10)	6.5E+0002
R = 654.734	Write(R:10:2)	654.73
I = 77	Write(I)	77
I = 77	Write(I:5)	_ _ _77
S = Minsk	Write(S)	Minsk
S = Minsk	Write(S:3)	Min
S = Minsk	Write(S,’ ‘,S)	Minsk Minsk

Оператор условного перехода

Условный оператор позволяет проверить некоторое условие и в зависимости от результата выполнить то или иное действие. Условный оператор обеспечивает ветвление вычислительного процесса. В языке Pascal используется два вида условных операторов.

1. If <условие> then begin <группа операторов 1> end

else begin <группа операторов 2> end;

2. If <условие> then begin <группа операторов > end;

где If, then, else – служебные слова (если, то, иначе);

begin … end – операторные скобки, ограничивающие действия операторов. Если используется один оператор, то операторные скобки могут быть опущены.

Для оператора первого вида если <условие> истинно, то выполняются <группа операторов 1>, если ложно, то <группа операторов 2>. Для оператора второго вида если <условие> истинно, то выполняется <группа операторов >.

В общем случае <условие> представляет собой логическое выражение, в котором могут использоваться логические операции not («логическое отрицание»), and («логическое умножение И») и or («логическое сложение ИЛИ») и xor («логическое исключающее ИЛИ»).

Примеры использования оператора if приведены в табл. П 1.7.

Таблица П 1.7

Фрагмент программы	Математическая форма фрагмента
If A <> B then Y:= sin(x);	Если A ≠ B, то вычислить Y = sin(x)
If (A > B) and (C < D) then begin Y:= cos(x); Z := ln(abs(cos(x))); end;	Если условия А > B и C < D выполняются одновременно, то вычислить Y = cos(x) и Z = = ln(|cos(x)|)
If (A + B) < D) then Y:= cos(x) else Y:= sin(x);	Если условие (A + B) < D выполняется, то вычислить Y = cos(x), иначе вычислить Y = = sin(x)
If (R/D < D) or (A >0 ) then begin Y:= ln(x); Z := cos(x); end else begin Y:= sin(x)/cos(x); R := Y*Y; end;	Если выполняется одно из условий: R/D < D или A > 0, то вычислить Y = ln(x) и Z = cos(x), иначе вычислить Y = sin(x)/cos(x) и R = YY