Explorar o código

+ Added examples 81 and 82

michael %!s(int64=27) %!d(string=hai) anos
pai
achega
532fb94282
Modificáronse 4 ficheiros con 28 adicións e 2 borrados
  1. 1 1
      docs/refex/Makefile
  2. 3 1
      docs/refex/README
  3. 12 0
      docs/refex/ex81.pp
  4. 12 0
      docs/refex/ex82.pp

+ 1 - 1
docs/refex/Makefile

@@ -38,7 +38,7 @@ OBJECTS=ex1 ex2 ex3 ex4 ex5 ex6 ex7 ex8 ex9 ex10 ex11 ex12 ex13 ex14 \
         ex41 ex42 ex43 ex44 ex45 ex46 ex47 ex48 ex49 ex50 ex51 ex52 ex53 \
         ex54 ex55 ex56 ex57 ex58 ex59 ex60 ex61 ex62 ex63 ex64 ex65 ex66 \
         ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77 ex78 ex79 \
-	ex80
+	ex80 ex81 ex82
 
 TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))
 

+ 3 - 1
docs/refex/README

@@ -82,4 +82,6 @@ ex76.pp contains an example of the FillWord function.
 ex77.pp contains an example of the Rename function.
 ex78.pp contains an example of the Power function.
 ex79.pp contains an example of the SetJmp/LongJmp functions.
-ex80.pp contains an example of the High/Low functions.
+ex80.pp contains an example of the High/Low functions.
+ex81.pp contains an example of the HexStr function.
+ex82.pp contains an example of the BinStr function.

+ 12 - 0
docs/refex/ex81.pp

@@ -0,0 +1,12 @@
+Program example81;
+
+{ Program to demonstrate the HexStr function }
+
+Const Value = 45678;
+
+Var I : longint;
+
+begin
+  For I:=1 to 10 do
+    Writeln (HexStr(Value,I));
+end.

+ 12 - 0
docs/refex/ex82.pp

@@ -0,0 +1,12 @@
+Program example81;
+
+{ Program to demonstrate the BinStr function }
+
+Const Value = 45678;
+
+Var I : longint;
+
+begin
+  For I:=8 to 20 do
+    Writeln (BinStr(Value,I):20);
+end.