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

UptoLike

ВУЗ: 

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

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

Рубрика: 

Результаты работы программы представлены ни
4. Листинг Basic-программы
же (п. 5).
Код исходного модуля Пояснения
' Лабораторная работа 7
' Петров А.Н. М-11
' Подпрограмма SUB
DI SHARED A(12
DIM SHARED MONT
DATA " Январь т"
Июнь"
"
брь", "Декабрь"
8,97,105
98
INT A(I);
МИНИМАЛЬНЫЙ %";
2)
ограмма POL
N THEN
): M = I
программа
Глобальные
массивы
Дан
х
нных (%)
вод
головка
рамма
ние
Основная
M )
H$(12)
", "Февраль", " Мар
DATA " Апрель", " Май", "
т", "СентябрьDATA "Июль", "Авгус
DATA "Октябрь", "Ноя
DATA 101,98,100,10
DATA 99,100,112,96,107,
CLS
FOR I = 1 TO 12
READ MONTH$(I)
NEXT I
PRINT "% ВЫПОЛНЕНИЯ ПЛАНА "
FOR I = 1 TO 12
READ A(I)
PR
NEXT I
PRINT
RINT " P
PRINT " ВЫПОЛНЕНИЯ ПЛАНА : "
, 1)CALL POL(1, 6
CALL POL(7, 12,
END
' Подпр
SUB POL (N, K, P)
AMIN = 1000
FOR I = N TO K
IF A(I) < AMI
AMIN = A(I
END IF
NEXT I
ные
(месяца)
Данные
(проценты)
Цикл
вод данныВ
Цикл
вод-вывод В
да
Вы
за
Вызов
п/п POL
Подпрог
икл Ц
Определе
M, AMIN
75
  Результаты работы программы представлены ниже (п. 5).

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

             Код исходного модуля                Пояснения
' Лабораторная работа 7                       Основная
' Петров А.Н. М-11                            программа
' Подпрограмма SUB

DIM SHARED A(12)                              Глобальные
DIM SHARED MONTH$(12)                         массивы

DATA   " Январь", "Февраль", " Март"          Данные
DATA   " Апрель", " Май", " Июнь"             (месяца)
DATA   "Июль", "Август", "Сентябрь"
DATA   "Октябрь", "Ноябрь", "Декабрь"

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


                               75

Страницы