Пратт Т. Языки программирования. Разработка и реализация

Подождите немного. Документ загружается.

597

Производные классы. Информацию можно передавать из одного класса в дру

гой, используя обозначение производного класса:

class ïðîèçâîäíûé_êëàññ: áàçîâûé_êëàññ

{êîìïîíåíò_êëàññà

;

êîìïîíåíò_êëàññà

;

...

êîìïîíåíò_êëàññà

; }

где ïðîèçâîäíûé_êëàññ — имя определяемого нового класса, а áàçîâûé_êëàññ — это ба

зовый класс, используемый для создания производного класса. Все открытые и за

щищенные компоненты базового класса становятся соответственно открытыми

и защищенными компонентами в производном классе, за исключением тех имен,

которые переопределяются в производном классе.

Для всех компонентов базового класса можно по умолчанию задать способ до

ступа, как в следующем примере:

class ïðîèçâîäíûé_êëàññ:àòðèáóò_äîñòóïà áàçîâûé_êëàññ {…}

где àòðèáóò_äîñòóïà может задаваться либо public, либо protected, либо private.

Виртуальные функции. В большинстве случаев связь метода и исходной про

граммы, которую нужно выполнить, определяется статически во время трансля

ции. Однако это связывание можно отложить до момента выполнения программы,

если использовать виртуальные функции. Функции в определении класса при

сваивается атрибут virtual, как в следующем примере:

virtual void setvalue(int *a, int b);

Если функция setvalue переопределяется в производном классе, то при каждом

использовании имени setvalue для объекта производного класса будет использо

ваться последнее определение функции.

Если определение класса должно использоваться только в качестве базового

класса, а все объекты данных определяются в производных классах, то такие клас

сы называются абстрактными. Абстрактный класс можно определить как класс,

содержащий чисто виртуальную функцию:

virtual void setvalue(int *a, int b) = 0;

Ни один экземпляр класса, содержащего чисто виртуальную функцию, не мо

жет быть объявлен. Производный класс, содержащий чисто виртуальную функ

цию, должен переопределить ее, если он будет использоваться для создания объек

тов этого производного класса.

Шаблоны. В языке C++ существует форма общей функции, называемая шаб

лоном. Синтаксис шаблона следующий:

template <class ïàðàìåòð_òèïà> class èìÿ_êëàññà îïðåäåëåíèå

где îïðåäåëåíèå — это либо определение класса, либо определение функции.

Шаблон èìÿ_êëàññà<ôàêòè÷åñêèé_òèï> используется для описания объявления

класса. Например,

1 #include <stream.h>

2 template <class stacktype, int size> class allstack

3{ public: stacktype stg[size]; } ;

4 allstack<int,10> x;

5 allstack<float,20> y;

6 main()

П.3. C++

598 Приложение. Обзоры языков

7 {x.stg[4] = 7.5; // öåëî÷èñëåííûé ìàññèâ

8 y.stg[4] = 7.5; // âåùåñòâåííûé ìàññèâ

9 cout << x.stg[4] << ' ' << y.stg[4] << endl; }

В строках 2–3 создается шаблон класса с именем allstack, у которого имеется

параметр типа stacktype и целый параметр size. Этот шаблон отводит память под

данные массива с именем

stg, размер которого равен size, а тип — stacktype. В стро

ках 4–5 создается объект x класса allstack, внутреннее представление которого —

это целочисленный массив из 10 элементов, и объект y класса allstack, представ

ленный вещественным массивом из 20 элементов.

В результате трансляции и выполнения этой программы получаем следующий

вывод.

Сообщения компилятора об ошибках

sample.cc: In function 'int main ()':

sample.cc:7: warning: float or double assigned to integer data type

% execute

7 7.5

Предупреждение означает, что вещественное число 7.5 было преобразовано к це

лому числу при его присваивании переменной x.stg[4], а при присваивании пере

менной y.stg[4] оно оставалось вещественным.

Представление объектов в памяти

Объекты класса могут быть представлены в памяти так же, как и объекты структу

ры struct. Вызов метода classobject.methodname(ïàðàìåòð) на самом деле трансли

руется в процессе компиляции в следующую запись:

classname::methodname(&classobject, ïàðàìåòð)

Единственная сложность возникает, когда вызываются виртуальные функции,

поскольку реальная функция, которую необходимо вызвать, может быть переоп

