Различия

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

--- bb:redbook:202 [2017/08/30 16:47]
prospero78 [2.3 Отбор данных]
+++ bb:redbook:202 [2017/08/30 16:50]
prospero78 [2.4 Вывод данных на экран]
@@ Строка 94: / Строка 94: @@
 Часть символов ("#" и ".") уже представлено по условию задачи, и они обозначают "есть сигнал" и "нет сигнала" соответственно. Но у нас появился ещё один сигнал, значение которого равно "600". И его надо как-то тоже обозначать. Поскольку он превышает нормальный уровень нужно визуально указать на этот факт. Очень удобно будет использовать символ "^". Ниже примерный вид процедуры, который мог бы это сделать:
 <code oberon2>
-PROCEDURE OutSig;
+PROCEDURE Сиг_Вывести;
 	CONST
-		_p = " "; (* пауза в передаче сигнала *)
+		_п = " "; (* пауза в передаче сигнала *)
 		_s = "#"; (* полезный сигнал *)
-		_m = "^"; (* молния? *)
+		_м = "^"; (* молния? *)
 BEGIN
-	Log.String('[Начало приёма]'); Log.Ln;
+	мЛог.String('[Начало приёма]'); мЛог.Ln;
-	FOR i := 0 TO _sig_max - 1 DO
+	FOR цИтер := 0 TO _разм - 1 DO
-		IF sig[i] = 0 THEN
+		IF мцСигнал[i] = 0 THEN
-			Log.String(_p)
+			мЛог.String(_п)
-		ELSIF sig[i] = 500 THEN
+		ELSIF мцСиг[i] = 500 THEN
-			Log.String(_s)
+			мЛог.String(_s)
 		ELSE
-			Log.String(_m)
+			мЛог.String(_м)
 		END;
 	END;
-	Log.Ln; Log.String('[Конец приёма]'); Log.Ln
+	мЛог.Ln; мЛог.String('[Конец приёма]'); мЛог.Ln
-END OutSig;
+END Сиг_Вывести;
 </code>

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

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

Различия

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