|
(*~\Глагол\Отделы\Обмен~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~*)
(**) ОТДЕЛ Вывод;
(*============================================================================*
* НАЗНАЧЕНИЕ: вывод в файл экрана *
*============================================================================*)
ИСПОЛЬЗУЕТ
ОС,
Знак ИЗ "..\Иное\",
Текст ИЗ "..\Числа\";
(******************************************************************************)
ЗАДАЧА ЗнакЦепи-(зн:ЗНАК);
(* Выводит <зн> в файл экрана. *)
ПЕР
зн866:ЯЧЦЕЛ;
УКАЗ
зн866:=Знак.ВДос(зн);
ОС.ПисатьФ(ОС.ссылкаНаВывод,зн866,1)
КОН ЗнакЦепи;
(******************************************************************************)
ЗАДАЧА Цепь-(цепь-:ЦЕПЬ);
(* Записывает цепочку знаков в файл экрана. *)
ПЕР
поз:ЦЕЛ;
знак:ЗНАК;
былаВолна:КЛЮЧ;
УКАЗ
былаВолна:=ОТКЛ;
ОТ поз:=0 ДО ДЛИНА(цепь)-1 ВЫП
знак:=цепь[поз];
ЕСЛИ былаВолна ТО
ЗнакЦепи(знак);
былаВолна:=ОТКЛ
ИНАЧЕ
ЕСЛИ знак = '^' ТО
(* Пояснение: при записи текста в поток (в т.ч. на экран)
* знак ^ обозначает переход на новую строку и сброс данных *)
ЗнакЦепи(0DX);
ЗнакЦепи(0AX)
АЕСЛИ знак = '~' ТО
былаВолна:=ВКЛ
ИНАЧЕ
ЗнакЦепи(знак)
КОН
КОН
КОН
КОН Цепь;
(******************************************************************************)
ЗАДАЧА ЧЦел-(описание-:ЦЕПЬ; ц0,ц1,ц2,ц3:ШИРЦЕЛ);
(* Записывает текст из 4-х целых чисел в файл экрана,
* используя заданное описание. *)
ПЕР
текст:ЦЕПЬ[200];
УКАЗ
Текст.ИзЧЦел(описание,ц0,ц1,ц2,ц3,текст);
Цепь(текст)
КОН ЧЦел;
<*ЕСЛИ НЕ ЗАДАНО("МПГ") ТО*>
(******************************************************************************)
ЗАДАЧА ЧВещ-(описание-:ЦЕПЬ; в0,в1,в2,в3:ШИРВЕЩ);
(* Записывает текст из 4-х вещественных чисел в файл экрана,
* используя заданное описание. *)
ПЕР
текст:ЦЕПЬ[200];
УКАЗ
Текст.ИзЧВещ(описание,в0,в1,в2,в3,текст);
Цепь(текст);
КОН ЧВещ;
<*КОН*>
КОН Вывод.
|
|