Информатика: Сегментация программ. Гурьяшова Р.Н - 19 стр.

UptoLike

ВУЗ: 

ВГУВТ | Нижний Новгород

Составители: 

Рубрика: 

XN, XK – интервал;
H – шаг табулирования.
Программа, Fortran Пояснения
INTRINSIC SIN
EXTERNAL F1
CALL ATAB(F1, 0.0, 1.0, .25)
CALL ATAB(SIN, 1.0, 3.14, .6)
END
FUNCTION F1(X)
F1 = X*X
END FUNCTION
SUBROUTINE ATAB(F,XN,XK,H)
PRINT *, ' X Y '
PRINT *, '---------------'
1 FORMAT(2X, F5.2, 2X, F5.2)
X = XN
DO WHILE (X<=XK)
PRINT 1, X, F(X)
X = X+H
ENDDO
PRINT *, '---------------'
END SUBROUTINE
SIN()- встроенная
F1() –
пользовательская
функция
Табулируем F1(X)
Табулируем SIN(x)
Функция F1
П/п табулирования,
параметры –
функция, начало,
конец, шаг
Результаты выдаются в виде таблиц значений функции y = x
2
и
y = sin x.
X Y
---------------
0.00 0.00
0.25 0.06
0.50 0.25
0.75 0.56
1.00 1.00
---------------
X Y
---------------
1.00 0.84
1.60 1.00
2.20 0.81
2.80 0.33
---------------
19
   XN, XK – интервал;
   H – шаг табулирования.

            Программа, Fortran                Пояснения
 INTRINSIC SIN                          SIN()- встроенная
 EXTERNAL F1                            F1() –
                                        пользовательская
 CALL ATAB(F1, 0.0, 1.0, .25)           функция
 CALL ATAB(SIN, 1.0, 3.14, .6)          Табулируем F1(X)
 END                                    Табулируем SIN(x)

 FUNCTION F1(X)
    F1 = X*X                            Функция F1
 END FUNCTION
 SUBROUTINE ATAB(F,XN,XK,H)
    PRINT *, '     X     Y '            П/п табулирования,
    PRINT *, '---------------'          параметры –
 1 FORMAT(2X, F5.2, 2X, F5.2)           функция, начало,
    X = XN                              конец, шаг
    DO WHILE (X<=XK)
       PRINT 1, X, F(X)
       X = X+H
    ENDDO
    PRINT *, '---------------'
 END SUBROUTINE

    Результаты выдаются в виде таблиц значений функции y = x2 и
y = sin x.
       X     Y
  ---------------
    0.00   0.00
    0.25   0.06
    0.50   0.25
    0.75   0.56
    1.00   1.00
  ---------------
       X     Y
  ---------------
    1.00   0.84
    1.60   1.00
    2.20   0.81
    2.80   0.33
  ---------------

                                 19

Страницы