Browse Source

+ Added examples 81 and 82

michael 27 years ago
parent
commit
532fb94282
4 changed files with 28 additions and 2 deletions
  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 \
         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 \
         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 \
         ex67 ex68 ex69 ex70 ex71 ex72 ex73 ex74 ex75 ex76 ex77 ex78 ex79 \
-	ex80
+	ex80 ex81 ex82
 
 
 TEXOBJECTS=$(addsuffix .tex, $(OBJECTS))
 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.
 ex77.pp contains an example of the Rename function.
 ex78.pp contains an example of the Power function.
 ex78.pp contains an example of the Power function.
 ex79.pp contains an example of the SetJmp/LongJmp functions.
 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.