Лабораторный практикум по информатике. Гурьяшова Р.Н - 65 стр.

UptoLike

ВУЗ: 

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

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

Рубрика: 

65
4.
Алгоритм
Вычисление количества хороших и отличных оценок в алго-
ритме осуществляется проверкой условий A
i
= 4 и A
i
= 5.
Алгоритм состоит из следующих действий:
1. Ввод данных – элементов массивов F
i
, A
i
(фамилий и оценок).
2. Вывод данных (оценок студентов) A
i
.
3. Задание начального значения переменным K4 = 0 и K5 = 0.
4. Начало цикла.
5. Проверка условия A
i
= 5.
Если условие выполнено, перейти к п.6, иначе – к п.8.
6. Увеличить на 1 счётчик K5: K5
=
K5
+ 1.
7. Вывод фамилии студента-отличника F
i
. Перейти к п.10.
8. Проверка условия A
i
= 4.
Если условие выполнено, перейти к п.9, иначе – к п.10
9. Увеличить на 1 значение счётчика K4: K4
=
K4
+ 1.
10. Конец цикла.
11. Вывод результатов – значений K5 и K4.
12. Конец.
Схема алгоритма представлена на рис. 2.22 (стр.66).
5. Листинг Fortran-программы «Анализ итогов экзамена»
PROGRAM
MARKS
! Объявление типа
и задание данных
INTEGER
:: I, K4 = 0, K5 = 0, N = 10
INTEGER
:: A(1:10) = (/5,4,4,3,2,5,4,2,4,3/)
CHARACTER
*8 :: F (1:10)
DATA
F/' Юдин ',' Ашин ',' Итин ',' Бут ',' Бех ', &
' Этин ',' Юров ',' Апин ',' Фет ',' Кац '/
WRITE
(*,*)' ОЦЕНКИ '
WRITE
(*,' (2X,10I3) ') A ! Вывод оценок
WRITE
(*,*)' ОТЛИЧНИКИ ' ! Вывод заголовка
DO
I = 1 TO N ! Начало цикла
IF(A(I) == 5)THEN ! Если A
i
= 5
K5 = K5 + 1
WRITE(*,'(8X,A) ') F(I) ! Вывод отличников F
i
ELSE ! Иначе, если A
i
≠ 5
IF(A(I) == 4)K4 = K4 + 1 ! Если A
i
= 4
END IF
DO
! Конец цикла 
                          4. Алгоритм
   Вычисление количества хороших и отличных оценок в алго-
ритме осуществляется проверкой условий Ai = 4 и Ai = 5.
   Алгоритм состоит из следующих действий:
   1. Ввод данных – элементов массивов Fi, Ai (фамилий и оценок).
   2. Вывод данных (оценок студентов) Ai.
   3. Задание начального значения переменным K4 = 0 и K5 = 0.
   4. Начало цикла.
   5. Проверка условия Ai = 5.
      Если условие выполнено, перейти к п.6, иначе – к п.8.
   6. Увеличить на 1 счётчик K5: K5 = K5 + 1.
   7. Вывод фамилии студента-отличника Fi. Перейти к п.10.
   8. Проверка условия Ai = 4.
      Если условие выполнено, перейти к п.9, иначе – к п.10
   9. Увеличить на 1 значение счётчика K4: K4 = K4 + 1.
   10. Конец цикла.
   11. Вывод результатов – значений K5 и K4.
   12. Конец.
   Схема алгоритма представлена на рис. 2.22 (стр.66).
  5. Листинг Fortran-программы «Анализ итогов экзамена»
PROGRAM MARKS
! Объявление типа и задание данных
INTEGER :: I, K4 = 0, K5 = 0, N = 10
INTEGER :: A(1:10) = (/5,4,4,3,2,5,4,2,4,3/)
CHARACTER*8 :: F (1:10)
DATA F/' Юдин ',' Ашин ',' Итин ',' Бут ',' Бех ', &
       ' Этин ',' Юров ',' Апин ',' Фет ',' Кац '/
WRITE(*,*)' ОЦЕНКИ '
WRITE(*,' (2X,10I3) ') A ! Вывод оценок
WRITE(*,*)' ОТЛИЧНИКИ ' ! Вывод заголовка
DO I = 1 TO N ! Начало цикла
   IF(A(I) == 5)THEN ! Если Ai = 5
      K5 = K5 + 1
      WRITE(*,'(8X,A) ') F(I) ! Вывод отличников Fi
   ELSE ! Иначе, если Ai ≠ 5
      IF(A(I) == 4)K4 = K4 + 1 ! Если Ai = 4
   END IF
END DO ! Конец цикла

                               65

Страницы