ВУЗ:
Составители:
Рубрика:
36
BEGIN
init;
makemassiv;
writegrafic;
repeat
workDAC;
until keypressed;
readkey;
END.
Здесь процедуры init, makemassiv, workDAC выполняют функции, соот-
ветствующие пунктам 1, 2, 3. Функция writegrafic выводит на дисплей график
сигнала для сравнения с тем, что появляется на экране осциллографа.
Цикл «repeat workDAC until keypressed» обеспечивает выдачу данных в
цикле, прерываемом при положительном значении функции keypressed. Это
стандартная функция языка Паскаль, которая выдает логическое значение
TRUE, если
была нажата какая-либо клавиша. Нажатие клавиши обрабатыва-
ется функцией readkey. Это тоже стандартная функция Паскаля. Она обраба-
тывает код нажатой клавиши. Поскольку принципиального значения в нашем
случае этот код не имеет, значение функции не обрабатывается.
В заголовке программы необходимо также описать, какие модули мы
будем использовать:
uses dos,crt,graph;
Модуль dos работает с
портами, crt — с клавиатурой, graph — с экра-
ном. В этих модулях находятся стандартные процедуры, которые понадо-
бятся нам при составлении программы.
Выделим память под массив данных для ЦАП; обозначим сам массив
а, а количество выводимых точек — n. Пусть оно будет равно 1000. Также
определим номер станции ЦАП и номер используемого ЦАП в модуле.
Во
время работы программ они не изменятся, поэтому их можно обозначить
как константы:
const n = 1000; {Число точек для вывода}
DACN = 6; {Номер станции ЦАП}
SubDac = 0; {Номер ЦАП}.
Значения индекса цикла и массива данных будут изменяться во время
работы программы, поэтому их мы обозначим как переменные:
var a:array[1..1000] of word; {Массив данных}
i:word; {Индекс цикла}.
Страницы
- « первая
- ‹ предыдущая
- …
- 34
- 35
- 36
- 37
- 38
- …
- следующая ›
- последняя »
