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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Основная
сновной :
• данных – количества точек N и элемен-
точек).
программа
В о программе осуществляется
Ввод-вывод исходных
тов массива X и Y (координат заданных
• Обращение к процедуре PD для вычисления координат иско-
мой точки:
Искомая точка Вызов процедуры PD
Абсцисса XS PD(X,XS)
Ордината YS PD(Y,YS)
• Вывод , YS – координат иско (макет пе-
п.
чения переменных в основной программе
значений XS
4, п. 6).
мой точки
чати
Обозна
X, Y Массив абсцисс и ординат соответственно
N ло точек) Количество элементов в массивах (чис
I Параметр цикла, номер точки
X
i
или X(I) Элемент массива X
Y
i
или Y(I) Элемент массива Y
XS, YS Абсцисса и ордината искомой точки (X*, Y*)
а алСхем
горитм
ran-программы
Ко Пояснения
а см. рис.2.5.
3. Листинг Fort
д исходного модуля
! Лаборатор
! Петров А.
,-2,5,-2/)
(/5,-1,1,-2,-3/)
Е ДАННЫЕ '/ &
N = ',I1/&
Осн
про
дание
ходных
ная работа 5
Н. М-11
! Процедура SUBROUTINE
COMMON /A/ N
REAL :: X(5) = (/4,0
REAL :: Y(5) =
INTEGER :: N = 5
REAL :: XS,YS
PRINT 1, N,X,Y
ОДНЫ1 FORMAT(3X,' ИСХ
2X,'КОЛИЧЕСТВО ТОЧЕК
4X,'КООРДИНАТЫ ТОЧЕК'/ &
2(2X,5F4.0/))
овная
грамма
За
ис
данных
Вывод
сходныхи
данных
62
      Основная программа
      В основной программе осуществляется:
•     Ввод-вывод исходных данных – количества точек N и элемен-
      тов массива X и Y (координат заданных точек).
•     Обращение к процедуре PD для вычисления координат иско-
      мой точки:
              Искомая точка                     Вызов процедуры PD
              Абсцисса XS                           PD(X,XS)
              Ордината YS                           PD(Y,YS)
•     Вывод значений XS, YS – координат искомой точки (макет пе-
      чати п. 4, п. 6).

                  Обозначения переменных в основной программе
    X, Y               Массив абсцисс и ординат соответственно
    N                  Количество элементов в массивах (число точек)
    I                  Параметр цикла, номер точки
    Xi или X(I)        Элемент массива X
    Yi или Y(I)        Элемент массива Y
    XS, YS             Абсцисса и ордината искомой точки (X*, Y*)
      Схема алгоритма см. рис.2.5.

                     3. Листинг Fortran-программы

                  Код исходного модуля                      Пояснения
    ! Лабораторная работа 5                            Основная
    ! Петров А.Н. М-11                                 программа
    ! Процедура SUBROUTINE

       COMMON /A/ N
       REAL :: X(5) = (/4,0,-2,5,-2/)                  Задание
       REAL :: Y(5) = (/5,-1,1,-2,-3/)                 исходных
       INTEGER :: N = 5                                данных
       REAL :: XS,YS
       PRINT 1, N,X,Y                                  Вывод
    1 FORMAT(3X,' ИСХОДНЫЕ ДАННЫЕ '/ &                 исходных
       2X,'КОЛИЧЕСТВО ТОЧЕК N = ',I1/&                 данных
       4X,'КООРДИНАТЫ ТОЧЕК'/         &
       2(2X,5F4.0/))

                                      62

Страницы