ределена в производном классе. Для разрешения этой проблемы необходимо толь

ко сохранить таблицу переходов в объекте класса для каждой наследуемой вирту

альной функции. Если она обновляется для каждой новой виртуальной функции

в производном классе, то этот объект данных всегда будет указывать на текущую

виртуальную функцию, которую необходимо вызвать.

П.3.2. Управление последовательностью

действий

Язык C++ содержит те же операторы, что и язык C. В C++ добавлена обработка

исключительных ситуаций, хотя не каждый транслятор C++ обеспечивает эту воз

можность.

Выражения

Выражения языка C++ те же, что и в языке C.

Эти сообщения появятся при использовании компилятора С++ в системе UNIX, при использовании

другого компилятора С++, например фирмы Microsoft для системы Windows, их не будет. — Примеч.

науч. ред.

599

Операторы

Все операторы языка C можно использовать в языке C++.

Параметры функций по умолчанию. Параметры функций могут иметь значе

ния по умолчанию, которые задаются их простой инициализацией в определениях

функций. Например, функция

myfunction (int a; int b = 7); ...

может быть вызвана как myfunction(5, 12), при этом значения переменных будут

a = 5 и b = 12; или как myfunction(6), тогда значения переменных будут: a = 6, b = 7.

Параметры перечисляются в таком порядке, чтобы параметры, имеющие значения

по умолчанию, располагались справа. (Заметим, что эта конструкция потенциаль

но опасна, особенно если программа содержит имена перегруженных функций

с различными списками параметров. Во избежание осложнений следует избегать

данного способа вызова функций.)

Оператор try. Оператор try используется для обработки программноопреде

ленных исключительных ситуаций:

try

{ îïåðàòîð

;

îïåðàòîð

;

...

if óñëîâèå_èñêëþ÷åíèÿ{throw èìÿ_èñêëþ÷åíèÿ};

}

catch(èìÿ_èñêëþ÷åíèÿ){ // Îáðàáîòêà èñêëþ÷èòåëüíîé ñèòóàöèè

} // Êîíåö èñêëþ÷èòåëüíîé ñèòóàöèè

}

Внутри любой процедуры, содержащей блок try, генерирование исключения

оператором throw приводит к выполнению соответствующего оператора catch. После

этого процедура завершается.

Операторы catch (которые являются определениями перегруженной функции)

проверяются по очереди, пока не будет обнаружено совпадение с соответствую

щим оператором throw. Например,

throw "Ýòî äàííûå ñ îøèáêàìè."

может быть выявлен следующим обработчиком:

catch (char *ErrorString) { / *Îáðàáîòêà èñêëþ÷åíèÿ */ }

Ввод и вывод

Входные и выходные потоки определены как стандартный набор функций. Функ

ции cout и cin и родственные им функции описаны в следующем разделе.

Перегрузка. В языке C++ две функции могут быть перегруженными (то есть

иметь одно и то же имя), если они имеют различные сигнатуры. Например,

int Myfunction(int a, int b) {...}; // Ôóíêöèÿ A

int Myfunction(int a) {...}; // Ôóíêöèÿ B

представляют две различные функции A и B.

Если в программе дважды определено имя функции, C++ делает следующее.

1. Если сигнатуры полностью совпадают, вторая функция будет воспринимать

ся как переопределение первой.

П.3. C++

600 Приложение. Обзоры языков

2. Если аргументы совпадают, а возвращаемые значения нет, то вторая функ

ция воспринимается как ошибка.

3. Если аргументы не совпадают, функции рассматриваются как перегружен

ные.

Символы операций также могут быть перегружены в определении класса пу

тем определения функции, начинающейся со слова operator, за которым следует

перегруженный символ. Например, функция + для возврата первого символа стро

ки может быть определена следующим образом:

#include <stream.h>

class thing

{public: char operator+() {return stg[0];};

char stg[4]; };

main() {thing x; x.stg="àbc"; cout << "print x[0]: " << +x << endl;}

где первый аргумент — экземпляр класса thing. Данная программа осуществит сле

дующий вывод:

print x[0]: a

Бинарный вариант операции char для + будет иметь сигнатуру

char operator+(thing string) ...

и к компонентам второго аргумента можно обращаться как string.stg. К первому

аргументу можно обращаться как this → stg.

Сигнатура перегруженных операций должна быть совместима с сигнатурой их

стандартных функциональных возможностей. Таким образом, + может быть унар

