Data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · cb5bb5e222
commit cb5bb5e222
parent 7387c8f97b
199093 changed files with 3378972 additions and 0 deletions
--- a/Task/Convert-decimal-number-to-rational/Delphi/convert-decimal-number-to-rational.delphi
+++ b/Task/Convert-decimal-number-to-rational/Delphi/convert-decimal-number-to-rational.delphi
@ -0,0 +1,24 @@
+program Convert_decimal_number_to_rational;
+
+{$APPTYPE CONSOLE}
+
+uses
+  Velthuis.BigRationals,
+  Velthuis.BigDecimals;
+
+const
+  Tests: TArray<string> = ['0.9054054', '0.518518', '0.75'];
+
+var
+  Rational: BigRational;
+  Decimal: BigDecimal;
+
+begin
+  for var test in Tests do
+  begin
+    Decimal := test;
+    Rational := Decimal;
+    Writeln(test, ' = ', Rational.ToString);
+  end;
+  Readln;
+end.