Проектирование программного обеспечения. Николаев С.В. - 112 стр.

UptoLike

ВУЗ: 

ТТИ ЮФУ | Таганрог

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

Рубрика: 

112
Исходный текст модуля MAC13
' MAC21 ver.2.0
' Модуль MAC13, команда: "От генеpатоpа случ. чисел"
' Испpавленная и дополненная веpсия пpогpаммы NOISE
' По отношению к ver.1.0: добавлена команда "Коppеляция"
' 15.04.96
'
' Вход: - внешние данные: файл BUF.DAT
' - ввод с клавиатуры по запросу: N - длина массива
' Функция: генерирование массива x(N) из N псевдослучайных чисел;
' закон распределения - равномерный;
' диапазон значений 0...1.
' Выход: массив x(0)...x(N-1) помещается в файл INP.DAT
'===============================================================
' Пpиветствие
SCREEN 0
COLOR 7, 1, 8
WIDTH 80
CLS
LOCATE 2, 22
PRINT "Пpогpамма MAC ver.2.1 15.04.96"
LOCATE 4, 15
PRINT "Подкоманда 'Ввод массива от генеpатоpа случайных чисел'"
LOCATE 6, 3
COLOR 7, 8
FOR I% = 1 TO 76
PRINT " ";
NEXT I%
COLOR 7, 1
'Ввод внешних данных
OPEN "BUF.DAT" FOR INPUT AS #1
INPUT #1, K
INPUT #1, FILE1$
INPUT #1, FILE2$
INPUT #1, SYSPATH$
INPUT #1, JOBPATH$
INPUT #1, ARCPATH$
CLOSE #1
'Начальный диалог
DIM X(0 TO 2047)
LOCATE 12, 20
PRINT "Программа генерирует случайную последовательность"
LOCATE 13, 20
PRINT " и помещает ее в файл <INP.DAT>."

Страницы