1.4. ПРОСТЕЙШИЙ ВВОД И ВЫВОД

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

Операторы бесформатного ввода c клавиатуры и бесформатного вывода на экран по своей структуре близки и имеют следующий вид

RЕАD(*, *)<список переменных>

WRITE(*,*)<список переменных>

Здесь первый оператор – оператор ввода, а второй оператор – оператор вывода;<список переменных > – вводимые или выводимые переменные. В этом случае исходные данные вводятся в компьютер путем набора их на экране дисплея, а результаты после выполнения программы также появляются на экране дисплея.

ПРИМЕР:

Фрагмент кода программы, в которой используется бесформатный ввод с клавиатуры и вывод на экран.

INTEGER(1) L_M, P2

REAL*4 DJV

INTEGER(1) :: ZKL=90_1

INTEGER(2)  MMM

READ(*,*) MMM, DJV, P2, L_M

WRITE(*,*)'ZKL=', ZKL, MMM

WRITE(*,*)'DJV=', DJV, P2-18, MMM*DJV+0.24

ZKL=ZKL+24

WRITE(*,*)'ZKL=', ZKL, MMM+100

При осуществлении бесформатного ввода с клавиатуры и вывода на экран монитора  во входном языке Compaq Visual Fortran можно использовать также операторы

RЕАD *, <список переменных>

PRINT *, <список переменных>

Например:

PRINT *, 'INPUT U1,U2,U3'

READ  *, U1, U2, U3

Заметим, что после закрывающейся круглой скобки в операторах WRITE(*,*) и READ(*,*) запятая не ставится, а после «звездочки» в операторах RЕАD * и PRINT * обязательно должна стоять запятая.

ПРИМЕР:

Составить фрагмент программы, которая вводит значения двух вещественных переменных и выводит на экран монитора куб их суммы.

PRINT *,' INPUT a, b'

READ *,a,b

WRITE(*,*) (a+b)**3