paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 17:09:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ Added examples 81 and 82

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
docs/refex/Makefile
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 \ 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))

2
docs/refex/README
View File

@ -83,3 +83,5 @@ 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
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.