Полезное:
Как сделать разговор полезным и приятным
Как сделать объемную звезду своими руками
Как сделать то, что делать не хочется?
Как сделать погремушку
Как сделать так чтобы женщины сами знакомились с вами
Как сделать идею коммерческой
Как сделать хорошую растяжку ног?
Как сделать наш разум здоровым?
Как сделать, чтобы люди обманывали меньше
Вопрос 4. Как сделать так, чтобы вас уважали и ценили?
Как сделать лучше себе и другим людям
Как сделать свидание интересным?
Категории:
АрхитектураАстрономияБиологияГеографияГеологияИнформатикаИскусствоИсторияКулинарияКультураМаркетингМатематикаМедицинаМенеджментОхрана трудаПравоПроизводствоПсихологияРелигияСоциологияСпортТехникаФизикаФилософияХимияЭкологияЭкономикаЭлектроника
|
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.
|