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

UptoLike

ВУЗ: 

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

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

Рубрика: 

FOR I = 1 TO 10
READ A(I)
NEXT I
1)
, 2)
PR
C(), N, M)
S = S + C(I)
THEN K = K + 1
КИ ГРУППЫ "; M
N
SR
, "
-")
од данных
зов п/п PR
дпрограмма
числение SR
кл
ние K
кл
вод
атов
FOR I = 1 TO 7
READ B(I)
NEXT I
10, CALL PR(A(),
(B(), 7CALL PR
END
ограмма' Подпр
UB PR (S
S = 0: K = 0
OR I = 1 TO N F
NEXT I
SR = S / N
FOR I = 1 TO N
IF C(I) > SR
NEXT I
PRINT " ОЦЕН
FOR I = 1 TO
PRINT C(I);
NEXT I
PRINT
PRINT " СРЕДНИЙ БАЛЛ SR = ";
ТВО K = "; K PRINT " КОЛИЧЕС
PRINT STRING$(33
END SUB
Вв
ызов п/п PR В
Вы
По
икл Ц
Вы
Ци
Вычисле
Ци
Вывод данных
(оценок)
Вы
результ
5. Макет печати результатов (по Fortran ) -программе
ОЦЕНКИ ГРУППЫ
4. 3
1
5. 5. 2. 4. 5.
СРЕДНИЙ БАЛЛ S
. 2. 5.
R = 3.8
КОЛИЧЕСТВО K = 6
3.
-------------------------------
ОЦЕНКИ ГРУППЫ 2
3. 4. 5. 2. 5. 4. 5.
СРЕДНИЙ БАЛЛ SR = 4.0
КОЛИЧЕСТВО K = 3
-
------------------------------
70
FOR I =   1 TO 10                         Ввод данных
   READ   A(I)
NEXT I
FOR I =   1 TO 7
   READ   B(I)
NEXT I
CALL PR(A(), 10, 1)                       Вызов п/п PR
CALL PR(B(), 7, 2)                        Вызов п/п PR
END
' Подпрограмма PR
SUB PR (C(), N, M)                        Подпрограмма

  S = 0: K = 0
  FOR I = 1 TO N                          Цикл
     S = S + C(I)                         Вычисление SR
  NEXT I
  SR = S / N
  FOR I = 1 TO N                          Цикл
     IF C(I) > SR THEN K = K + 1          Вычисление K
  NEXT I
  PRINT " ОЦЕНКИ ГРУППЫ "; M
  FOR I = 1 TO N                          Цикл
     PRINT C(I);                          Вывод данных
  NEXT I                                  (оценок)
  PRINT
   PRINT " СРЕДНИЙ БАЛЛ SR = "; SR        Вывод
   PRINT " КОЛИЧЕСТВО K = "; K            результатов
   PRINT STRING$(33, " -")
END SUB

    5. Макет печати результатов (по Fortran-программе)
                      ОЦЕНКИ ГРУППЫ 1
                5. 5. 2. 4. 5. 4. 3. 2. 5. 3.
                СРЕДНИЙ БАЛЛ SR = 3.8
                КОЛИЧЕСТВО K = 6
             -------------------------------
                      ОЦЕНКИ ГРУППЫ 2
                3. 4. 5. 2. 5. 4. 5.
                СРЕДНИЙ БАЛЛ SR = 4.0
                КОЛИЧЕСТВО K = 3
             -------------------------------




                            70

Страницы