Rosetta Code

Price fraction: Difference between revisions

Page Discussion

Price fraction (view source)

Revision as of 18:01, 16 October 2012

2,823 bytes added ,  11 years ago
m
→‎{{header|REXX}}: added DO-END comment label, changed indentation, added extra spacing in output, added comments, added whitespace, added subroutine fence. -- ~~~~
(Add XPL0)
m (→‎{{header|REXX}}: added DO-END comment label, changed indentation, added extra spacing in output, added comments, added whitespace, added subroutine fence. -- ~~~~)
Line 1,842:
 
=={{header|REXX}}==
<lang rexx>/*REXX program to rescale a (decimal fraction) price (0.99 -->──► 1.00). */
pad=' ' /*for inserting spaces into msg. */
do j=0 to 1 by .01
do j=0 to 1 by .01; if j==0 then j=0.00 /*special case.*/
say pad 'original price--> ──►' j "pad " adjustPriceadjPrice(j) '<--" ◄── adjusted price'"
end /*j*/
exit /*stick a fork in it, we're done.*/
exit
/*──────────────────────────────────ADJPRICE subroutine─────────────────*/
/*------------------------------------------------------------------*/
adjustPriceadjPrice: procedure; parse arg x?
select
when x?<0.06 then x?=0.10
when x?<0.11 then x?=0.18
when x?<0.16 then x?=0.26
when x?<0.21 then x?=0.32
when x?<0.26 then x?=0.38
when x?<0.31 then x?=0.44
when x?<0.36 then x?=0.50
when x?<0.41 then x?=0.54
when x?<0.46 then x?=0.58
when x?<0.51 then x?=0.62
when x?<0.56 then x?=0.66
when x?<0.61 then x?=0.70
when x?<0.66 then x?=0.74
when x?<0.71 then x?=0.78
when x?<0.76 then x?=0.82
when x?<0.81 then x?=0.86
when x?<0.86 then x?=0.90
when x?<0.91 then x?=0.94
when x?<0.96 then x?=0.98
when x?<1.01 then x?=1.00
otherwise nop
end /*select*/
return x?</lang>
'''output'''
<pre style="height:30ex;overflow:scroll">
original price--> ──► 0.00 0.10 <-- ◄── adjusted price
original price--> ──► 0.01 0.10 <-- ◄── adjusted price
original price--> ──► 0.02 0.10 <-- ◄── adjusted price
original price--> ──► 0.03 0.10 <-- ◄── adjusted price
original price--> ──► 0.04 0.10 <-- ◄── adjusted price
original price--> ──► 0.05 0.10 <-- ◄── adjusted price
original price--> ──► 0.06 0.18 <-- ◄── adjusted price
original price--> ──► 0.07 0.18 <-- ◄── adjusted price
original price--> ──► 0.08 0.18 <-- ◄── adjusted price
original price--> ──► 0.09 0.18 <-- ◄── adjusted price
original price--> ──► 0.10 0.18 <-- ◄── adjusted price
original price--> ──► 0.11 0.26 <-- ◄── adjusted price
original price--> ──► 0.12 0.26 <-- ◄── adjusted price
original price--> ──► 0.13 0.26 <-- ◄── adjusted price
original price--> ──► 0.14 0.26 <-- ◄── adjusted price
original price--> ──► 0.15 0.26 <-- ◄── adjusted price
original price--> ──► 0.16 0.32 <-- ◄── adjusted price
original price--> ──► 0.17 0.32 <-- ◄── adjusted price
original price--> ──► 0.18 0.32 <-- ◄── adjusted price
original price--> ──► 0.19 0.32 <-- ◄── adjusted price
original price--> ──► 0.20 0.32 <-- ◄── adjusted price
original price--> ──► 0.21 0.38 <-- ◄── adjusted price
original price--> ──► 0.22 0.38 <-- ◄── adjusted price
original price--> ──► 0.23 0.38 <-- ◄── adjusted price
original price--> ──► 0.24 0.38 <-- ◄── adjusted price
original price--> ──► 0.25 0.38 <-- ◄── adjusted price
original price--> ──► 0.26 0.44 <-- ◄── adjusted price
original price--> ──► 0.27 0.44 <-- ◄── adjusted price
original price--> ──► 0.28 0.44 <-- ◄── adjusted price
original price--> ──► 0.29 0.44 <-- ◄── adjusted price
original price--> ──► 0.30 0.44 <-- ◄── adjusted price
original price--> ──► 0.31 0.50 <-- ◄── adjusted price
original price--> ──► 0.32 0.50 <-- ◄── adjusted price
original price--> ──► 0.33 0.50 <-- ◄── adjusted price
original price--> ──► 0.34 0.50 <-- ◄── adjusted price
original price--> ──► 0.35 0.50 <-- ◄── adjusted price
original price--> ──► 0.36 0.54 <-- ◄── adjusted price
original price--> ──► 0.37 0.54 <-- ◄── adjusted price
original price--> ──► 0.38 0.54 <-- ◄── adjusted price
original price--> ──► 0.39 0.54 <-- ◄── adjusted price
original price--> ──► 0.40 0.54 <-- ◄── adjusted price
original price--> ──► 0.41 0.58 <-- ◄── adjusted price
original price--> ──► 0.42 0.58 <-- ◄── adjusted price
original price--> ──► 0.43 0.58 <-- ◄── adjusted price
original price--> ──► 0.44 0.58 <-- ◄── adjusted price
original price--> ──► 0.45 0.58 <-- ◄── adjusted price
original price--> ──► 0.46 0.62 <-- ◄── adjusted price
original price--> ──► 0.47 0.62 <-- ◄── adjusted price
original price--> ──► 0.48 0.62 <-- ◄── adjusted price
original price--> ──► 0.49 0.62 <-- ◄── adjusted price
original price--> ──► 0.50 0.62 <-- ◄── adjusted price
original price--> ──► 0.51 0.66 <-- ◄── adjusted price
original price--> ──► 0.52 0.66 <-- ◄── adjusted price
original price--> ──► 0.53 0.66 <-- ◄── adjusted price
original price--> ──► 0.54 0.66 <-- ◄── adjusted price
original price--> ──► 0.55 0.66 <-- ◄── adjusted price
original price--> ──► 0.56 0.70 <-- ◄── adjusted price
original price--> ──► 0.57 0.70 <-- ◄── adjusted price
original price--> ──► 0.58 0.70 <-- ◄── adjusted price
original price--> ──► 0.59 0.70 <-- ◄── adjusted price
original price--> ──► 0.60 0.70 <-- ◄── adjusted price
original price--> ──► 0.61 0.74 <-- ◄── adjusted price
original price--> ──► 0.62 0.74 <-- ◄── adjusted price
original price--> ──► 0.63 0.74 <-- ◄── adjusted price
original price--> ──► 0.64 0.74 <-- ◄── adjusted price
original price--> ──► 0.65 0.74 <-- ◄── adjusted price
original price--> ──► 0.66 0.78 <-- ◄── adjusted price
original price--> ──► 0.67 0.78 <-- ◄── adjusted price
original price--> ──► 0.68 0.78 <-- ◄── adjusted price
original price--> ──► 0.69 0.78 <-- ◄── adjusted price
original price--> ──► 0.70 0.78 <-- ◄── adjusted price
original price--> ──► 0.71 0.82 <-- ◄── adjusted price
original price--> ──► 0.72 0.82 <-- ◄── adjusted price
original price--> ──► 0.73 0.82 <-- ◄── adjusted price
original price--> ──► 0.74 0.82 <-- ◄── adjusted price
original price--> ──► 0.75 0.82 <-- ◄── adjusted price
original price--> ──► 0.76 0.86 <-- ◄── adjusted price
original price--> ──► 0.77 0.86 <-- ◄── adjusted price
original price--> ──► 0.78 0.86 <-- ◄── adjusted price
original price--> ──► 0.79 0.86 <-- ◄── adjusted price
original price--> ──► 0.80 0.86 <-- ◄── adjusted price
original price--> ──► 0.81 0.90 <-- ◄── adjusted price
original price--> ──► 0.82 0.90 <-- ◄── adjusted price
original price--> ──► 0.83 0.90 <-- ◄── adjusted price
original price--> ──► 0.84 0.90 <-- ◄── adjusted price
original price--> ──► 0.85 0.90 <-- ◄── adjusted price
original price--> ──► 0.86 0.94 <-- ◄── adjusted price
original price--> ──► 0.87 0.94 <-- ◄── adjusted price
original price--> ──► 0.88 0.94 <-- ◄── adjusted price
original price--> ──► 0.89 0.94 <-- ◄── adjusted price
original price--> ──► 0.90 0.94 <-- ◄── adjusted price
original price--> ──► 0.91 0.98 <-- ◄── adjusted price
original price--> ──► 0.92 0.98 <-- ◄── adjusted price
original price--> ──► 0.93 0.98 <-- ◄── adjusted price
original price--> ──► 0.94 0.98 <-- ◄── adjusted price
original price--> ──► 0.95 0.98 <-- ◄── adjusted price
original price--> ──► 0.96 1.00 <-- ◄── adjusted price
original price--> ──► 0.97 1.00 <-- ◄── adjusted price
original price--> ──► 0.98 1.00 <-- ◄── adjusted price
original price--> ──► 0.99 1.00 <-- ◄── adjusted price
original price--> ──► 1.00 1.00 <-- ◄── adjusted price
</pre>
 
Retrieved from "https://rosettacode.org/wiki/Special:MobileDiff/143300"