Различия

Показаны различия между двумя версиями страницы.

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

Инструменты пользователя

Инструменты сайта

Различия

Инструменты страницы