integ er n a**n n- a*a*a*..*a
1.3.2
True False . . , . - .true. - "" .false.- "". (. . 1.4):
1.4
90 | |||
.LT. | < | a. LT. b | |
.LE. | <= | a. LE. b | |
.EQ. | == | k. EQ. m | |
.NE. | /= | k. NE. m | |
.GE. | >= | a. GE. b | |
.GT. | > | a. GT. b |
. .
(. . 1.5):
1.5
.NOT. | .NOT. a | ||
.AND. | a. AND. b | ||
.OR. | a. OR. b | ||
.EQV. | a. EQV. b | ||
.NEQV. | a.NEQV. b |
. NOT. , . , . , a .and..not. b.
1.6.
x | y | x.and.y | x.or.y | .not.x | x.xor.y | x.eqv.y | x.neqv.y |
:
1 ;
2 ;
3 ;
4 .
:.
a<x<b => x>a Ùx<b.
x>a.and.x<b.
a=2, b=4, x=3 x=1 x=5.
-¥<x<+¥ =>x>a Úx<b.
x>a.or.x<b.
a=2, b=4, x.
X<a x>b =>x>a Úx<b.
x<a.or.x>b.
a=2, b=4, x=3 x=1 x=5.
1.4 .
, , . PROGRAM. :
|
|
PROGRAM _
, , , :
PROGRAM SUMMATION
PROGRAM QUADRATIC_EQUATION_SOLVER45
- 31 . :
END PROGRAM _
_ .
, , , , . ( ). . .
:
1. ;
2. ;
3. .
:
Program itit
Integer:: a=10, b=20
End program init
Program . End .
, a b 10 20.
. :
Program sum
Integer a,b,c
A=100
B=20
C=a+b
End program sum
. , , =. , = =. a=100 , 100. , a b 100 20. a b, 120.
, /.
read ().
Integer a
Read (*,*), a
, . a. .
Print () Write() .
Hello!. . , .
Print*, Hello!
Write(*,*),Hello!
, . Print Write . , ().
:
;
$ - ;
/ - ;
// - ;
Nx n .
In n
Fk.n k , n
Ek.n k . 4 , ( e+04), 1 , 1 n .
|
|
An - n
Ka k .
L T (true - ) F (false - ).
, . . , .
:
Write(*,(a3)), Hello!
:
Hel
Write(*,(a10)), Hello!
(^ - ):
^^^^ Hello!
Write(*,(L)), 5>3
T
, format (). , :
Write(*,100), Hello!
100 format(a10)