ным или бинарным, но !, например, может быть только унарным.

Перегруженная операция, такая как thing_data + int_data, должна быть опреде

лена внутри класса thing_data как функция с аргументом int_data. Таким образом,

левый аргумент бинарной операции определяет класс, который содержит опреде

ление функции. В приведенном примере класс thing содержит функцию

operator+ (int x){...}

Чтобы написать функцию int_data+thing_data, необходимо иметь функцию, в ко

торую передается аргумент класса thing, примененный к классу int. Однако тип

int является встроенным. Эту проблему можно решить, если определить функцию

как дружественный класс (friend) в определении класса thing:

friend operator+ (int x, thing y){...}

Однако в любом случае по крайней мере один аргумент у операции + должен

быть из класса, определенного пользователем.

Неявные преобразования. Конструкция operator может быть использована для

неявного преобразования типов. Пусть у нас задан объект класса thing. Конструкция

operator type() { return ... }

будет вызываться всегда, когда используется объект класса thing, а требуется объект

типа type. Если добавить в определение класса thing следующую строку:

operator char() { return stg[0] }

то следующая функция будет иметь такое же действие, что и предыдущая перегру

женная операция +:

main() {thing x; x.stg = "abc"; cout << "print x[0]: " << (char) x << endl;}

601

Стандартные функции

Все функции языка C можно использовать в языке C++. Кроме того, язык C++

содержит набор стандартных потоковых функций вводавывода, определенных

в заголовочном файле stream.h.

Функция cout << item добавляет элемент item в выходной поток. В одном опе

раторе можно добавить несколько элементов, например, cout << item

<< item

….

Для добавления символа окончания строки и печати этой строки используется

специальный элемент endl. Функция cout.put поместит аргумент, состоящий из

одного символа, в выходной поток.

Функция cin считывает данные в свободном формате. cin >> a >> b считывает

первый элемент в переменную a, а второй в переменную b. Если требуется считать

одиночный символ, это действие произведет функция cin.get (функция get анало

гична функции getchar из файла stdio.h).

Функция getline( char *b, int bsize, char delim = '\n') считывает блок из не

более чем bsize–1 символов, сохраняет его в массиве b и добавляет в конец null

символ \0. Параметр delim определяет, какой последний символ считывать (обыч

но это символ конца строки \n).

Распределение памяти. Для распределения памяти в языке C++ нет необходи

мости использовать системную функцию malloc. В этот язык были добавлены функ

ции new и delete.

Функция new èìÿ_òèïà размещает в памяти объект указанного типа и возвра

щает указатель на него. При вызове new èìÿ_êëàññà объект указанного класса разме

щается в памяти и возвращается указатель на него.

Функция delete îáúåêò освободит занятую под указанный объект память, вы

деленную с помощью функции new.

П.4. FORTRAN

Пример с пояснениями

В примере, приведенном в листинге П.6, происходит суммирование элементов век

тора. Со времени систем пакетной обработки сохранилось правило, что числовые

метки операторов записываются в позициях со 2й по 5ю, а символ C в первой

позиции обозначает комментарий. Каждый оператор записывается на одной стро

ке, кроме случая, если в шестой позиции следующей строки записан любой сим

вол, что означает продолжение предыдущего оператора.

Листинг П.6. Пример суммирования массива на языке FORTRAN

1 PROGRAM MAIN

2 PARAMETER (MAXSIZ=99)

3 REAL A(MAXSIZ)

4 10 READ(5, 100, END=999) K

5 100 FORMAT(I5)

6 IF (K.LE.0 .OR. K.GT.MAXSIZ) STOP

7 READ *, (A(I),I=1,K)

8 PRINT *, (A(I),I=1,K)

9 PRINT *,'SUM=', SUM(A,K)

10 GO TO 10

П.4. FORTRAN

602 Приложение. Обзоры языков

11 999 PRINT *,"All Done"

12 STOP

13 END

14 C ÏÎÄÏÐÎÃÐÀÌÌÀ ÑÓÌÌÈÐÎÂÀÍÈß

15 FUNCTION SUM(V,N)

16 REAL :: V (N) ! Íîâûé ñòèëü îáúÿâëåíèÿ

17 SUM = 0.0

18 DO 20 I = 1,N

19 SUM = SUM + V(I)

20 20 CONTINUE

21 RETURN

22 END

