Price fraction: Difference between revisions
Content added Content deleted
(Added BBC BASIC) |
(added Liberty BASIC) |
||
| Line 1,292: | Line 1,292: | ||
return values[(v * 100 - 1) / 5 | 0]; |
return values[(v * 100 - 1) / 5 | 0]; |
||
}</lang> |
}</lang> |
||
=={{header|Liberty BASIC}}== |
|||
<lang lb> |
|||
dim DR(38) 'decimal range |
|||
dim PF(38) 'corresponding price fraction |
|||
range$="0.06 0.11 0.16 0.21 0.26 0.31 0.36 0.41 0.46 0.51 0.56 0.61 0.66 0.71 0.76 0.81 0.86 0.91 0.96 0.01" |
|||
frac$="0.10 0.18 0.26 0.32 0.38 0.44 0.50 0.54 0.58 0.62 0.66 0.70 0.74 0.78 0.82 0.86 0.90 0.94 0.98 1.00" |
|||
for i = 1 to 38 |
|||
DR(i)=val(word$(range$,i)) |
|||
PF(i)=val(word$(frac$,i)) |
|||
next |
|||
for i = 0 to .99 step 0.03 |
|||
print i;" -> ";PriceFraction(i) |
|||
next |
|||
end |
|||
Function PriceFraction(n) |
|||
PriceFraction=n 'return original if outside test bounds |
|||
for i = 1 to 38 |
|||
if n<=DR(i) then |
|||
PriceFraction=PF(i) |
|||
exit for |
|||
end if |
|||
next |
|||
end function |
|||
</lang> |
|||
=={{header|K}}== |
=={{header|K}}== |
||