
Современный Фортран_учебник
.pdf62
$
1.0 .
2.- ? / !
? ! ?
3./ ?
4./ ! +* + ?
5. |
- + ? ! |
|
|
? |
|
6. |
5 ? 1 ! |
, |
|
? / + |
! |
+* + ?
7.- % % ? '
! # # ,
.
8./ + ! !
? ' ! #
.
9.6 ?
10.- ? ,
+
.
# ! $& !
1.! %: ! ! #
. . 1 !- # ., ! ! +. !
! + . - ! . 0 -
# , # +.
(- % $ .
2.! : ! ., # -, * -. ! : !
8×8. * # !.
(- $ .
3.* ! ., # -
0.5 ( where). / ! !
! where?
4.!
Integer i
Real, dimension(7,4):: А

63
write(*,10) ’Массив’,(A(i,:), i=1,4) 10 Format(a/(4F10.2))
% 14.
$& ! «#»
1
!1: ! . # -
.true., ( .false.)
!2: ! . #
.true., ( .false.)
!: ! , # -
A B !, (AB)T = ATBT. ( #)
.
1 !, + Transpose, -
2 – + Matmul.
' * ! +
* !-
. ' * ! .
2
!%: ! # .
, # ! ! .-
. 1 # .,
! ! +. ( -
.
!: ! +
, ! . 0 -
# .
3
!: # . !
2×N, . -
, N – # ..
" ! . , !
« » ! « » . 4 !, « » . 2 4 -
.
!: ! ! # -
, # . # .

64
4
b
! %: ∫ f (x)dx f(x)
a
! : ! f (x) = 2x4 − x2 +1
[a, b] = [–1, 1.4] n1 = 0,2 n2 = 0,04. '
+, ! . ! -
, . !-
! Agrapher.
5
!: ! , !
. # « -
» , « »
!. 4 !, « » .
2 4 .
/ # ! , !
# . .
!: ! ! #
# , + -
# ..
6
!%: ! n .
, , # . 5-
n ! ! + - +.
!: ! ,
! +.
' * ! , -
+ ! .
! , Up, Down, Left, Right ( , Stop).
7
!: # . -
(! ).
# .true., !
( .false.).
!: ! , 10 -
, . # -
3×10 ( + ). - ! ! .

65
8
! %: ! * !
n−1 |
( yi+1 |
+ yi ) |
|
|
S = ∑ x |
, n – |
|||
|
2 |
|||
i=1 |
|
|
||
Y , |
x – - |
|||
. |
|
|
|
! : !
y = exp(–x/5) [-2, 2]:
a) x1 = 0.1 b) x2 = 0.01.
! . # , -
! ,
.
9
!: ! . #
.true.,
( .false.)
!: # A B V - !, (A+B)V = AV+ BV. .
!, + Matmul.
' * !
* !-. ' * ! .
10
! %: !+ ε !
ex # # x ε. ! -
%.
! : ε !-
+* . ! +, ! -
ex, xn xk x (10 -
). ( ! ex,
.

66
11
! : ! +
, # -. :
+
|
n |
|
n |
|
|
∑xi |
|
||
|
|
∑[xi − M (x)]2 |
||
M (x) = |
i =1 |
D(x) = |
i =1 |
|
n |
||||
n |
||||
|
|
! : *!+ #
RANDOM_NUMBER ! # # -
X Y, # # [0; 10].
! , . # !,
D(X+Y) = D(X) +D(Y). ' * -
! ! .
12
! %: !+ ε !
cos x # # x ε. ! -
% (! ! + ).
! : 5 ε !-
+* . *!+ ! -
cos x, xn xk x (10 -
). ( ! cos x, -
.
13
!1: ! ( )
# . # .true., -
( . false.)
!2: ! – #
. # .true.,
( . false.)
!: ! .
( 1 ! + Dot_product, -
2 – + Matmul.
' * ! ! -
* . '
* ! .

67
14
b
! %: ! ∫ f (x)dx
a
f(x).
! : ! f (x) = 2x3 −3x+4
[a, b] = [–1.5, 1.5] n1 = 0,2 n2 = 0,04. '
+, ! . ! -
, . !-
! Agrapher.
15
!1: ! + -
! # ! .
.
!2: ! + -
« !».
!: ! .-
.
!: *!+ #
RANDOM_NUMBER ! , - # [0,10]. & ! , !
. +. .
! .
16
!% 1: + ! -
+.
!% 2: 3 ! # + ,
.
!: *!+ #
RANDOM_NUMBER ! # ,
# # [0; 100]. & ! -
1, ! . +.
. ! + 2, 3 ! . . -
3 .

68
17
!: ! . # -
.true., ( . false.).
!: # A, B C !,
(A+B)C= AC+ BC. ( #) .
!, + Matmul.
' * ! +
* !-
. ' * ! .
18
b
! %: $ (") ! ∫ f (x)dx -
a
f(x).
1
! : ! f (x) = sin2 x
[a, b] = [1.5, 2.5] n1 = 0,1 n2 = 0,02. '
+, ! . ! -
, . !-
! Agrapher.
19
! : ! , * ! -
! . / -
! , -
( x, -
– y).
! : !
!, # !, !
, ! ( , - * !).
+ +.
20
!%: ! (.true. .false.), - +*, ! ! . -
! ! .. (
# . .
!: ! +
. ! *, -
.

69
21
! : (4) ! -
! ! y = (x – 0.5)2 + 1.3e–0.15x + 1.1e–1.5x
[a, b] + !+ ε. #
.true., ! * ( . false.).
Agrapher ! !
# .
! : !
# , + + ! 10-3 10-5. ' ! , .
! .
22
! %: ! B(m,n) #
|
|
|
|
n |
|
− ai j |
|
|
|
|
|
∑ai k |
|
||
A(m,n) |
b |
= |
k =1 |
|
|
|
|
|
|
|
. |
||||
i j |
|
m |
|||||
|
|
|
|
∑ak j |
|
− ai j |
|
|
|
|
k =1 |
|
|
|
|
! : ! |
# |
! +. # ! +*
.
23
!: [a, b] ! + +, +
, n ! . .
!: ! , ! -
, y = e −0.3 x − e −1.5 x + 3,8 [–1, 5]
n1 = 20 n2 = 40. ! !. ! -
! Agrapher,
b
D = ∫1 + [ f '(x)]2 dx .
a
24
!%: ! . , ! -
. ( ! , #
..
!: ! + , -
! A(6,6),
. ! # .

70
25
!1: ! ! #
[1; N], ! # .
!2: ! ! #
[1; N], ! « $ ».
!: ! ,
# 200 ! . -
! ! .
26
! %: ! ! # .
! M, ! -
+ . (i1,j1) (i2,j2).
! : # #
! ! . ! +
!, +.
# ! # .-
! .
# # # !
. # .
27
! : ! !-
! y = (x – 0.6)3 – (x + 4)2 + x + 26.8 -
[a, b] + !+ ε. # -
.true., ! * ( . false.).
Agrapher ! !
# .
! : !
# , + + ! 10-3 10-5. ' ! , .
! .
28
!%: ! # ! # + -
# . . 1 ! #
# ., ! ! +.
!: ! + -
, . +* *
.

71
29
! : 0 , # ,
kx+b, !; -
! 2×3 ( , -
x, – y).
# .true.,
! ( .false.)
! : . #
!.
' #, ! ( -
. , # -
!).
+ +.
30
! %: ! ! # -( , -
x, – y).. 9
! . , ! « -
» . 4 !, « »
. 2 4 -.
! : ! + #
. .
2.7./ ' ! '
1.! , :
a)# In.txt #
! +* Out.txt;
b);
c), !
* ;
d)Out.txt !
# (! !
! ).
2.Container – # 3 .
3.ProModule – # 3 .
.
1.0 ! .
2., , .