Методичка по Информатике Ч_3

«»

()

153 01 04 «

»

3

3

2008

004(076.5) 20.15

74

ISBN 978-985-_____________ (. 3).

() -

. -

, MS DOS, Microsoft Fortran Power Station 4.0 - Windows -

.

«

», 10 , 2005 2007 .

ISBN 978-985-_____________ (. 3). © , 2008 ISBN

2

.

1. .

2. () , -

.

3. -

.

4. () - .

,

5. - , :

1);

2);

3);

4);

5)-;

6);

7).

6. - .

.

7. , - .

8.

,

,

.

9.

, , -

, !

!

.

3

21

, -

. -

.

X Y

yi f (xi ) x1 , x2 , , xn , -

. -

, ,

, -

.

-

.

x ,

xi , x j ; yi ;

4

( x ; x1 , y1 ; x2 , y2 ; x3 , y3 )

x1 , x2 x1 , x3

( 1 2 . 21.1) (21.3). y2 y3 ,

y2 , y3 .

x2 , x3 y2 , y3 (-

3, . 21.1), y , x ,

n

.

. , n 1 - yi , -

. , -

- DO.

1

y , -

(. 21.1), x 3 -

.

21.1

6

(21.3) -

.

C

DIMENSION X(20), Y(20)

READ (5,*) N, X1, (X(I), Y(I), I=1,N) DO 2 J=1, N1

DO 3 I=J+1, N

Y(I)=((X1X(J))*Y(I)(X1X(I))*Y(J))/(X(I)X(J)) 3 CONTINUE

2CONTINUE Y1=Y(N)

WRITE (5, *) Y1 STOP

END

:

n 3 y x 3 39 .

,

xi yi .

f x1, x2 , ..., xn , n .

A4 x x1 x x2 x x3 ,

.

C

DIMENSION X(20), Y(20)

READ (5,*) N, (X(I), Y(I), I=1,N)

DO 2 J=1, N

C=Y(J)

B=X(J)

DO 2 I=J+1, N

Y(I)=(Y(I)C)/(X(I)B)

2CONTINUE

WRITE (5, *) I, (Y(I), I=1,N) STOP

END

9

:

2.

:

A1 6 ; A2 1; A3 7 ; A4 0 .

(21.10)

:

, -

.

-

, -

. ,

.

10