Sfoglia il codice sorgente

Reals: comments adjusted

Arthur Yefimov 2 anni fa
parent
commit
277f23ea7a
1 ha cambiato i file con 4 aggiunte e 3 eliminazioni
  1. 4 3
      src/Reals.Mod

+ 4 - 3
src/Reals.Mod

@@ -10,10 +10,11 @@ TYPE
   REAL = SYSTEM.REAL32;
   CHAR = SYSTEM.CHAR16;
 
-  LONGREAL* = SYSTEM.REAL64;
+  LONGREAL* = SYSTEM.REAL64; (** 64-bit long real number
+%RU                              64-битное длинное вещественное число *)
 
-VAR Done-: BOOLEAN; (* Indicates the success of the last conversion operation
-%RU                    Указывает на успешность последней операции перевода *)
+VAR Done-: BOOLEAN; (** Indicates the success of the last procedure call
+%RU                     Означает успешность последнего вызова процедуры *)
 
 PROCEDURE Ten(e: INTEGER): LONGREAL;
 VAR r, power: LONGREAL;