Пробелы игнорируются, поэтому для облегчения читаемости программы их

можно свободно вставлять в любое место, например для обозначения вложенных

блоков операторов, как показано в листинге П.6. К сожалению, многие програм

мисты на языке FORTRAN придерживаются правила записи операторов с 7й по

зиции. Однако это только руководящие принципы, и хорошие программы содер

жат много пустого места для улучшения читаемости. Порядковые номера строк

в левой части листинга П.6 не являются частью программы, они приведены здесь

только для облегчения разбора примера.

Строка 1. Имя программы MAIN.

Строка 2. MAXSIZ — определенная программистом константа. При трансляции

данной программы используется значение 99, а не имя MAXSIZ.

Строка 3. Описывается одномерный массив действительных чисел размером 99,

границы изменения индекса от 1 до 99. Нижняя граница полагается равной единице.

Строка 4. В этой строке происходит считывание размера массива и запись его в

переменную K. Поскольку эта переменная не описана, она по умолчанию является

целой. Цифра 5 после оператора READ является ссылкой на входной файл, которым

является устройство стандартного ввода (например, клавиатура). Цифра 6 указы

вает на стандартный выходной файл (например, дисплей).

Строка 5. Здесь оператор FORMAT устанавливает, что данные будут целыми

(I формат) и займут пять позиций в строке ввода. Формат F (fixed) является «фик

сированным» вещественным. Например, вещественное число 5,123 могло бы иметь

формат F5.3, а это означает, что для представления числа необходимо 5 символов,

причем 3 крайних символа справа расположены после десятичной точки.

Строка 7. Оператор READ считывает значения элементов массива от A(1) до A(K).

Вместо использования оператора FORMAT (как в операторе READ(5,101)), звездочка

здесь означает использование управляемого списком оператора READ, который по

следовательно считывает и анализирует вещественные числа из входного потока.

Переменной I присваиваются значения, которые действуют только внутри этого

оператора.

Строка 10. В языке FORTRAN 77 нет конструкции while. Оператор, записан

ный в этой строке, передает управление назад, оператору, помеченному меткой 10,

для считывания очередных данных массива. Строки 4–10 эффективно создают

конструкцию

while íå_êîíåö_ôàéëà do

Îáðàáîòàòü ñëåäóþùèé ìàññèâ

end

603

Строка 13. Конец главной программы.

Строка 14. Комментарий. Может использоваться в любом месте программы.

Строка 15–22. Подпрограммафункция SUM. Эта функция компилируется от

дельно от основной программы. Для передачи информации компилятору не ис

пользуется информация из главной программы. Ошибочная строка

FUNCTION SUM(V,N,M)

также будет компилироваться, но может дать сбой, когда загрузчик попытается

объединить эту подпрограмму с главной программой.

Строка 16. Хотя массив задан как V(N), в вызове функции SUM в строке 9 он ссы

лается на статически размещенный параметр, вещественный массив A(99) в стро

ке 3. Здесь же показан стиль объявления, используемый в FORTRAN 90, с приме

нением символа ::. Также FORTRAN 90 поддерживает встроенные комментарии,

для чего используется восклицательный знак !.

Строка 18. В цикле DO устанавливается начальное значение счетчика I равное 1,

а затем I увеличивается до N. Метка обозначает конец цикла. Если приращение не

равняется 1, то требуется еще один параметр:

DO 20 J= 2,20,2

В этом цикле переменная J будет принимать все четные значения от 2 до 20.

Строка 19. Возвращаемое FORTRANфункцией значение присваивается име

ни этой функции.

Строка 20. Оператор CONTINUE является пустым и используется в основном толь

ко с меткой. Здесь он заканчивает цикл DO.

П.4.1. Объекты данных

Переменные и константы. Имена переменных могут быть длиной от 1 до 31 сим

вола, начинаются с буквы и могут содержать буквы, цифры и знак подчеркива

ния «_». FORTRAN нечувствителен к регистру, то есть PRINT, print, PrInT и Print

обозначают одно и то же. Традиционно программы на языке FORTRAN писались

с использованием верхнего регистра, но в настоящее время программисты, пишу

щие на FORTRAN, смешивают верхний и нижний регистры, как в большинстве

других языков программирования.

Переменные не обязательно объявлять явно. Явное объявление выглядит сле

дующим образом:

REAL A, B, SUM

DOUBLE PRECISION Q, R

LOGICAL :: T

