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

UptoLike

ВУЗ: 

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

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

Рубрика: 

! Координаты точек
A = -2 ; B = 1 ; C = 1
-2
R3 = F(P,Q)
2, R3
Процедура FUNCTION F
UNCTION
1
-2
CALL F(P,Q,R3)
R3
Процедура SUBROUTINE F
)
UBROUTINE
D = 3 ; P = 2 ; Q =
Вычисляем R1,R2,R3 !
! Вызов функции F
R1 = F(A,B)
R2 = F(C,D)
! Вывод на экран
PRINT *, R1, R
END
!
FUNCTION F(X,Y)
F=SQRT(X**2+Y**2)
END F
! Координаты точек
A = -2 ; B = 1 ; C =
D = 3 ; P = 2 ; Q =
Вычисляем R1,R2,R3 !
! Вызов подпрограммы F
CALL F(A,B,R1)
CALL F(C,D,R2)
! Вывод на экран
PRINT *, R1, R2,
END
!
SUBROUTINE F(X,Y,REZ
REZ=SQRT(X**2+Y**2)
END S
Результаты выдаются на экран
в виде:
2.236068 3.162278 2.828427
4. Программы на алгоритмическом языке Basic
Без использования подпрограммы
'Задае
A = -2: B = 1: C = 1
D = 3: P = 2: Q
Вычисляем R1,R2,R3
м координаты точек
= -2
'
R1 = SQR(A^2 + B^2)
R2 = SQR(C^2 + D^2)
R3 = SQR(P^2 + Q^2)
' Вывод R1,R2,R3
PRINT R1, R2, R3
END
29
! Координаты точек                 ! Координаты точек
  A = -2 ; B = 1 ; C = 1             A = -2 ; B = 1 ; C = 1
  D = 3 ; P = 2 ; Q = -2             D = 3 ; P = 2 ; Q = -2

! Вычисляем R1,R2,R3               ! Вычисляем R1,R2,R3
! Вызов функции F                  ! Вызов подпрограммы F
  R1 = F(A,B)                        CALL F(A,B,R1)
  R2 = F(C,D)                        CALL F(C,D,R2)
  R3 = F(P,Q)                        CALL F(P,Q,R3)

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

! Процедура FUNCTION F             ! Процедура SUBROUTINE F
  FUNCTION F(X,Y)                    SUBROUTINE F(X,Y,REZ)
     F=SQRT(X**2+Y**2)                 REZ=SQRT(X**2+Y**2)
  END FUNCTION                       END SUBROUTINE

 Результаты выдаются на экран в виде:

2.236068       3.162278             2.828427


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

                Без использования подпрограммы


'Задаем координаты точек
A = -2: B = 1: C = 1
D = 3: P = 2: Q = -2

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

' Вывод R1,R2,R3
PRINT R1, R2, R3
END


                              29

Страницы