Различия

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

--- cp:obx-simple-file-write [2019/01/05 21:24]
иван_денисов
+++ cp:obx-simple-file-write [2021/06/24 14:53] (текущий)
iadenisov
@@ Строка 1: / Строка 1: @@
 ====== Запись действительного числа в файл ======
+[[:blackbox|Блэкбокс]] предоставляет высокоуровневые абстракции для работы с текстами, однако иногда необходима возможность прямой манипуляции с текстовыми файлами в формате ASCII. Полный пример реализации минимально необходимых функций для работы с ASCII вы найдете в модуле **Obx/Mod/Ascii.odc**.
+Ниже представлен пример записи действительных чисел в файл низкоуровневом режиме работы с байтами через модуль Files.
 <code>
@@ Строка 7: / Строка 10: @@
 IMPORT Files, Strings, Math;
-PROCEDURE WriteReal(wr: Files.Writer; r: REAL);
+PROCEDURE WriteReal (wr: Files.Writer; r: REAL);
 VAR str: ARRAY 64 OF CHAR; i: INTEGER;
 BEGIN
 	Strings.RealToString(r, str);
-	i:=0;
+	FOR i := 0 TO LEN(str$) - 1 DO
-	WHILE (i < LEN(str)) & (str[i] # 0X) DO
+		wr.WriteByte(SHORT(SHORT(ORD(str[i]))))
-		wr.WriteByte(SHORT(SHORT(ORD(str[i]))));
-		INC(i)
 	END
 END WriteReal;
-PROCEDURE WriteLn(wr: Files.Writer);
+PROCEDURE WriteLn (wr: Files.Writer);
 BEGIN
-	wr.WriteByte(0DH);
+	wr.WriteByte(0DH); wr.WriteByte(0AH)
-	wr.WriteByte(0AH);
 END WriteLn;
@@ Строка 31: / Строка 31: @@
 	WriteReal(wr, Math.Pi());
 	WriteLn(wr);
-	WriteReal(wr, Math.Pi());
+	WriteReal(wr, Math.Pi() / 2);
 	WriteLn(wr);
 	f.Register("demo", "txt", Files.dontAsk, res);

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

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

Различия

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