Томский государственный университет систем управления и радиоэлектроники
Опубликован: 01.11.2012 | Доступ: свободный | Студентов: 637 / 74 | Длительность: 06:01:00
Лекция 2:

Типы данных

< Лекция 1 || Лекция 2: 1234 || Лекция 3 >

Преобразование числовых типов

а – целого, вещественного или комплексного типов.

Оператор write также используется при работе с файлами, имеется возможность обработки ошибок.

Операция присваивания

k = k+1  ! увеличение значения на 1
k = k-1  ! уменьшение значения на 1
k = 2*k  ! увеличение в 2 раза
k = k/2  ! уменьшение в 2 раза
k = -k   ! смена знака

s = s+k  ! увеличение s на k
s = s-k  ! уменьшение s на k
s = s*k  ! увеличение s в k раз
s = s/k  ! уменьшение s в k раз

tmp = a ! поменяли местами значения переменных a и b
a = b
b = tmp

Логический тип

тип длина(байт) значения
logical(1) 1 .TRUE. .FALSE.
logical(2) 2
logical(4) 4
logical(8) 8
! ---------------------- переменные
logical(4) :: st = .FALSE.
logical    :: res = .TRUE.

Переменные-флаги, проверки наступления событий, конструкции if.

Операции отношения

Операция Имя
> или .GT. больше
&lt; или .LT. меньше
== или .EQ. равно
/= или .NE. не равно
>= или .GE. больше либо равно
<= или .LE. меньше либо равно

Операция AND

Логическое умножение, конъюнкция.


(x>-5).AND.(x<5).AND.(y>-3).AND.(y<3)

Операция OR

Логическое сложение, дизъюнкция.


(x>-5).AND.(x<0).AND.(y>0 ).AND.(y<3).OR. &
(x>0 ).AND.(x<5).AND.(y>-3).AND.(y<0)

Операция XOR

Логическое исключающее "или", строгая дизъюнкция.


(x>-5).AND.(x<5).AND.(y>-3).AND.(y<3).XOR. &
(x>-2).AND.(x<2).AND.(y>-1).AND.(y<1)

Операция NOT

Логическое отрицание, инверсия.


.NOT.((x>-2).AND.(x<2).AND.(y>-1).AND.(y<1))

Операции эквивалентности


(x>-5).AND.(x<5).AND.(y>-3).AND.(y<3).EQV. &
(x>-2).AND.(x<2).AND.(y>-1).AND.(y<1)

Символьный тип

Объявления переменной для хранения 1 символа.

character key
character(1) ch
character(LEN = 1) symbol

Объявления строки для хранения 100 символов.

character(100) str
character word*100
character(LEN = 100) path

Имена файлов, обработка клавиш, внутренние файлы, любая текстовая информация.

Объявления символьных констант.

character, parameter :: key = 'A'
character(1), parameter :: ch = "Q"
character(100), parameter :: str = "C:\"
character(LEN = 11), parameter :: path = "D:\data.txt"

Присваивание символьных значений.

str = ' It''s very good! '  ! '' 1 апостроф
adr = '"TEXT"'  ! "TEXT"

С - строки

Cимвольная константа заканчивающаяся символом C.

character(100) cstr
cstr="Fortran & C++"C   ! cstr – С-строка

Управляющие символы в С-строках:

\\ – слеш;

\а – звуковой сигнал;

\b – на 1 символ назад;

\n – новая строка;

\r – возврат каретки;

\t – горизонтальная табуляция;

и другие.

Операции со строками

// - конкатенация (сцепление, соединение) строк.

character a*5, b*2, c*20
...
a = 'AAAAA'
b = '..'
c = a//b//a  ! AAAAA..AAAAA

Обращение к подстроке, нумерация с единицы.

character (100) str, substr
str = '1234567890'
substr = str(1:3)   ! 123

Процедуры обработки строк

Процедура Описание
len(str) длина строки
len_trim(str) длина строки без хвостовых пробелов
index(str,sub) номер первого вхождения строки substr в строку str
iachar(ch) ASCII-код символа
achar(code) возврат символа с кодом code
getcharqq() возврат нажатого символа
peekcharqq(x) определение нажатия клавиши

* Полный перечень, тип результата, тип аргумента и подробное описание функций см. HELP.

** использование процедур требует подключения модуля iflib use iflib ! Intel Fortran Library

< Лекция 1 || Лекция 2: 1234 || Лекция 3 >