Составители:
Рубрика:
– 2-й цикл (блоки 6, 7, 8, 9) определяет количество студентов,
получивших оценку выше средней.
Обозначения переменных в процедуре PR
I
пе)
Порядковый номер элемента в массиве (сту-
дента в груп
C(I), в схеме – C
i
Элемент массива (оценка студента с номе-
ром I)
N Количество элементов в массиве (студентов
в группе)
S Сумма элементов массива (сумма оценок
группы)
SR Среднее арифметическое элементов массива
(средний балл группы)
K Количество элементов, удовлетворяющих
условию C > Sr, искомая величина
i
M Номер группы – 1 или 2
Основная программа
В основной программ
• исходных данны в A и B.
• е к процедуре PR – определение количества студен-
едней для каждой группы:
е осуществляется:
Ввод х – элементов массиво
Обращени
тов с оценкой выше ср
Группа Число студентов Вызов процедуры PR
1 10 PR(A, 10, 1)
2 7 PR(B, 7, 2)
3 ran-прог
Код исходног модуля нения
. Листинг Fort раммы
о Пояс
! Лабораторна
! етров А.Н. М-11
! Процедура
2,4,5,4, &
3,4,5,2,5,4,5/)
овная
программа
нных
я работа 6 Осн
П
SUBROUTINE
REAL :: A(10) = (/5,5,
3,2,5,3/)
REAL :: B(7) = (/
Задание да
(оценок
студентов)
68
– 2-й цикл (блоки 6, 7, 8, 9) определяет количество студентов,
получивших оценку выше средней.
Обозначения переменных в процедуре PR
I Порядковый номер элемента в массиве (сту-
дента в группе)
C(I), в схеме – Ci Элемент массива (оценка студента с номе-
ром I)
N Количество элементов в массиве (студентов
в группе)
S Сумма элементов массива (сумма оценок
группы)
SR Среднее арифметическое элементов массива
(средний балл группы)
K Количество элементов, удовлетворяющих
условию Ci > Sr, искомая величина
M Номер группы – 1 или 2
Основная программа
В основной программе осуществляется:
• Ввод исходных данных – элементов массивов A и B.
• Обращение к процедуре PR – определение количества студен-
тов с оценкой выше средней для каждой группы:
Группа Число студентов Вызов процедуры PR
1 10 PR(A, 10, 1)
2 7 PR(B, 7, 2)
3. Листинг Fortran-программы
Код исходного модуля Пояснения
! Лабораторная работа 6 Основная
! Петров А.Н. М-11 программа
! Процедура SUBROUTINE
REAL :: A(10) = (/5,5,2,4,5,4, & Задание данных
3,2,5,3/) (оценок
REAL :: B(7) = (/3,4,5,2,5,4,5/) студентов)
68
Страницы
- « первая
- ‹ предыдущая
- …
- 66
- 67
- 68
- 69
- 70
- …
- следующая ›
- последняя »
