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

UptoLike

ВУЗ: 

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

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

Рубрика: 

PRINT 1, A,B,Z
1 FORMAT(1X,' ИСХОДНЫЕ ДАННЫЕ '/ &
3X,' A = ',F3.1,' B = ',F3.0/ &
Z = ',E11.4 )
вод
нкция F
1X,' РЕЗУЛЬТАТ
END
! Функция F
REAL FUNCTION F(X,Y)
REAL :: X,Y
F = LOG(X)**2 + COS(Y)
END FUNCTION
Вы
данных и
езультата р
Фу
нижеРезультаты работы программы приведены (п. 4).
Примечание. Вычисление значения Z можно предс ить и в виде од-
н но быть набрано одной строкой):
SQRT(ABS(F (3.0,
)
тав
ого оператора (долж
Z = F(ABS(B), A) ** 2 -
/ 180)
B))) /
(A * F(A, 2 * 3.1415
Однако при его написании легко допустить ошибки, чаще всего – несоответ-
с
е)
л ции.
5. Fortr и
нения
твие скобок.
4. Макет печати результатов (по Fortran-программ
я сравнения приведем программы без использования функД
an вания функци
д исходного модуля Пояс
-программа без использо
Ко
! Лабораторная работа 1
!
! нейный алгоритм
A =
R = LOG(ABS(B))**2 + COS(A)
W = LOG(3.0
Вычисление
зн
Петров А.Н. М-11
Ли
1.5 ; B = -2 Данные
)**2 + COS(B) ачения Z
ИСХОДНЫЕ ДАННЫЕ
A = 1.5 B = -2.
РЕЗУЛЬТАТ Z = -0.2056E+00
34
    PRINT 1, A,B,Z                                         Вывод
 1  FORMAT(1X,' ИСХОДНЫЕ ДАННЫЕ '/   &                     данных и
       3X,' A = ',F3.1,' B = ',F3.0/ &                     результата
       1X,' РЕЗУЛЬТАТ Z = ',E11.4 )
 END
 ! Функция F
    REAL FUNCTION F(X,Y)                                   Функция F
       REAL :: X,Y
       F = LOG(X)**2 + COS(Y)
    END FUNCTION
     Результаты работы программы приведены ниже (п. 4).
    П р и м е ч а н и е . Вычисление значения Z можно представить и в виде од-
ного оператора (должно быть набрано одной строкой):
      Z = F(ABS(B), A) ** 2 - SQRT(ABS(F (3.0, B))) /
 (A * F(A, 2 * 3.1415 / 180))
    Однако при его написании легко допустить ошибки, чаще всего – несоответ-
ствие скобок.

       4. Макет печати результатов (по Fortran-программе)

                      ИСХОДНЫЕ ДАННЫЕ
                        A = 1.5 B = -2.
                      РЕЗУЛЬТАТ Z = -0.2056E+00




     Для сравнения приведем программы без использования функции.

        5. Fortran-программа без использования функции

                   Код исходного модуля                        Пояснения

! Лабораторная работа 1
! Петров А.Н. М-11
! Линейный алгоритм
  A = 1.5 ; B = -2                                           Данные

     R = LOG(ABS(B))**2 + COS(A)                             Вычисление
     W = LOG(3.0)**2 + COS(B)                                значения Z


                                     34

Страницы