Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Современный Фортран_учебник

.pdf
Скачиваний:
37
Добавлен:
23.03.2015
Размер:
1.61 Mб
Скачать

62

$

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

!: # . !

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., , .