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

UptoLike

ВУЗ: 

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

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

Рубрика: 

DATA 101,98,100,108,97,105
DATA 99,100,112,96,107,98
CLS
FOR I = 1 TO 12
READ MONTH$(I)
NEXT I
PRINT "% ВЫПОЛНЕНИЯ ПЛАНА "
FOR I = 1 TO 12
READ A(I)
PRINT A(I);
NEXT I
PRINT
PRINT " МИНИМАЛЬНЫЙ %";
PRINT " ВЫПОЛНЕНИЯ ПЛАНА : "
CALL POL(1, 6, 1)
CALL POL(7, 12, 2)
END
' Подпрограмма POL
SUB POL (N, K, P)
AMIN = 1000
FOR I = N TO K
IF A(I) < AMIN THEN
AMIN = A(I): M = I
END IF
NEXT I
PRINT " < ";P; " > полугодие - ";
% за ";M; " месяц - ";
PRINT MONTH$(M)
END SUB
Данные
(проценты)
Цикл
Ввод данных
Цикл
Ввод-вывод
данных (%)
Вывод
заголовка
Вызов
п/п POL
Подпрограмма
Цикл
Определение
M, AMIN
Вывод
результатов
PRINT AMIN; "
ограммы – распечатк тов.
6. Результат выполнения пр а результа
% ВЫПОЛНЕНИЯ ПЛАНА
101 98 100 1
МИНИМАЛЬНЫЙ % В
08 97 105 99 100 112
ЕНИЯ ПЛАНА :
97 % за 5 месяц
за 10 месяц
96 107 98
- Май
Октябрь
ЫПОЛН
< 1 > полугодие -
< 2 > полугодие - 96 % -
110
DATA 101,98,100,108,97,105                   Данные
DATA 99,100,112,96,107,98                    (проценты)

CLS
FOR I = 1 TO 12                              Цикл
   READ MONTH$(I)                            Ввод данных
NEXT I

PRINT "% ВЫПОЛНЕНИЯ ПЛАНА "
FOR I = 1 TO 12                              Цикл
   READ A(I)                                 Ввод-вывод
   PRINT A(I);                               данных (%)
NEXT I

PRINT
PRINT " МИНИМАЛЬНЫЙ %";                      Вывод
PRINT " ВЫПОЛНЕНИЯ ПЛАНА : "                 заголовка

CALL POL(1, 6, 1)                            Вызов
CALL POL(7, 12, 2)                           п/п POL
END

' Подпрограмма POL
SUB POL (N, K, P)                            Подпрограмма
   AMIN = 1000
   FOR I = N TO K                            Цикл
      IF A(I) < AMIN THEN                    Определение
         AMIN = A(I): M = I                  M, AMIN
      END IF
   NEXT I
   PRINT " < ";P; " > полугодие - ";         Вывод
   PRINT AMIN; " % за ";M; " месяц - ";      результатов
   PRINT MONTH$(M)
END SUB

6. Результат выполнения программы – распечатка результатов.

 % ВЫПОЛНЕНИЯ ПЛАНА
  101 98 100 108 97 105 99 100 112 96 107 98
  МИНИМАЛЬНЫЙ % ВЫПОЛНЕНИЯ ПЛАНА :
  < 1 > полугодие - 97 % за 5 месяц - Май
  < 2 > полугодие - 96 % за 10 месяц - Октябрь




                              110

Страницы