Студопедия
Случайная страница | ТОМ-1 | ТОМ-2 | ТОМ-3
АрхитектураБиологияГеографияДругоеИностранные языки
ИнформатикаИсторияКультураЛитератураМатематика
МедицинаМеханикаОбразованиеОхрана трудаПедагогика
ПолитикаПравоПрограммированиеПсихологияРелигия
СоциологияСпортСтроительствоФизикаФилософия
ФинансыХимияЭкологияЭкономикаЭлектроника

Вещественные - форма с фиксированной точкой

Конструкция SELECT CASE | Упорядочение операторов | Уровни доступа | Спецификация входных-выходных параметров | Использование модуля | Внутренние процедуры | Связь с хозяином (Host) - глобальные данные | Объекты допустимого образа | Процедуры в качестве параметров | Оператор OPEN |


Читайте также:
  1. A) Informations – Передача информация
  2. APPLICATION FORM - форма заявки
  3. BITMAPFILEHEADER – эта структура содержит информацию о типе, размере и представлении данных в файле. Размер 14 байт.
  4. Cурет. Форма түрі.
  5. Double x1, mas[5], p1; //здесь объявлены вещественные переменные x1, p1
  6. I. Создание информационного трехстраничного буклета
  7. II. Аналитический обзор результатов информационного поиска в электронных каталогах трех библиотек.

Дескриптор F используется для управления вещественными (или комплексными) числами, когда требуется нотация с фиксированной десятичной точкой. Она имеет форму Fw.d. Несколько вещественных чисел можно читать(писать), используя повторитель. - aFw.d. Например:

REAL:: itest=123.4567! число для записи

...

WRITE(*,*) itest! 1.2345670E+02 -формат не F

WRITE(*,'(F8.0)') itest! 123

WRITE(*,'(F10.4)') itest! 123.4567

WRITE(*,'(F10.5)') itest! 123.45670

WRITE(*,'(F10.9)') itest! **********

WRITE(*,'(2F8.4)') itest, 7654321! 123.4567765.4321

WRITE(*,'(2F10.4)') itest, 7654321! 123.4567 765.4321

Важно помнить, что десятичная точка помещается в поле вывода ширины w. В верхнем примере, несмотря на то, что они записывали 7 цифр на экран, поле должно быть из 8 символов (или более), чтобы обеспечить место для десятичной точки.

Я

Вещественные - экспотенциальная форма

Дескриптор E используется для управления форматом вещественных (и комплексных) чисел, когда требуется нотация десятичной плавающей точки. Форма Ew.d или Ew.dEe, где e число цифр в экспоненте. Экспонента нужна для показа чисел со значениями ниже 0.001 или выше 1000. Как и прежде несколько чисел могут быть прочитаны (записаны) в одном формате использованием повторителя - aEw.d. Если w слишком велико для представления числа, ведущие пробелы добавляются перед цифрами. Например:

REAL:: itest=123.45*1000000! число для записи (кратность- 1 миллион)

...

WRITE(*,*) itest! 1.2345670E+02

WRITE(*,'(E10.4)') itest! 0.1234E+09

WRITE(*,'(E10.5)') itest!.12345E+09

WRITE(*,'(E10.4E3)') itest!.1234E+009

WRITE(*,'(E10.9)') itest! **********

WRITE(*,'(2E12.4)') itest, 7654321! 0.12345E+090.76543E+04

WRITE(*,'(2E10.4)') itest, 7654321! 0.1234E+090.7654E+04

Допустимы две альтернативные формы дескриптора E:

 

Обе используются одним и тем же способом как спецификация (дескриптор) Е:

REAL:: itest=123.45*100! Число записать 100 раз

...

WRITE(*,*) itest! 1.2345000E+04

WRITE(*,'(EN13.6)')! 12.345000E+03

WRITE(*,'(ES13.6)')! 1.234500E+04

Я

Символьные

Дескриптор A используется для управления форматом символов и строк в форме A или Aw. Дескриптор A будет писать столько символов, сколько потребуется, чтобы написать (напечатать) строку ширины w. Если w больше чем символьная строка, то добавляются ведущие пробелы перед символам строки. Например:

CHARACTER(LEN=8):: long='Bookshop'

CHARACTER(LEN=1):: short='B'

...

WRITE(*,*) long! Bookshop

WRITE(*,'(A)') long! Bookshop

WRITE(*,'(A8)') long! Bookshop

WRITE(*,'(A5)') long! Books

WRITE(*,'(A10)') long! Bookshop

WRITE(*,'(A)') short! B

WRITE(*,'(2A) short, long! BBookshop

WRITE(*,'(2A3) short, long! BBoo

Когда используется дескриптор A в операторах форматного READ() символьную строку не нужно заключать в кавычки.

Я

Логические

Логические данные форматируются с помощью дескриптора L и имеют форму Lw или aLw для счетчиков повторения. Обычно используются только две формы дескриптора L, L для одиночного символа формат T или F и L7, который позволяет печатать .TRUE. и .FALSE..

LOGICAL:: ltest=.FALSE.

WRITE(*,*) ltest! F

WRITE(*,'(2L1)') ltest,.NOT.ltest! FT

WRITE(*,'(L7)') ltest! F

Я

Заполнение пробелами (пропуск символьных позиций)

Дескриптор X используется для ввода пробелов между выводимыми значениями, чтобы обеспечить читаемось, записывается в форме aX. Дополнительные пробелы имеют смысл только при выводе (то есть в операторах WRITE()), они игнорируются в форматных операторах READ(). Например:

INTEGER:: n=1234! число для вывода

...

WRITE(*,'(I4, 2X, I4)') i, i-1! 1234 1233

WRITE(*,'(I4, 4X, I4)') i, i-1! 1234 1233


Дата добавления: 2015-11-14; просмотров: 62 | Нарушение авторских прав


<== предыдущая страница | следующая страница ==>
Родовые подпрограммы| Ввод-вывод без продвижения

mybiblioteka.su - 2015-2024 год. (0.007 сек.)