Ввод и вывод, который использовался до сих пор, подразумевал использование клавиатуры, как устройства ввода данных и экрана монитора, как устройства вывода данных. Под устройством понимается вполне конкретный аппарат или прибор, например, принтер, жесткий диск, магнитная лента, атомный реактор или космический корабль. Доступные компьютеру устройства пронумеровываются, и обращение к ним осуществляется через их номера

К клавиатуре и экрану монитора так же можно получить доступ через их номера. За клавиатурой резервируется номер 5, а за экраном монитора закреплен номер 6. Еще чаще считается, что клавиатура и экран монитора это одно устройство, называемое терминалом. Для обозначения номера терминала используется символ "звездочка". Когда речь идет о вводе с терминала, то имеют в виду клавиатуру, а под выводом на терминал подразумевают вывод на экран монитора.

Не зарезервированные номера устройств (а это практически все множество буквальных целых констант) по умолчанию связаны с жестким диском компьютера.

Программа FINOUT демонстрирует файловый ввод/вывод, организуя доступ к клавиатуре и экрану через их номера.

      program FINOUT

      write(*, '(A)', ADVANCE='NO') 'Введите A, B, C: '
      read(5,*,iostat = IOS) A, B, C

      if(IOS .gt. 0) then
         print*, 'Ошибка чтения'
         stop
      elseif(IOS .eq. 0) then
         print*, 'Ввод успешно завершен'
      else 
         print*, 'Неизвестная ошибка'
      endif

      write(6,'(2i3)',iostat = IOS) A, B, C

      if(IOS .gt. 0) then
         print*, 'Ошибка вывода'
         stop
      elseif(IOS .eq. 0) then
         print*, 'Вывод успешно завершен'
      else 
         print*, 'Неизвестная ошибка'
      endif
      end

Для файлового ввода используется оператор READ, а для файлового вывода оператор WRITE. После соответствующего ключевого слова, в круглых скобках, указываетя упрвляющий список, а затем список ввода или вывода, по уже известным правилам.

В управляющем списке, через запятую, указываются: номер устройства, спецификации формата или метка оператора FORMAT и, в необязательном порядке, спецификатор состояния ввода/вывода IOSTAT. Состояние ввода/вывода записывается в скалярную целую переменную, в приведенном примере в переменную IOS. Равенство значения переменной статуса ввода/вывода нулю означает успешную операцию, положительное значение констатирует ошибку ввода/вывода.

Программа FINOUT так же демонстрирует обещанный ранее стандартный вариант непродвигающего ввода/вывода, с использованием спецификатора ADVANCE, принимающего значение 'NO', если после печати данных курсор должен остаться в той же строке, и значение 'YES' в противном случае.

Информационные системы ускорителей

ВВЕДЕНИЕ В ФОРТРАН

Концепция данных Фортрана.

Печать текста и чисел на экран.

Арифметические и текстовые выражения.

Инициализация переменных и констант.

Условные опреаторы.

Циклы.

Процедуры и функции.

Работа с внешними файлами.

ФАЙЛОВЫЙ ВВОД/ВЫВОД.

Copyright © Кафедра Электрофизических установок МИФИ, 2016 - 2024