mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-19 20:59:42 +02:00
+ Added examples 81 and 82
This commit is contained in:
parent
ae7c110614
commit
532fb94282
@ -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))
|
||||
|
||||
|
@ -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
12
docs/refex/ex81.pp
Normal 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
12
docs/refex/ex82.pp
Normal 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.
|
Loading…
Reference in New Issue
Block a user