From 25c324f705261895687ab6551414babc7eff8245 Mon Sep 17 00:00:00 2001
From: lazarus-bart <lazarus-bart@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 18 Nov 2015 15:27:37 +0000
Subject: [PATCH] Fractions: add an example program.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4393 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fractions/example.lpr | 44 ++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 components/fractions/example.lpr

diff --git a/components/fractions/example.lpr b/components/fractions/example.lpr
new file mode 100644
index 000000000..07dc658bc
--- /dev/null
+++ b/components/fractions/example.lpr
@@ -0,0 +1,44 @@
+program example;
+
+{$mode objfpc}{$H+}
+{$apptype console}
+
+uses
+  Classes, sysutils, fractions, math;
+
+var
+  F1, F2: TFraction;
+  D, Prec: Double;
+  i: Integer;
+begin
+  F1 := Fraction(1,1,3); // 1 1/3
+  F2 := Fraction(4,3);   // 4/3
+  writeln('F1.ToString = ',F1.ToString); // '4/3'
+  writeln('F1.Resolve  = ',F1.Resolve);  // '1 1/3'
+  writeln('F1.ToFloat  = ',F1.ToFloat:16:16); // 1.3333333333333333
+  writeln('F2.ToString = ',F2.ToString); // '4/3'
+  writeln('(F1 = F2)   = ',F1=F2);         //True
+
+  F1 := Fraction(1,2);
+  F2 := Fraction(1,3);
+  writeln(F1.ToString,' * ',F2.ToString,'   = ',(F1*F2).Resolve);  // '1/6'
+  writeln(F1.ToString,' / ',F2.ToString,'   = ',(F1/F2).Resolve);  // '1 1/2'
+  writeln(F1.ToString,' + ',F2.ToString,'   = ',(F1+F2).Resolve);  // '5/6'
+  writeln(F1.ToString,' - ',F2.ToString,'   = ',(F1-F2).Resolve);  // '1/6'
+  writeln(F1.ToString,' ** 2    = ',(F1**2).Resolve);  // '1/6'
+
+  D := 0.25;
+  F1 := FloatToFraction(D, 0.000001);
+  writeln('FloatTofraction(0.25) -> ',F1.ToString);   // '1/4'
+  writeln;
+  writeln('Approximations of Pi:');
+  writeln('                                              [Pi = ',Pi:16:16,']');
+  Prec := 1.0;
+  for i := 1 to 10 do
+  begin
+    Prec := Prec / 10;
+    F2 := FloatTofraction(Pi, Prec);
+    writeln('FloatTofraction(Pi,',Prec:10:10,') = ',Format('%-13s',[F2.Resolve]),'   [',F2.ToFloat:16:16,']');
+  end;
+end.
+