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

12

a), !

( 7/4 => 1);

b), ! *-

( 7./4. => 1.75);

c), , *-, , -

( ) -

( 7./4 => 7./4. – * ); -

. +* !:

(7./4 => 7./4. => 1.75).

4.a**b – ! ab

b:

a)integer b b- a;

b) b a>0 ab = eb ln a . !! & ! * + !.

! "

1.# ! ! ( -

, "=2πR : Circle=2*Pi*Radius).

2.6 * !, -

: +* -

, .

3.+ , .

4.# $ % – . 8.3.

#

#

&(5: x=3.3

+ 2x − 3 + (x + 1)

x 2 − 9

y1 =

x 2

;

y2 =

x + 3

(

)

x

2

− 2x − 3 +

2

−

9

x − 3

x − 1

x

( )

x > 3

' +* ! :

s1 = x2 − 9

5 ! y1:

yd = x2 − 2x − 3 + (x − 1)* s1

Program Formula ! : %

! (%, ) & $ & & Implicit None ! $ $' $

Real::x=3.3, y1,y2,yd,s1 ! [pro1] x ( ) ! <== z1, z2 - $'

13

Open(6,file=’result.txt’) ! «open» -

![pro2] : Write(*,*)’ =?’ Read(*,*)x

![pro3] Open(1,file=’input.txt’) – x % &1 Read(1,*) x

Write(6,*) ’at х=’,x

s1 = Sqrt(x**2-9) ! %

yd =		x**2 - 2*x - 3		+ (x-1)*s1 ! y1
y1	= (x**2 + 2*x		- 3	+ (x+1)*s1) / yd
Write(6,*) ’y1=’, y1
y2	= Sqrt(x+3) / Sqrt(x-3)
Write(6,*)’y2=’,			y2

! OK: y1 y2 6 – 7 %

End Program Formula ! <== – $ z1,z2

' [pro1] Real:: x=3.3 , [pro2], [pro3], -

.

! :

-[pro1] - 3 ! '/;

-[pro2] - 3 ! '/ , ;

-[pro3] - ! (3 ); & ! ! # (&(5) # # #. &-

! , [pro1]. [pro1] & , y1 y2 6 - 7 .

[pro2] & ! # # #:

a)! # Write(*,*) ’x>3 x=?’

b)! # Read(*,*) x

c)! ! +* y1 y2.

[pro3] ! &(5, in.txt :

a)! in.txt # Open(1,file=’in.txt’);

b)! , ! 3

do k=1,3

−# in.txt;

−! y1 y2, z1 z2;

−! #;

enddo

$ ! %

1.- ?

) ; ) , ! program;) .

. . . "

!, . ?

2., !

! 90:

14

) # ; ) fortran; ) –

90.

3./ ! ?

) ! ; ) ! «//» ; )

. ' .

4./ # ! + ? '

# .

5." * + 6420 !

? 1 , . !?

6./ ! 19+4i ?

7./ # , ?

	) F1 ) Y(X) )	X_1 ) (5	) Z.8 ) 3J ) β4
8.	/ !	! + sinx ?
	) sinX ) sinx	) sin(x)
9.	& M ! :
	Integer :: N=1, M;		M = 1/((2*N+1)*(2*N+2))

10.+ ?) ; ) . 3 .

11.& ! ! :

real:: А=2.0, B;

B = -A**2

12.! :

a) 4 sqrt(4);

b)	* !		4		sqrt (4,0) ;
	!			sqrt (-4);
c)		− 4

d)! − 4

e)! − 4

sqrt (-4.0);

sqrt (-4,0) .

13.& ! * + !, ?

14.5 ! – +, π,

e, ! c = 3.108:

) ; ) , !+.

15.& # ! C ! :

real:: А=2.0, B,C; B = 1/2*A;			C = 1/(2*A)
16. / 3 − 1/ 8 ! ?

* . ' ! ! : (9), (11), (15), (16) -

! !+.

# $& !

1. (! -

): 24.0; 2.4Е+2; 0.24Е-3

2.b=4.0 – * . - ! -

