ВУЗ:
Составители:
Рубрика:
113
POVTOR% = 0
DO
IF POVTOR% = 1 THEN
BEEP
LOCATE 15, 20
PRINT " "
END IF
LOCATE 15, 20
PRINT "Длина последовательности N = ";
INPUT N%
POVTOR% = 1
LOOP WHILE N% < 1 OR N% > 2048
' Фоpмиpование массива
COLOR 4, 7
FOR I% = 0 TO N% - 1
X(I%) = RND
LOCATE 20, 35
PRINT "I = "; I% + 1
NEXT I%
' Запись массива в файл
OPEN JOBPATH$ + "\INP.DAT" FOR OUTPUT AS #1
PRINT #1, N%
FOR I% = 0 TO N% - 1
PRINT #1, X(I%)
NEXT I%
CLOSE #1
BEEP
' Пpощание
COLOR 4, 7
LOCATE 20, 25
PRINT " Генерация завершена! "
LOCATE 21, 25
PRINT " Нажмите <Enter>, пожалуйста ";
INPUT ; "", Z
'Возвpат в модуль MAC0
'CHAIN SYSPATH$+"\MAC0"
END
3.6. Компоновка
Компоновка заключается в связывании, объединении нескольких модулей
в единую законченную программу или программную систему. Успешность и
трудоемкость этого этапа определяется во многом принятым на этапе проек-
тирования способом разбиения на модули и средствами их реализации на
этапе программирования. Применение стандартных средств поддержки мо-
Страницы
- « первая
- ‹ предыдущая
- …
- 111
- 112
- 113
- 114
- 115
- …
- следующая ›
- последняя »