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.

Лекция 12.