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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Для сравнения представим три варианта прогр аждом из
оритмических языков Fortran, Basic:
• без использования подпрограмм;
• с использованием подпрограмм.
амм на к
алг
ком языке Fortran
граммы
3. Программы на алгоритмичес
Без использования подпро
!
! A,
! вещественного типа
REAL :: A,B,C,D,P
A = -2 ; B = 1 ; C = 1
-2
Вычисляем R1,R2,R3
Объявляем переменные
B,C,D,P,Q,R1,R2,R3
REAL :: Q,R1,R2,R3
! Координаты точек
D = 3 ; P = 2 ; Q =
!
R1 = SQRT(A**2 + B**2)
R2 = SQRT(C**2 + D**2)
R3 = SQRT(P**2 + Q**2)
! Вывод на экран
PRINT *, R1, R2, R3
END
Программы на алгоритмическом языке Fortran с использовани-
е
оцедура FUNCTION Процедура SUBROUTINE
м подпрограмм:
Пр
! Объявляем переменные
! A,B,C,D,P,Q,
! Объявляем переменные
R1,R2,R3
! ещественного типа
REAL :: A,B,C,D,P
! A,B,C,D,P,Q,R1,R2,R3
! вещественного типа
REAL :: A,B,C,D,P
в
REAL :: Q,R1,R2,R3 REAL :: Q,R1,R2,R3
28
   Для сравнения представим три варианта программ на каждом из
алгоритмических языков Fortran, Basic:
     •    без использования подпрограмм;
     •    с использованием подпрограмм.

          3. Программы на алгоритмическом языке Fortran

                     Без использования подпрограммы
 !       Объявляем переменные
 !       A,B,C,D,P,Q,R1,R2,R3
 !       вещественного типа

     REAL :: A,B,C,D,P
     REAL :: Q,R1,R2,R3

 ! Координаты точек
   A = -2 ; B = 1 ; C = 1
   D = 3 ; P = 2 ; Q = -2

 ! Вычисляем R1,R2,R3
   R1 = SQRT(A**2 + B**2)
   R2 = SQRT(C**2 + D**2)
   R3 = SQRT(P**2 + Q**2)

 ! Вывод на экран
   PRINT *, R1, R2, R3
   END

   Программы на алгоритмическом языке Fortran с использовани-
ем подпрограмм:

          Процедура FUNCTION               Процедура SUBROUTINE
 ! Объявляем переменные                 ! Объявляем переменные
 ! A,B,C,D,P,Q,R1,R2,R3                 ! A,B,C,D,P,Q,R1,R2,R3
 ! вещественного типа                   ! вещественного типа

     REAL :: A,B,C,D,P                   REAL :: A,B,C,D,P
     REAL :: Q,R1,R2,R3                  REAL :: Q,R1,R2,R3


                                   28

Страницы