2. Рекомендуемая литература

1. Г.Г. Калиш Основы вычислительной техники. – Москва “Высшая школа”. 2000. с 269

2. Дж. Ашкрофт, Р. Элдридж, Р. Полон, Г. Уилсон Программирование на Фортране 77. – Москва “Радио и связь”. 1990. с. 265

3. О.В. Бартеньев Современный Фортран. – 2-е изд., испр. - М.: “Диалог - МИФИ”, 1998г.- 397с.

4. О.В. Бартеньев Фортран для студентов. М.: “Диалог - МИФИ”, 1999г. 397 с.

5. В.Е. Краскевич, К.Х. Зеленский, В.И. Гречко Численные методы в инженерных исследованиях. – Киев, «Вища школа». 1986. с. 261

6. А.И. Плис. Н.А. Сливина Лабораторный практикум по высшей математике. – Москва “Высшая школа” 1983. с 192

7. Вычислительная техника в инженерных и экономических рас­четах / Под ред. А.В.Петрова. - М.: Высшая школа, 1984. - 320 с.

8. Сапрыкина Л.Т., Фомина А.А. Методические указания к выполнению лабораторных работ «Программирование на ЭВМ и численные методы». – Николаев: НКИ, 1985. – 72с.

9. Ю.В. Петропавлов, Ю.Г. Тендитный Избранные вопросы вычислительной математики. Херсон, филиал УГМТУ, 1999.

Примечание 1: Варианты возможных решений заданий 5.6 и 6.4.

Раздел 5.6 ; задание 2)

FUNCTION SINUS(X, EPS)

* EPS–точность вычислений

A=-X**2

B=1.

C=X

S=0.

2 S=S+C

B=B+2.

C=C*A/((B-1.)*B)

IF (ABS(C) - EPS) 3, 3, 2

3 SINUS=S

RETURN

END

Раздел 6.4 ; задание 1)

* Раздел – SUBROUTINE,

* Пример использования

* вложенных циклов.

PROGRAM LUCK

NC=0

DO 2 I=1,10

DO 2 J=1,10

DO 2 K=1,10

DO 2 L=1,10

DO 2 M=1,10

DO 2 N=1,10

IF(I+J+K-L-M-N) 2,1,1

1 NC=NC+1

2 CONTINUE

PRINT 3, NC

3 FORMAT ( ' ЧИСЛО СЧАСТЛИВЫХ

*БИЛЕТОВ РАВНО ', I 6)

END

Раздел 6.4 ; задание 2)

PROGRAM VUZAIK,

DIMENSION S(50)

READ *, N, B

CALL AIK(S,B,N)

PRINT*, (S(I),I=1,N)

END

Раздел 6.4 ; задание 3)

PROGRAM MAS_ROST

DIMENSION A(20)

PRINT*,'ВВЕСТИ N'

READ (5,*)N

PRINT*,'ВВЕСТИ ЭЛ.

МАС.'

READ(5,*) (A(I),I=1,N)

CALL ROST (A,N)

PRINT 1, (A(I),I=1,N)

1 FORMAT (5X,2F8.2)

END

Раздел 5.6 ; задание 2)

FUNCTION FELIX (A, B, C, D, R) * C, D Концы отрезка, R-точность вычисления EPS

X1 = C

X2 = D

F1 = X1*A**X1-B

7 FELIX = X1

1 IF(X2-X1-R) 13, 2, 2

2 X=(X1+X2)*0.5

F=X*A**X-B

*продолжение function felix

IF (F1*F) 3, 4, 5

3 X2=X

GO TO 1

4 FELIX=X

GO TO 13

5 X1=X

GO TO 7

13 RETURN

END

С 0 Д Е Р Ж А Н И Е