+ Added examples 81 and 82

This commit is contained in:
michael 1998-10-01 12:51:48 +00:00
parent ae7c110614
commit 532fb94282
4 changed files with 28 additions and 2 deletions

View File

@ -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))

View File

@ -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
docs/refex/ex81.pp Normal file
View File

@ -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
docs/refex/ex82.pp Normal file
View File

@ -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.