: 1/2*b; 1/(2*b); b**(1/2); 1/b*2 .

15

3.

5 x

x**1/5 – ! .

4.

5

−5 3sin x + 4cos2 x2 −

1

2x

5.

-

# m, n, k, c, c1 -

? # ! #.

integer:: m, n, k;

real:: a=7.2, b=1.8, c, c1

m=a;

n=b;

k=a/b+b;

c = a/b+b;

c1 = m/n+b

% 3.

$' ! « »

7

(

y1

= (a

− b

− c

a + b − c

;

y2

=

(a + c)

− b

;

a=8.6

2

2

2

+ 2bc):

2

2

1

b=1.3

a + b + c

c=3.3

(3π − 2α) cos

(5π +2α);

1

1

5

z1 = 2 sin

2

2

α=0.75

z2

=

−

sin

π − 8α

4

4

2

y1 =

a2 − b2

−

a3 − b3

y2

=

ab

a=3.5

;

;

a - b

a2-b2

a + b

2

b=-2.1

cos2α

1

α=0.1

z

=

z

=

sin2 2α

ctg

2 α − tg 2 α ;

1

2

4

2

2

+ a a

2

− b

2

−

2

− a a

2

− b

2

a

a

2

y1

=

y

=

( a +

b )

a=3.5

a

b

;

2

;

a − b

3

b=0.72

2 a3b

+

−

2

b

a

α=0.62

1

z1

= 1−

sin 2 2α + cos2α ;

z2

=cos2 α +cos4 α

4

− 3a 2 + 4 + (a 2

− 4)

(a − 2)

a 2 − 1

y

=

a 3

y

=

a + 1

(

)

1

a

3

+ 3a

2

− 4 +

2

− 4

a

2

−

;

2

(a + 2) a − 1 ;

a=4.3

a

1

4

=cosα + cos2α + cos6α + cos7α ;

α=0.43

z1

z2

= 4cos α cos

5

α cos4α

2

2

16

7 (

(m-1)

− (n − 1)

y1 =

m

n

;

y2

=

m − n

;

m=0.4

m3 n + mn + m 2 − m

m

5

n=2.1

tgα − secα

α=0.43

z1

=

;

z2

= tgα secα

cosα − ctgα

1 + a + a

2

1-a + a

2

−1

(

2 )

4 − a

2

y1

=

+ 2 −

5 − 2a

;

y2

=

;

a=15.1

2a

+ a

2

2a-a

2

2

6

α=1.23

π

z =cos α + sin α + cos 3α + sin3α ;

z2

= 2

2 cos α sin

+ 2α

1

4

+ 2

a

2

a − 2

1

y =

a

−

+

;

y

=

;

2

a=12.3

1

2a

2a + 2

a + 2

a +

2

7

a − 2a

α=0.43

sin 2α + sin 5α − sin 3α

z1

=

z

= 2sin α

;

cosα + 1− 2sin 2 2α

2

y

=

x

−

y(x − y)2

y

=

1

x=3.2,

;

2

;

2

2

4

4

1

x

+ y

x

− y

x + y

8

y=0.8

3

α

11

α

α

= cos

2

π −

− cos

2

π +

=

2

α=0.81

z

z

sin

1

8

4

8

4 ;

2

2

2

2

2

y1

=

x 3 + 2 3 xy + 4 y 3

y2

=

1

;

;

x=1.4

(3

x 4

− 8 y 3 x ): 3

xy

3

x

− 2

9

y=2.8

y

α=0.66

= (cosα − cosβ)2

− (sinα − sinβ)2

z1

;

β=0.82

α − β cos(α + β)

z2

= −4sin 2

2

y1 =

+

(2a + 1)3

(2a − 1)3

;

y2 =4a − 4a2 − 1 ;

a=2.3

4a

+ 2

4a2 − 1

10

π

α=0.75

sin

+ 3α

5

=

2

3

z

z

= ctg

π +

α

1

− sin(3α − π) ;

2

1

4

2

17

7 (

y1

=

(

1

)

+

(

1

) −

a 2 + 2

y2

=

-1

a=0.7

1− a3

;

;

+

a

2

+ a +

1

a

11

x=0.44

2 1

2 1- a

1

y=0.82

z1 = cos

4

x + sin

2

y +

sin

2

2x

−1 ;

z2 = sin(y + x) sin(y − x)

4

y1

=

a + 1

:

1

y

= a −1;

;

+ a +

a 2 -

2

12

a=5.1

a

a

a

a

α=0.1

z1 = sin α − sin3α + sin5α ;

z2

= tg3α

cos α − cos3α + cos5α

(a 2 − b 2 ) (3

− 3

)

a=5.3

y1

=

a

b

y2 = a − b ;

;

13

b=2.1

3 a 4

+ 3 ab3

− 3

a 3b − 3 b 4

α=0.75

z1 = cos4α − sin4α ctg2α ;

z2

= cos 2α − 2cos2 α

1

+ ab −1

=

a 2

−

a

5

a=1.7

y1

;

y2

= a 6 ;

1

1

1

2

3

−

−

−

−

b

3 − a

14

b=2.8

a

6 b

3 + b

3

α=0.22

z1

= cos4α tg2α − sin4α ;

z2

=

2tgα

tg

2

α −1

4m(m +

)2

y1 =

m2 −1

y2

=

1

m=1.8

(

)4

;

;

m2 −1

m

2

−1

−1

15

α=0.43

m +

tg2α + ctg3β

tg2α

β=0.58

z1

=

z2 =

;

ctg2α + tg3β

tg3β

x=5.3

y1 =

x +

x 2 − 4x

−

x −

x2 − 4x

;

y2

=

x2 − 4x ;

16

α=0.3

x −

x 2 − 4x

x +

x2 − 4x

β=0.1

z1 =sin(α + β) sin(α − β) sec2 α sec2 β ; z2

= tg2 α − tg 2 β

b 2 − 3b − (b − 1)

y1

=

b 2 − 4

+ 2

b + 2

;

y2 =

1-b

;

b − 2

b=4.8

b

2

+

3b −

(

+

)

b

2

− 4 + 2

1 + b

b

1

17

α=0.23

cos4α + 1

z

=

z

=

1

sin4α

ctg α − tg α ;

1

2

2

18

7 (

y =

4

+

1

− 2 +

1

+

1

+

1

4x−1

1

x 4x−1

4x 2 ;

x1=2.8

x ≤4

y1 y2 ;

x>4

y1 y3

18

x2=4.8

y2

=

5

;

y3

=

2x − 3

α=0.97

2

x

x

2

2

7

2

9

=

sin 4α

z

= sin

π − 2α

− sin

π − 2α

;

z

2

1

8

8

2

x3 + xy 2 − x2 y − y3

x=1.4

y1 =

;

y2

= −(4

x + 4

y );

4

y5

+ 4

x4 y − 4

xy 4

− 4

x5

19

y=2.8

α=0.5

cos 2 α − cos 2β

z

= ctg2 α − ctg2β ;

z2

=

β=0.34

1

sin

2

α sin

2

β

2

2

1+a

1+a

1+ a

1− a

y1

=

−

−

−

;

a=5.1

1+a 1

+ a

1+a 1−

a

20

16a

a

α=0.3

y2

= (1 − a 2 ) (a − 1) ;

z1 =(1 + sec2α + tg2α) (1 − sec2α + tg2α);

z2

= 2 tg 2α

1

y = ( 1 − x 2

+ 1):

+

1 − x

y2 = 1+ x ;

1

1+x

;

21

x=0.3

cos(3π − 2α)

α=0.77

z1

=

5

5

;

z2

= tg α − π

2 sin 2

π + α

4

4

2

a

1

a − 1

a + 1

1-a

y

=

−

−

y

=

a=12.3

1

2

2

a + 1

a −

1

;

2

a

;

22

a

α=0.24

sin2α −sin3α +sin4α

=

= tg3α

z1

;

z2

cos 2α − cos3α + cos 4α

y1

=

(2a − b)2

+2b 2 -3ab

:

4a 2 − 3ab

y

= a-b

a=2.3

;

;

2a -1

+ b 2

2 + ab 2

2

23

b=1.89

α

α

1

(sin 2

α − 4)cos α

α=0.23

z

= sin

6

− cos6

;

z

=

1

2

2

2

4

19

7 (

y1

=

2b + 2

b2 − 4

y

=

1

24

b=3.8

b2 − 4 + b + 2

;

2

b

+ 2 ;

α=0.28

− cos4α

2

15

2

17

=

z

= sin

π −

2α

− cos

π −

2α

;

z

2

1

8

8

2

−

1

−

1

2

−

1

2

y =

(1

− p 2 )

2 − (1 + p 2 )

2 + 2(1 − p 4 )

2

;

y

=

;

2

1

(1 − p 4 )

25

p=0.7

α=0.54

8cos

2

2α

=tgα + ctgα + tg3α + ctg3α ;

z2

=

z1

sin 6α

y

=

(2m + 3)2

− 24m

1

3

;

2

m −

m1=0.47

m

m ≤ 1.5 y1 y2 ;

m > 1.5

y1

y3

26

m2=2.47

= −

y3 =

m

α=0.1

y2

m ;

z1

=

cosα + sinα

;

z2 = tg 2α + sec 2α

cosα − sinα

y1

=

x4 − x3 − x + 1

x

− 3

;

y2 = x 2 + x + 1 ;

x=4.3

3

2

27

x

-5x +7x-3

α=1.23

sin4α

cos2α

3

=

z

z

= ctg

π

− α

+ cos2α ;

1

1 + cos4α

1

2

2

m 2 − m − 6 − (m + 3)

m 2 − 4

= −

m=2.3

y =

;

y

m+

2

;

1

m

2

+ m − 6 −

(

)

m

2

− 4

2

m-2

28

α=0.23

m − 3

2 α -β

β=1.2

z1

=(cos α − cos β)

2

+ (sin α − sin β)

2

z2

= 4sin

;

2

1

1

1

− 2

y1

=

1+2a 4

− a 2

+

a 4

=

1

a=6.3

3

1

1

2 ;

y2

;

4

−

1

1-a + 4a 4 − 4a 2

a

α=0.1

4

29

a

−1

β=0.7

sin α + cos(2β − α)

1 + sin 2β

z1 =

z2

=

;

cos α − sin(2β − α)

cos 2β

20

7

(

=

m5 + m 4 3 2 +

3 4m9

y

;

1

m3 − 1

− 1

m1=0.65

m>1

y1 y2 ;

m ≤1

y1 y3

m3

30

m2=1.65

y

=

(

2

3

3

)

2

m −

y3 = − m

+ m

2 +

4 ;

α=1.43

2

z

=

1− 2sin 2 α

z

=

1− tgα

2

1

1+ sin 2α ;

1+ tgα

2.2. If Do

5 # ! ! $ . 5 (x,y) + !.

5 , * # .

1.0 ! , :

# .txt;

b)!, +*

10-20% , . #

# # # $ .

2.( ! ! ! -

Agrapher.

#$ $

1.6 # ! - ! :

a)i- ! !

yi=fi(x); ! Agrapher;

b) ! fi(x); < -

>< %> ! .txt;

c)! . Agrapher ;

! : – , !;

d)# ! Contur.agr ! ! -

.

2.& ! , +* + -

! !. ' ! ! !

AGrapher.

3.! ! ! ,

21

# # :

a)! 10-20% !

# ;

b)– 20-40 . & ! : ! x y, x y.

3.( ! :

a)! , ! ;

b)! + ,

! IF;

c)! (x, y) Agrapher:

−# – in.txt,

−– out.txt.

4.( ! Agrapher:

a)! # Contur.agr;

b)! in.txt out.txt;

c)! in.txt out.txt ; ! -

, +* ;

d)3 ! + ..

1.0 , .

2., , .

3., .

4.% # ( ),

, , -

, .

5.# .

6.2 – # .