Price fraction: Difference between revisions
Content added Content deleted
(Updated D entry) |
|||
| Line 1,838: | Line 1,838: | ||
1 tests, 22 assertions, 0 failures, 0 errors, 0 skips</pre> |
1 tests, 22 assertions, 0 failures, 0 errors, 0 skips</pre> |
||
=={{header|Run BASIC}}== |
|||
<lang runbasic>data .06, .1,.11,.18,.16,.26,.21,.32,.26,.38,.31,.44,.36,.50,.41,.54,.46,.58,.51,.62 |
|||
data .56,.66,.61,.70,.66,.74,.71,.78,.76,.82,.81,.86,.86,.90,.91,.94,.96,.98 |
|||
dim od(100) |
|||
dim nd(100) |
|||
for i = 1 to 19 |
|||
read oldDec |
|||
read newDec |
|||
j = j + 1 |
|||
for j = j to oldDec * 100 |
|||
nd(j) = newDec |
|||
next j |
|||
next i |
|||
[loop] |
|||
input "Gimme a number";numb |
|||
decm = val(using("##",(numb mod 1) * 100)) |
|||
print numb;" -->";nd(decm) |
|||
goto [loop]</lang> |
|||
<pre>Gimme a number?12.676 |
|||
12.676 -->0.78 |
|||
Gimme a number?4.876 |
|||
4.876 -->0.94 |
|||
Gimme a number?34.12 |
|||
34.12 -->0.26</pre> |
|||
=={{header|Scala}}== |
=={{header|Scala}}== |
||