Различия

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

--- bb:redbook:202 [2017/08/30 16:59]
prospero78 [2.4 Вывод данных на экран]
+++ bb:redbook:202 [2017/08/30 17:01]
prospero78 [2.5 Общий вид программы]
@@ Строка 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>
 В процедуре ''Старт'' определены последовательные вызовы для обработки цифрового сигнала. Код разбит на довольно мелкие процедуры, что вполне позволяет оценить, что делает каждая из них даже без комментариев.

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

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

Различия

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