next up previous contents
След.: Упражнение Выше: Форматирование ввода/вывода Пред.: Дескрипторы текста   Содержание

Примеры

Несколько примеров [2,13,3].

  1. PRINT 740

    740 FORMAT('ЭТО ПРОСТО ТЕКСТ')

    Выводит текст.

  2. PRINT 740, 2, 3

    740 FORMAT(1X, I1, 'ISN''T' 1X, I1)

    Выводит 2 ISN'T 3

  3. WRITE(10, "('IARRAY =', *( I0, :, ','))") IARRAY

  4. WRITE(*,1) V(I0,J0,1),I0,J0

    1 FORMAT('Max V: ',E7.1,'at i=',I0, 'J=',J0)

  5. WRITE(*, '(1X, А13) 'Hello, World!'

  6. WRITE 6, '(F3.1, F5.2)' X, Y

  7. WRITE(*, '3F9.4') A(2:4) !Вывод секции массива

  8. Вывод целого, запятой и трех вещественных чисел:

    666 FORMAT(1X, I5, ',', 3(F9.3, 2X))

  9. Формат задан в операторе FORMAT:

    WRITE(6,55) 'RESULT:', (A+B)**2

    55 FORMAT(A7, F7.2)

    Формат задан строковой константой:

    WRITE(6, '(A7, F7.2)') 'RESULT:', (A+B)**2

    Можно так:

    WRITE(6, "('RESULT:', F7.2)") (A+B)**2

    !Формат задан в строковой переменной:

    C = '(A7, F7.2)'

    WRITE(6, C) 'RESULT:', (A+B)**2

    !Формат по умолчанию:

    WRITE(6, *) 'RESULT:', (A+B)**2

Зачастую достаточно форматирования по умолчанию. Если же требуется форматирование (например, длинные дробные части засоряют вывод), следует освоить дескрипторы I и F, а также E -- для ввода и вывода целых и вещественных данных, в том числе -- с экспонентой. Полезен дескриптор G, особенно в форме G0, при которой ширина поля подбирается автоматически.



Подсекции

Ilya A. Chernov 2012-12-19
X