aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-10-16 18:07:41 -07:00
parent 81fd053722
commit 52a6ef48dd
10248 changed files with 63654 additions and 6775 deletions
Download patch file Download diff file Expand all files Collapse all files

19
Task/Currency/PascalABC.NET/currency.pas Normal file
View file

@ -0,0 +1,19 @@
##
var items := dict(arr(('hamburger', (decimal(5.5), decimal(4000000000000000))),
('milkshake', (decimal(2.86), decimal(2)))));
var tax_rate := decimal(0.0765);
var total_before_tax := decimal(0);
foreach var item in items.keys do
begin
var (price, quant) := items[item];
var ext := price * quant;
total_before_tax := total_before_tax + ext;
end;
WritelnFormat('Total before tax {0:f2}', total_before_tax);
var tax := tax_rate * total_before_tax;
WritelnFormat('Tax {0:f2}', tax);
var total := total_before_tax + tax;
WritelnFormat('Total with tax {0:f2}', total);