Fortran тіліндегі енгізу/шығару операторларының классификациясы.Атаулы және атаусыз тізіммен басқарылатын енгізу/шығару. Форматталған енгізу/шығару.
енгізу/шығару операторлары мәліметтерді түрлендіреді. Файлдарды орналастыру операцияларын орындау үшін қосымша мүмкіндіктер береді.
енгізу/шығару операторлары құрылымы бойынша келесі түрге ие:
READ(n,m) <айнымалылар тізімі>
WRITE(n,m)<айнымалылар тізімі>
Файылды ашу үшін қолданатын оператор
OPEN( n, FILE='<файл аты>'),
Енгізілген екі санның суммасын файылға жазатын есептің программасын жазайаық
real a,b,c
write(*,*) 'Enter two numbers, please:'
read(*,*) a,b
c=a+b
open(12,FILE='result')
write(12,*) 'RESULTS: '
write(12,*) a,'+',b,' is ',c
close(12)
end
Fortran тіліндегі шартты оператордың құрылысы.
1. Арифметикалық
if (арифм. выражение) L1,L2,L3
арифм. выражение – после вычисления – число!
Орындалу барысы:
жақшадағы арифм. выражения мағынасын есептеу;
егер мағынасы 0ден кіші болса –> goto L1
егер мағынасы 0ге тең болса –> goto L2
егер мағынасы 0ден үлкен болса –> goto L3
2. Логикалық
Шарттың ақиқат болған жағдайдайында орындалады.
Жазылу формасы:
if (логич. выражение) действие
логич. выражение – в результате может принимать значения .TRUE.,.FALSE.
орындалу барысы:
жақшадағы логич. выражения мағынасын есептеу;
егер мағынасы == .TRUE. -> действия орындалады.
действие – кез келген орындаушы оператор ( if, for … басқасынан)
мысал :
logical l1
l1=a<0
if (l1) print *,’value of a is negative’
if (логич. выражение) then ! 1 оператор ……… оператор else ! 2 оператор ……… оператор endif |
|
IF... THEN...END IF шартты операторлары. Program fw integer::A,B print*,'A=' read*,a print*,'B=' read*,b If (a>b) then print*,'A>B' end program IF...THEN...ELSE...END IF шартты операторлары. Program gf integer::A,B print*,'A=' read*,a print*,'B=' read*,b If (a>b) then print*,'A>B' else print*,'A<B' end program
20. Fortran тіліндегі циклді оператордың классификациясы. Параметрмен, алғы шартпен және соңғы шартпен жазылатын циклдер.
DO цикл операторы DO және CONTINUE ореаторлары арасындағы операторлардың бірнеше рет орындалуы үшін қолданылады.
Рисунок 1.2. Блок-схема операторов цикла с предусловием (а) и постусловием(б); U – логическое выражение..
Цикла операторы DO келесі түрге ие:
DO N[,] I=M1, M2, M3
Бірден n ге дейінгі сандардың суммасын есептеу.
program SUMN1
integer :: SUM = 0 !Инициализация суммы
read*, N
do I = 1, N
SUM = SUM + I
end do
print *, “SUM=”, SUM
end
Вычисление суммы целых чисел в цикле с предусловием.
program SUMN4
integer :: SUM = 0, I=0 !Инициализация суммы и переменной цикла
read*, N
do
if (I == N) exit
I=I+1
SUM = SUM + I
end do
print *, “SUM=”, SUM
end