Описание переменной T соответствует синтаксису FORTRAN 90. Если не при

ведено явное описание, то в силу вступает соглашение об именах, основанное на

определении типа переменной по первой букве ее имени. В соответствии с согла

шением об именах, если имя переменной начинается с букв из диапазона I–N, ее

тип определяется как integer (целая), а все остальные переменные определяются

как real (вещественные). Однако программист может изменить соглашение об

именах, используемых в каждой подпрограмме, если начнет описание подпрограм

мы с оператора IMPLICIT. Например, оператор

IMPLICIT INTEGER(A–Z)

П.4. FORTRAN

604 Приложение. Обзоры языков

расположенный в начале подпрограммы, указывает, что все локальные перемен

ные, не объявленные явным образом, имеют тип integer. Объявление

IMPLICIT NONE

отключает все соглашения по умолчанию в FORTRAN 90, в результате чего любая

необъявленная переменная воспринимается компилятором как ошибка. Это хоро

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

Константы, определяемые программистом, можно создавать с помощью опера

тора PARAMETER, задаваемого в начале подпрограммы:

PARAMETER (KMAX=100, MIDPT=50)

При описании типа константы также применяется соглашение об именах либо

константы можно описывать явно:

REAL, PARAMETER :: EPSILON = .0012

В языке FORTRAN используется статическая проверка типов, но она непол

ная. Многие возможности языка, включая параметры в вызовах подпрограмм и ис

пользование блоков COMMON, не могут быть проверены статически — отчасти пото

му, что подпрограммы компилируются независимо. Конструкции, которые не могут

быть проверены статически, обычно остаются непроверенными во время работы

программ на языке FORTRAN.

Числовые типы данных. Для целых, вещественных и вещественных удвоенной

точности числовых типов обычно используется прямое аппаратное представле

ние чисел. Комплексный тип (complex) представляется парой вещественных чисел

(real), под которые отводится блок из двух машинных слов.

Для арифметических действий и преобразований между четырьмя числовыми

типами имеется широкий набор элементарных операций. Основные арифметиче

ские операции (+, –, *, /) и операция возведения в степень (**) дополняются как

большим набором стандартных встроенных функций, включая тригонометриче

ские и логарифмические функции (sin, cos, tan, log), операцию извлечения квад

ратного корня (sqrt), нахождения максимального (max) и минимального (min) числа,

так и явными функциями преобразования типов данных для различных числовых

типов. Также имеются обычные операции сравнения числовых значений, которые

записываются следующим образом.

Операция Значение Операция Значение

.EQ. Равно .NE. Не равно

.LT. Меньше .GT. Больше

.LE. Меньше или равно .GE. Больше или равно

Логический тип данных. Булев тип называется логическим (LOGICAL), литераль

ными константами этого типа являются .TRUE. и .FALSE.. Основные булевы опера

ции представлены операциями .NOT., .AND. и .OR.. Булева эквивалентность и ее от

рицание обозначаются как .EQV. и .NEQV. соответственно.

Логические выражения с числовыми данными можно конструировать обыч

ным способом (например, (Ï.LT.7).OR.(B.GE.15)).

Указатели. Более старые версии FORTRAN не поддерживают указателей, по

скольку все данные размещаются статически. Следовательно, построение списко

605

вых структур на языке FORTRAN часто подразумевает использование больших

массивов, где индекс массива служит указателем на следующий элемент списка.

Такая процедура работает эффективно, если все размещаемые структуры одного

типа. Однако при конструировании программ, в которых создаются произволь

ные структуры данных, возникают трудности. В версии FORTRAN 90 указатели

добавлены как объекты нового типа данных.

Указатели объявляются следующим образом:

INTEGER, POINTER :: P

Здесь устанавливается, что P является указателем на целую переменную. rзна

чение P устанавливается равным lзначению целой переменной X следующим об

разом: P=>X.

При этом X должен быть правильным целевым объектом указателя, определен

ным как

INTEGER, TARGET :: X

Использование указателя в выражении равносильно использованию его rзна

чения (то есть происходит автоматическое разыменование указателя):

P1=>X

P2=>Y

P1=P2 ! Òî æå, ÷òî è X = Y

Динамическое выделение памяти для указателя P осуществляется с помощью

оператора ALLOCATE(P1), а освобождается память оператором DEALLOCATE(P1).

Структурированные типы данных

