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

UptoLike

ВУЗ: 

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

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

Рубрика: 

CALL PR(A,10,1)
CALL PR(B,7,2)
END
! Подпрограмма PR
SUBROUTINE PR (C,N,M)
N,M,K
,SR,S
S = 0 ; K = 0
зов п/п PR
INTEGER :: I,
REAL :: C(N)
Вы
Вызов п/п PR
Подпрограмма
DO I = 1,N
S = S + C(I)
ENDDO
SR = S/N
DO I = 1,N
IF(C(I) > SR) K = K + 1
,C
ОЦЕНКИ ГРУППЫ ', &
ENDDO
PRINT 3, M
3 FORMAT(9X,'
I1/3X,10F3.0)
4, SR,K PRINT
FORMAT(4 3X, ' СРЕДНИЙ БАЛЛ ', &
1/3X, & 'SR = ',F3.
' КОЛИЧЕСТВО K = ',I1)
------------' PRINT *, '-------
END SUBROUTINE
Цикл
ычисление SR В
Цикл
Вычисление K
В
ы
вод исходных
ьтатов
данных
ывод В
резул
Результаты работы программы представлена ниже (п. 5).
4. Листинг Basic-программы
я
Код исходного модуля Пояснени
' Лабораторная
' тров А.Н. М
' Подпрограмма SUB
CLS
4, 5
новная
ных
работа 6
-11
Ос
программаПе
DIM A(10), B(7)
2,5,3 DATA 5,5,2,4,5,4,3,
DATA 3, 4, 5, 2, 5,
Задание дан
(оценок)
69
   CALL PR(A,10,1)                            Вызов п/п PR
   CALL PR(B,7,2)                             Вызов п/п PR
END

! Подпрограмма PR
   SUBROUTINE PR (C,N,M)                      Подпрограмма
      INTEGER :: I,N,M,K
      REAL :: C(N),SR,S
      S = 0 ; K = 0
        DO I = 1,N                            Цикл
           S = S + C(I)                       Вычисление SR
        ENDDO
        SR = S/N

        DO I = 1,N                            Цикл
           IF(C(I) > SR) K = K + 1            Вычисление K
        ENDDO

       PRINT 3, M,C                           Вывод исходных
3      FORMAT(9X,' ОЦЕНКИ ГРУППЫ ', &         данных
          I1/3X,10F3.0)
       PRINT 4, SR,K                          Вывод
4      FORMAT(3X, ' СРЕДНИЙ БАЛЛ ', &         результатов
          'SR = ',F3.1/3X,          &
          ' КОЛИЧЕСТВО K = ',I1)
       PRINT *, '-------------------'
    END SUBROUTINE

    Результаты работы программы представлена ниже (п. 5).

                  4. Листинг Basic-программы

              Код исходного модуля                Пояснения

' Лабораторная работа 6                       Основная
' Петров А.Н. М-11                            программа
' Подпрограмма SUB

CLS
DIM A(10), B(7)
DATA 5,5,2,4,5,4,3,2,5,3                      Задание данных
DATA 3, 4, 5, 2, 5, 4, 5                      (оценок)


                                 69

Страницы