Показаны различия между двумя версиями страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
bb:redbook:202 [2017/08/30 16:59] prospero78 [2.5 Общий вид программы] |
bb:redbook:202 [2020/10/29 07:08] (текущий) |
||
---|---|---|---|
Строка 94: | Строка 94: | ||
Часть символов ("#" | Часть символов ("#" | ||
<code oberon2> | <code oberon2> | ||
- | PROCEDURE Сиг_Вывести; | + | PROCEDURE Сигнал_Печать; |
CONST | CONST | ||
_п = " "; (* пауза в передаче сигнала *) | _п = " "; (* пауза в передаче сигнала *) | ||
Строка 111: | Строка 111: | ||
END; | END; | ||
мЛог.Ln; | мЛог.Ln; | ||
- | END Сиг_Вывести; | + | END Сигнал_Печать; |
</ | </ | ||
Строка 125: | Строка 125: | ||
как можно вводить данные и обрабатывать их*) | как можно вводить данные и обрабатывать их*) | ||
- | IMPORT In, Log, Math; | + | IMPORT |
+ | мЛог := Log, | ||
+ | Math; | ||
CONST | CONST | ||
Строка 143: | Строка 145: | ||
END; | END; | ||
цИтер := 0; | цИтер := 0; | ||
- | In.Open; | + | мВв.Open; |
- | WHILE (In.Done) & (цИтер < _разм) DO | + | WHILE (мВв.Done) & (цИтер < _разм) DO |
- | In.Int(цВрем); | + | мВв.Int(цВрем); |
мцСигнал[цИтер] := SHORT(цВрем); | мцСигнал[цИтер] := SHORT(цВрем); | ||
INC(цИтер) | INC(цИтер) | ||
Строка 172: | Строка 174: | ||
_м = " | _м = " | ||
BEGIN | BEGIN | ||
- | Log.String(' | + | мЛог.String(' |
FOR цИтер := 0 TO _разм - 1 DO | FOR цИтер := 0 TO _разм - 1 DO | ||
IF мцСигнал[цИтер] = 0 THEN | IF мцСигнал[цИтер] = 0 THEN | ||
- | Log.String(_п) | + | мЛог.String(_п) |
ELSIF мцСигнал[цИтер] = 500 THEN | ELSIF мцСигнал[цИтер] = 500 THEN | ||
- | Log.String(_s) | + | мЛог.String(_s) |
ELSE | ELSE | ||
- | Log.String(_м) | + | мЛог.String(_м) |
END; | END; | ||
END; | END; | ||
- | Log.Ln; Log.String(' | + | мЛог.Ln; мЛог.String(' |
END Сигнал_Печать; | END Сигнал_Печать; | ||
Строка 194: | Строка 196: | ||
BEGIN | BEGIN | ||
- | END КнигаПривет9.</ | + | END КнигаПривет9. |
+ | </ | ||
В процедуре '' | В процедуре '' | ||
Строка 213: | Строка 216: | ||
В результате компиляции и выполнения программы будет выведена следующая информация: | В результате компиляции и выполнения программы будет выведена следующая информация: | ||
- | < | + | |
- | компилируется "TestHello9" | + | компилируется "КнигаПривет9" |
- | старый модуль | + | старый модуль |
- | [Начало приёма] | + | [Начало приёма] |
- | ..# | + | ..# |
- | ........................................................................................................... | + | |
- | .......................................... | + | |
- | [Конец приёма] | + | [Конец приёма] |
- | </ | + | |
Обратите внимание на размер всей программы: | Обратите внимание на размер всей программы: | ||
Из выведенного сигнала видно, что была передана комбинация букв: "SOS SOS O". В первом случае сигнал был детектирован(выделен) точно. Во втором случае, | Из выведенного сигнала видно, что была передана комбинация букв: "SOS SOS O". В первом случае сигнал был детектирован(выделен) точно. Во втором случае, | ||
+ | |||
+ | ==== Задание ==== | ||
+ | * Сделайте так, чтобы литера " | ||
+ | * Доработайте так, чтобы вместо морзянки выводились литеры | ||
+ | * Попробуйте сделать с помощью типа '' |