 |
Кафедра вычислительной техники и инженерной кибернетики
|
|
|
|
При выполнении операторов
Writeln (‘ Кафедра вычислительной техники и’);
Write (‘ инженерной кибернетики’);
получим:
Кафедра вычислительной техники и
Инженерной кибернетики
Применение оператора writeln без операндов приводит к переходу на начало новой строки.
При необходимости вывода данных на принтер программу следует организовать следующим образом:
program имя;
uses printer;
- - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - -
write (lst, <список вывода>);
- - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - -
При этом печатающее устройство должно быть готовым к работе (данные на экран дисплея выводиться не будут).
Нередко, особенно при отладке программы, возникает необходимость выводить данные при одном запуске программы на экран, при другом - на печатающее устройство или в файл. Тогда полезно вывод организовывать с указанием соответствующего устройства вывода, например:
Var Dev: text;
Каnаl: string;
Begin
- - - - - - - - - - - - - - - - - - - - - - - - - -
write ('канал вывода результатов='):
read (Каnа1);
assign (Dev, Kanal);
rewrite (Dev);
- - - - - - - - - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - - - - - - - - -
write (Dev, <список вывода>);
close (Dev);
End.
На запрос ‘канал вывода результатов=’ следует указать соответственно:
Con – для вывода на монитор;
Prn – для вывода на печатающее устройство;
Имя файла – для вывода результатов отчета.
По умолчанию текст будет выводиться на экран дисплея.
3.3.3. Оператор безусловного перехода /goto/
Оператор безусловного перехода состоит из зарезервированного слова goto /перейти/ и следующего за ними идентификатора метки. Оператор goto служит для безусловной передачи управления на тот оператор программы, который обозначен /помечен/ данной меткой. При использовании оператора goto необходимо соблюдать следующие правила:
|
|
|
1. Перед тем, как использовать метку в программе, ее следует описать в разделе описания меток того блока программы, в котором данная метка используется.
2. Областью действия метки является тот блок, в котором она описана. Таким образом, невозможно перейти за пределы процедуры или функции или передать управление внутрь какой-либо процедуры или функции.
Оператор безусловного перехода имеет вид
goto M;,
где М – метка оператора, которому необходимо передать управление.
Пример использования оператора безусловного перехода:
Program primer;
Label 100;
- - - - - - - - - - - - - - - - - -
Begin
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
goto 100;
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
100: y:= x+exp(1.25*ln(a));
- - - - - - - - - - - - - - - - - -
- - - - - - - - - - - - - - - - - -
End.
Условные операторы
Условный оператор позволяет выполнить один из входящих в его состав
операторов в зависимости от выполнения какого либо условия.
Оператор IF
Оператор IF определяет, что тот или иной оператор должен выполняться лишь в том случае, если справедливо заданное условие /то есть соответствующее булевское выражение принимает значение true /истина/.
Если условие не выполняется, то либо никаких действий не производится, либо выполняется оператор, записанный вслед за словом else /иначе/. Отметим, что перед словом else не нужно ставить точку с запятой.
Некоторую двусмысленность, возникающую при интерпретации синтаксических конструкций, следующего вида:
if expr1 then
if expr2 then
smit1
else
smit2;,
где expr - выржение, smit –оператор,
можно устранить, оформив данную конструкцию следующим образом:
if expr1 then
begin
if expr2 then
smit
else
smit2
end.
Предложение else оператора if-относится обычно к последнему оператору if, у которого нет предложения else.
Пример использования оператора IF. Определить наибольшее значение из переменных a, b, c:
|
|
|
| if a>b then if a>c then max:= a else max:= c else if c>b then max:= c else max:= b; |
3.3.4.2. Оператор выбора /Case/
Оператор выполняет одну из нескольких альтернативных ветвей программы в зависимости от значения некоторого выражения, называемого индексом выбора. Оператор имеет вид
Case <индекс выбора> of
метки 1: Si;
- - - - - - - - -
метки n: Sn;
end;,
где Case (выбор), of (из), end – служебное слово оператора;
индекс выбора – выражение любого скалярного типа, кроме вещественного;
S – простой или составной исполнимый оператор;
i – список значений индекса выбора.
Метка выбора не описывается в разделе описания. На нее нельзя ссылаться в операторе goto.
Оператор выбора выбирает для исполнения тот оператор Si, одна из меток которого равна текущему значению индекса выбора.
Пример. Определить значение У в зависимости от значения текущей переменной К:
Sin(x), при К = 1, 8
У = Cos(x), при К = 3
Ln(x), при К = 4, 6
Фрагмент программы принимает вид
Case K of 1, 8: y:=sin(x);
3: y:=cos(x);
4, 6: y:=ln(x);
end;
Тип индекса выбора и тип меток должны быть одинаковыми.
|
|
|
