Различия

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

--- bb:redbook:202 [2017/08/30 16:50]
prospero78 [2.4 Вывод данных на экран]
+++ bb:redbook:202 [2017/08/30 16:59]
prospero78 [2.5 Общий вид программы]
@@ Строка 116: / Строка 116: @@
 ==== 2.5 Общий вид программы ====
 Для запуска всей программы нужно определить запускающую процедуру с признаком экспорта. Пусть она по традиции будет называться "Start". Также нельзя забывать про правило упреждающего объявления (вспоминаем содержание прошлых глав). Полный текст программы ниже.
+  Привет9.odc
 <code oberon2>
-MODULE TestHello9;
+MODULE КнигаПривет9;
 	(* это программа на языке
 	Компонетный Паскаль. Она показывает
@@ Строка 125: / Строка 128: @@
 	CONST
-		_sig_max = 256;
+		_разм = 256;
 	VAR
-		p1: SHORTINT;
+		цШум_низ: SHORTINT;
-		p2: SHORTINT;
+		цШум_верх: SHORTINT;
-		sig: ARRAY _sig_max OF SHORTINT;
+		мцСигнал: ARRAY _разм OF SHORTINT;
-		i: INTEGER;
+		цИтер: INTEGER;
-		tmp: INTEGER;
+		цВрем: INTEGER;
-	PROCEDURE GetSignal;
+	PROCEDURE Сигнал_Получ;
 	BEGIN
-		FOR i := 0 TO ( _sig_max - 1) DO
+		FOR цИтер := 0 TO(_разм - 1) DO
-			sig[i] := 0
+			мцСигнал[цИтер] := 0
 		END;
-		i := 0;
+		цИтер := 0;
 		In.Open;
-		WHILE (In.Done) & ( i < _sig_max ) DO
+		WHILE (In.Done) & (цИтер < _разм) DO
-			In.Int(tmp);
+			In.Int(цВрем);
-			sig[i] := SHORT(tmp);
+			мцСигнал[цИтер] := SHORT(цВрем);
-			INC(i)
+			INC(цИтер)
 		END;
-	END GetSignal;
+	END Сигнал_Получ;
-	PROCEDURE LimitSig;
+	PROCEDURE Сигнал_Ограничить;
 	BEGIN
-		p1 := 50;
+		цШум_низ := 50;
-		p2 := 1000;
+		цШум_верх := 1000;
-		FOR i := 0 TO _sig_max - 1 DO
+		FOR цИтер := 0 TO _разм - 1 DO
-			IF sig[i] < p1 THEN
+			IF мцСигнал[цИтер] < цШум_низ THEN
-				sig[i] := 0
+				мцСигнал[цИтер] := 0
-			ELSIF sig[i] > p2 THEN
+			ELSIF мцСигнал[цИтер] > цШум_верх THEN
-				sig[i] := 600
+				мцСигнал[цИтер] := 600
 			ELSE
-				sig[i] := 500
+				мцСигнал[цИтер] := 500
 			END;
 		END;
-	END LimitSig;
+	END Сигнал_Ограничить;
-	PROCEDURE OutSig;
+	PROCEDURE Сигнал_Печать;
 		CONST
-			_p = "."; (* пауза в передаче сигнала *)
+			_п = "."; (* пауза в передаче сигнала *)
 			_s = "#"; (* полезный сигнал *)
-			_m = "^"; (* молния? *)
+			_м = "^"; (* молния? *)
 	BEGIN
 		Log.String('[Начало приёма]'); Log.Ln;
-		FOR i := 0 TO _sig_max - 1 DO
+		FOR цИтер := 0 TO _разм - 1 DO
-			IF sig[i] = 0 THEN
+			IF мцСигнал[цИтер] = 0 THEN
-				Log.String(_p)
+				Log.String(_п)
-			ELSIF sig[i] = 500 THEN
+			ELSIF мцСигнал[цИтер] = 500 THEN
 				Log.String(_s)
 			ELSE
-				Log.String(_m)
+				Log.String(_м)
 			END;
 		END;
 		Log.Ln; Log.String('[Конец приёма]'); Log.Ln
-	END OutSig;
+	END Сигнал_Печать;
-	PROCEDURE Start*;
+	PROCEDURE Старт*;
 		VAR
 	BEGIN
-		GetSignal;
+		Сигнал_Получ;
-		LimitSig;
+		Сигнал_Ограничить;
-		OutSig
+		Сигнал_Печать
-	END Start;
+	END Старт;
 BEGIN
-END TestHello9.
+END КнигаПривет9.</code>
-</code>
-В процедуре ''Start'' определены последовательные вызовы для обработки цифрового сигнала. Код разбит на довольно мелкие процедуры, что вполне позволяет оценить, что делает каждая из них даже без комментариев.
+В процедуре ''Старт'' определены последовательные вызовы для обработки цифрового сигнала. Код разбит на довольно мелкие процедуры, что вполне позволяет оценить, что делает каждая из них даже без комментариев.
+Кроме того, обратите внимание, что литера "О" у нас нигде не используется, а значит она не нужна в константах, но это становится понятно, только получения рабочего кода.
+И обратите внимание, что все три вызова внутренних процедур внутри процедуры ''Старт'' есть ничто иное, как прямое указание-подсказка на создание типа ''тСигнал'', с привязкой этих процедур к этому типу.
 ==== 2.6 Исходные данные и результат ====

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

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

Различия

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