Массивы. Диапазон изменения индексов массива должен быть определен явно —

либо в операторе DIMENSION (который позволяет определять тип компонентов мас

сива через соглашение об именах), либо путем объявления массива и типа его ком

понентов одним из способов, описанных выше, например:

REAL M(20), N(-5:5)

DIMENSION I(20,20)

Если опущена нижняя граница индексов, она принимается равной 1. Массив I

считается INTEGER (целым), если соглашение об именах для I не переопределено

с помощью оператора IMPLICIT. Количество размерностей массива не должно пре

восходить 7.

Для выбора компонентов массива используются индексы, причем синтаксис этой

операции такой же, как и синтаксис вызова функций (например, M(3) или N(I + 2)).

В отличие от большинства языков, в языке FORTRAN массивы хранятся в па

мяти развернутыми по столбцам. Это значит, что матрица сохраняется последова

тельно по столбцам, а не по строкам. Дескриптор не сохраняется вместе с масси

вом; если необходимо, его следует сохранить отдельно. Например, при доступе

к двухмерному массиву A(7, 9) (смотри раздел 6.1.5) формула доступа

l-çíà÷åíèå(A(7,9)) = VO + 7 × S + 9 × E

может быть вычислена транслятором, поскольку во время компиляции известны

все границы массива и VO, S и E известны и являются константами.

Массивы, как и все данные в языке FORTRAN, размещаются статически, за ис

ключением случаев, когда задан атрибут ALLOCATABLE.

П.4. FORTRAN

606 Приложение. Обзоры языков

Символьные строки. В FORTRAN можно определять такие переменные, как

символьные строки фиксированной длины. Например, в FORTRAN 90 операторы

CHARACTER S*10, T*25

CHARACTER(LEN=7) U

определят S и T как символьные строки длиной 10 и 25 соответственно, а U — как

символьную строку длиной 7. Объявление IMPLICIT также можно использовать для

определения по умолчанию длины строки и первых букв в идентификаторе пере

менной типа CHARACTER, если она не объявлена явно как символьная строка. Кроме

того, можно определять массивы символьных строк и функции, значениями кото

рых являются символьные строки. Для объединения двух строк можно использо

вать операцию объединения (//). В операциях сравнения (.EQ., .GT. и т. д.), опре

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

Позиции символов в строковой переменной пронумерованы от 1 до объявлен

ной границы. С помощью следующей синтаксической конструкции из строки мож

но выделить подстроку:

Èìÿ_ñòðîêîâîé_ïåðåìåííîé(ïîçèöèÿ_ïåðâîãî_ñèìâîëà_ïîäñòðîêè :

ïîçèöèÿ_ïîñëåäíåãî_ñèìâîëà_ïîäñòðîêè)

Можно опустить как первый, так и последний указатель позиции символа и ис

пользовать следующие заданные по умолчанию значения:

ïîçèöèÿ_ïåðâîãî_ñèìâîëà_ïîäñòðîêè = 1,

ïîçèöèÿ_ïîñëåäíåãî_ñèìâîëà_ïîäñòðîêè = îáúÿâëåííàÿ_ãðàíèöà_ñòðîêè

Форматные преобразования, обеспечиваемые операциями вводавывода, мож

но также использовать для преобразования символьной строки, хранящейся в пе

ременной или массиве, во внутреннее двоичное представление другой перемен

ной или массива числового или логического типа (или наоборот). Используются

те же операторы READ, WRITE и FORMAT, но теперь значением именованного параметра

UNIT является имя переменной. Например,

READ (UNIT=A, FMT=200) M, N

определяет, что данные должны читаться из символьной строки A (как если бы

переменная A была внешним файлом, преобразованным во внутреннее целое пред

ставление) и сохраняться в переменных M и N.

Определяемые пользователем типы

В версии FORTRAN 77 нет механизмов создания пользовательских типов. Все типы

заранее определены языком. В FORTRAN 90 появился оператор TYPE. Например,

для генерации строк переменной длины можно определить тип VSTRING:

TYPE VSTRING

INTEGER :: SIZE

CHARACTER(LEN=20):: LEN

END TYPE VSTRING

Объявления переменных нового типа похожи на объявления переменных дру

гих типов в FORTRAN 90:

TYPE(VSTRING) :: MYSTRING

Заметим, что символ % используется в качестве селектора поля: MYSTRING%SIZE

или MYSTRING%LEN.