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

UptoLike

Алгоритм решения задачи имеет линейную структуру и пред-
ставляет собой последовательность следующих действий:
Ввод
исходных данныхзначений A, B.
Вычисление значений промежуточных величин R, W, Q.
Вычисление значения искомой величины Z.
Вывод значений A, B, Z (макет печатип. 5, п. 8).
Схема алгоритма представлена на рис. 2.1.
Начало
A, B
Останов
1
A, B, Z
Вычисление Z
2
3
Рис. 2.1. Схема алгоритма к лабораторной работе 1
«Вычисление значения выражения»
Приведем два варианта программ на каждом из алгоритмиче-
ских языков Fortran и Basic:
с использованием функции,
без использования функции.
3. Fortran- и пр ункциограмма с использованием ф
Код исходного модуля Пояснения
! Лабораторная работа 1
! Петров А.Н. М-11
! Процедура FUNCTION
RE
R = F(ABS(B),A)
W = F(3.0
ных
Вызов
фу
AL :: R,W,Q,Z,A = 1.5 , B = -2 Ввод дан
,B)
Q = F(A,2*3.1415/180)
Z = R**2 - SQRT(ABS(W))/(A * Q)
нкции F
33
   Алгоритм решения задачи имеет линейную структуру и пред-
ставляет собой последовательность следующих действий:
• Ввод исходных данных – значений A, B.
• Вычисление значений промежуточных величин R, W, Q.
• Вычисление значения искомой величины Z.
• Вывод значений A, B, Z (макет печати – п. 5, п. 8).
   Схема алгоритма представлена на рис. 2.1.
                                      Начало

                                  1
                                       A, B

                                2
                               Вычисление Z

                              3
                                      A, B, Z



                                      Останов

               Рис. 2.1. Схема алгоритма к лабораторной работе 1
                       «Вычисление значения выражения»

   Приведем два варианта программ на каждом из алгоритмиче-
ских языков Fortran и Basic:
• с использованием функции,
• без использования функции.

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

                Код исходного модуля                         Пояснения
! Лабораторная работа 1
! Петров А.Н. М-11
! Процедура FUNCTION
   REAL :: R,W,Q,Z,A = 1.5 , B = -2                       Ввод данных

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

                                        33