ТЕХНИКА ПРОГРАММИРОВАНИЯ. Точный формат печати



Posted by Анатолий Таланин, г.Новосибирск on April 02, 2000 at 10:10:56:

Точный вывод на печатающее устройство строки текста может быть выполнен, например, такой программой:

* -----------------------------------------------------
:PRINT_STR Печать строки
* -----------------------------------------------------
* ВХОДНЫЕ ПАРАМЕТРЫ: S - строка текста
*
* ЛОКАЛЬНЫЕ ПЕРЕМЕННЫЕ: X L II
*
* ВЫХОДНЫЕ ПАРАМЕТРЫ:
* ---------------------------------------------------
L = [length S]
if L = 1
^S
return
endif
for II = 1 to [tr L / 2] - 1
X = [cp S, II * 2 - 1, 2]
^X\
endfor
if L % 2
X = [cp S, L - 2, 3]
^^X
else
X = [cp S, L - 1, 2]
^X
endif
return

Исключением является строка, длиной в 1 символ. Для нее формат вывода составит 2 символа (ограничение в ФБП).

Для вывода в файл достаточно в соответствующие строки добавить оператор >file.


Пpишедшие ответы: