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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Q = LOG(A)**2 + COS(2 * 3.1415/180)
S(W))/(A * Q)
' B = ',B,' Z = ',Z
Z = R**2 - SQRT(AB
PRINT *,' A = ',A,
END
Вывод
Результаты работы программы приведены ниже (
tran-программе)
7. Basic-программа с использованием функции
п. 6).
6. Макет печати результатов (по For
A = 1.5 B =
-
2
. Z =
-
0
.20559886
Код исходного модуля Пояснения
'
' Петров
' Подпрограмма FUNCTION
DATA 1.5,-2
RE D A
R = F(ABS(B)
)
(A * Q)
"ИСХОДНЫЕ ДАННЫЕ "
"A= "; A; "B= "; B
= "; Z
Ввод данных
Вы
н
нных и
та
нкция F
Лабораторная работа 1
А.Н. М-11
A , B
, A)
W = F(3, B)
/ 180Q = F(A, 2 * 3.1415
Z = R ^ 2 - SQR(ABS(W)) /
PRINT TAB(3);
RINT TAB(5); P
PRINT "РЕЗУЛЬТАТ Z
END
! Функция F
UNCTION F (X, Y) F
F = LOG(X) ^ 2 + COS(Y)
END FUNCTION
зов
кции F фу
ывод В
ад
результа
уФ
ения Z можПримечание. Вычисление знач
ратора (должно быть набрано од
но предс д-
н ной строкой):
= F(ABS(B), A) ^ 2 - SQR(ABS(F(3, B)))
3.1415 / 180))
тавить и в виде о
ого опе
Z /
(A * F(A, 2 *
35
     Q = LOG(A)**2 + COS(2 * 3.1415/180)
     Z = R**2 - SQRT(ABS(W))/(A * Q)

     PRINT *,' A = ',A,' B = ',B,' Z = ',Z                   Вывод
     END

     Результаты работы программы приведены ниже (п. 6).

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

              A =    1.5     B =    -2.    Z =    -0.20559886




           7. Basic-программа с использованием функции
                  Код исходного модуля                        Пояснения
 ' Лабораторная работа 1
 ' Петров А.Н. М-11
 ' Подпрограмма FUNCTION
 DATA 1.5,-2                                               Ввод данных
 READ A, B

 R   =   F(ABS(B), A)                                      Вызов
 W   =   F(3, B)                                           функции F
 Q   =   F(A, 2 * 3.1415 / 180)
 Z   =   R ^ 2 - SQR(ABS(W)) / (A * Q)

 PRINT TAB(3); "ИСХОДНЫЕ ДАННЫЕ "                          Вывод
 PRINT TAB(5); "A= "; A; "B= "; B                          данных и
 PRINT "РЕЗУЛЬТАТ Z= "; Z                                  результата
 END

 ! Функция F
 FUNCTION F (X, Y)                                         Функция F
    F = LOG(X) ^ 2 + COS(Y)
 END FUNCTION
    П р и м е ч а н и е . Вычисление значения Z можно представить и в виде од-
ного оператора (должно быть набрано одной строкой):
      Z = F(ABS(B), A) ^ 2 - SQR(ABS(F(3, B))) /
 (A * F(A, 2 * 3.1415 / 180))



                                     35

Страницы