Когда оператор FORMAT предпочтительней? |
Рассмотрим таблицу характеристик гипотетического объекта "отрезок": |
Объект:Отрезок; Ед. изм.: м;
Порядковый номер: 12 из 345 Нач. коорд:6.7 м; Кон. коорд:8.9 м; Длина:2.2 м;
Эту таблицу напечатает программа FMTOUT, в качестве демонстрации возможностей форматного вывода.
Опеpатоp FORMАT |
71 |
CФОРМАТНЫЙ ВЫВОД ПАРАМЕТРОВ ОБЪЕКТА "ОТРЕЗОК" program FMTOUT
integer number, total real length, xmin, xmax character object*8, unit*2
Cномер объекта из общего числа объектов number = 12
total = 345
Cимя объекта и единицы измерения object = 'Отрезок;‘
unit ='м;‘
Сначальная и конечная точки
xmin = 6.7 xmax = 8.9
Cдлина
length = xmax - xmin
Опеpатоp FORMАT |
72 |
CПечать с указанием формата в операторе "print" print'(1x,''Объект:'',a8,'' Ед. изм.:'',a3/1x,
* ''Порядковый номер:'',i3,'' из '',i3/1x,
*''Нач. коорд:'', f3.1, a3,'' Кон. коорд:'',f3.1, a3,
*'' Длина:'',f3.1, a3)',
*object, unit, number, total, xmin, unit, xmax, unit,
*length, unit
Опеpатоp FORMАT |
73 |
СИли печать с использованием оператора " format"
print 100, object, unit, number, total, xmin, unit, * xmax, unit,length, unit
100 format(1x,'Объект:',a8,' Ед. изм.:',a3/1x,'Порядковый
*номер:',i3, ' из ',i3/1x,'Нач. коорд:', f3.1, a3,' Кон.
*коорд:',f3.1, a3, ' Длина:',f3.1, a3)
end
Опеpатоp FORMАT |
74 |
Текстовые константы, если они являются не самостоятельными данными, а поясняющим текстом, обычно помещают непосредственно в список спецификаций формата.
Это позволяет не смешивать собственно выходные данные и вспомогательную информацию, каковой являются спецификации формата.
Опеpатоp FORMАT |
75 |
Подробное описание применения оператора FORMAT
будет приведено в лекции
"Система ввода/вывода".
76
СПАСИБО ЗА ВНИМАНИЕ !!!
До встречи на экзамене!!!
Искренне Ваш, И.В. Климов.
77