Rosetta Code

Currency: Difference between revisions

Page Discussion

Currency (view source)

Revision as of 10:04, 7 August 2023

170 bytes added ,  10 months ago
m
→‎{{header|FutureBasic}}
Line 782:
<syntaxhighlight lang="futurebasic">
local fn Lunch_Invoice( burger_price as CFStringRef, burger_amount as CFStringRef, shake_price as CFStringRef, shake_amount as CFStringRef, tax as CFStringRef )
'~'1
DecimalNumberRef burgerPriceDecimal = fn DecimalNumberWithString( burger_price )▼
DecimalNumberRef burgerAmountDecimal burgerPriceDecimal = fn DecimalNumberWithString( burger_amountburger_price )
DecimalNumberRef burgersDecimalburgerAmountDecimal = fn DecimalNumberByMultiplyingByDecimalNumberWithString( burgerPriceDecimal, burgerAmountDecimalburger_amount )
DecimalNumberRef burgersDecimal = fn DecimalNumberByMultiplyingBy( burgerPriceDecimal, burgerAmountDecimal )
DecimalNumberRef shakePriceDecimal = fn DecimalNumberWithString( shake_price )
DecimalNumberRef shakeAmountDecimal shakePriceDecimal = fn DecimalNumberWithString( shake_amountshake_price )
DecimalNumberRef shakesDecimalshakeAmountDecimal = fn DecimalNumberByMultiplyingByDecimalNumberWithString( shakePriceDecimal, shakeAmountDecimalshake_amount )
DecimalNumberRef taxDecimalshakesDecimal = fn DecimalNumberWithStringDecimalNumberByMultiplyingBy( taxshakePriceDecimal, shakeAmountDecimal )
DecimalNumberRef taxDecimal = fn DecimalNumberWithString( tax )
DecimalNumberRef subtotalDecimal = fn DecimalNumberByAdding( burgersDecimal, shakesDecimal )▼
DecimalNumberRef taxTotalDecimalsubtotalDecimal = fn DecimalNumberByMultiplyingByDecimalNumberByAdding( subtotalDecimalburgersDecimal, taxDecimalshakesDecimal )
DecimalNumberRef DecimalNumberRef billTotalDecimaltaxTotalDecimal = fn DecimalNumberByAddingDecimalNumberByMultiplyingBy( subtotalDecimal, taxTotalDecimaltaxDecimal )
▲ DecimalNumberRef burgerPriceDecimaladjTaxTotalDecimal = fn DecimalNumberByAdding( taxTotalDecimal, fn DecimalNumberWithString( burger_price@"0.01" ) )
▲ DecimalNumberRef subtotalDecimalbillTotalDecimal = fn DecimalNumberByAdding( burgersDecimalsubtotalDecimal, shakesDecimaladjTaxTotalDecimal )
CFStringRef burgersString = fn DecimalNumberString( burgersDecimal )▼
 
CFStringRef shakesString = fn DecimalNumberString( shakesDecimal )▼
CFStringRef taxTotalString burgersString = fn DecimalNumberString( taxTotalDecimalburgersDecimal )
CFStringRef CFStringRef billTotalString shakesString = fn DecimalNumberString( billTotalDecimalshakesDecimal )
▲ CFStringRef burgersStringtaxTotalString = fn DecimalNumberString( burgersDecimal adjTaxTotalDecimal )
▲ CFStringRef shakesStringbillTotalString = fn DecimalNumberString( shakesDecimal billTotalDecimal )
printf @"%@", fn StringByPaddingToLength( @"", 55, @"-", 0 )▼
 
printf @"Item Price Quantity Cost"▼
▲ printf @"%@", fn StringByPaddingToLength( @"", 55, @"-", 0 )
printf @"Hamburgers %6s %18s %18s", fn StringUTF8String( burger_price ), fn StringUTF8String( burger_amount ), fn StringUTF8String( burgersString )▼
▲ printf @"Item Price Quantity Cost"
printf @"Milkshakes %6s %18s %18s", fn StringUTF8String( shake_price ), fn StringUTF8String( shake_amount ), fn StringUTF8String( shakesString )
▲ printf @"Hamburgers %6s %18s %18s", fn StringUTF8String( burger_price ), fn StringUTF8String( burger_amount ), fn StringUTF8String( burgersString )
printf @"%@", fn StringByPaddingToLength( @"", 55, @"-", 0 )
printf @"Milkshakes %31s6s %@18s %18s", fn StringUTF8String( @"Subtotal:"shake_price ), fn StringUTF8String( shake_amount ), fn DecimalNumberStringStringUTF8String( subtotalDecimalshakesString )
printf @"%32s %@", fn StringUTF8StringStringByPaddingToLength( @"", 55, @"-", Tax: "0 ), taxTotalString
printf @"%31s34s %@", fn StringUTF8String( @" TotalSubtotal:" ), billTotalStringfn DecimalNumberString( subtotalDecimal )
printf @"%35s %@", fn StringUTF8String( @" Tax: " ), fn StringSubstringToIndex( taxTotalString, len(taxTotalString) - 3 )
printf @"%34s %@", fn StringUTF8String( @" Total:" ), fn StringSubstringToIndex( billTotalString, len(billTotalString) - 3 )
end fn
 
NSLog( @"%@", fn WindowPrintViewString( 1 ) )
fn Lunch_Invoice( @"5.50", @"4000000000000000", @"2.86", @"2", @"0.0765" )
 
HandleEvents
Line 819 ⟶ 821:
Milkshakes 2.86 2 5.72
-------------------------------------------------------
Subtotal: 22000000000000005.72
Tax: 1683000000000000.4375844
Total: 23683000000000006.1575816
 
</pre>
KenS
719

edits

Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/347650"