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

UptoLike

ВУЗ: 

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

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

Рубрика: 

PRINT *,'МАССИВ А'
PRINT *,A
PRINT *,'AMIN= ',AMIN, 'AMAX= ', AMAX
END
SUBROUTINE MINMAX(A, N, AMIN, AMAX)
REAL, INTENT(IN), DIMENSION(N) :: A
REAL, INTENT(OUT) :: AMIN, AMAX
AMIN = 1E37
AMAX = -1E37
DO I = 1, N
IF (A(I)<AMIN) AMIN = A(I)
IF (A(I)>AMAX) AMAX = A(I)
ENDDO
END SUBROUTINE
Вывод
данных и
результата
П/п MINMAX
Входной
параметр -
массив
Выходные
параметры
Результаты работы:
МАССИВ А
2. 3. 1. 4. 2.
AMIN= 1. AMAX= 4.
Передача массивов
В некоторых языках нужно «объяснять», что параметр является
массивом. Так, на QBasic после имени массива должны стоять пус-
тые скобки ( ) и при описании подпрограммы, и при ее вызове.
Пример
Та же процедура MinMax, вариант на QBasic (см. пример пре-
дыдущего пункта).
Программа, BASIC Пояснения
DATA 2,3,1,4,2
DIM A(5)
PRINT "МАССИВ А"
Данные
15
 PRINT *,'МАССИВ А'                             Вывод
 PRINT *,A                                      данных и
 PRINT *,'AMIN= ',AMIN, 'AMAX= ', AMAX          результата
 END

 SUBROUTINE MINMAX(A, N, AMIN, AMAX)            П/п MINMAX

    REAL, INTENT(IN), DIMENSION(N) :: A         Входной
                                                параметр -
                                                массив
    REAL, INTENT(OUT) :: AMIN, AMAX             Выходные
                                                параметры
    AMIN = 1E37
    AMAX = -1E37
    DO I = 1, N
       IF (A(I)AMAX) AMAX = A(I)
    ENDDO
 END SUBROUTINE

   Результаты работы:
  МАССИВ А
  2. 3. 1. 4. 2.
  AMIN= 1. AMAX= 4.

                        Передача массивов

   В некоторых языках нужно «объяснять», что параметр является
массивом. Так, на QBasic после имени массива должны стоять пус-
тые скобки ( ) и при описании подпрограммы, и при ее вызове.

   Пример
   Та же процедура MinMax, вариант на QBasic (см. пример пре-
дыдущего пункта).

                Программа, BASIC                  Пояснения
 DATA 2,3,1,4,2                                 Данные
 DIM A(5)

 PRINT "МАССИВ А"


                               15

Страницы