Price fraction: Difference between revisions
Content added Content deleted
(Added solution for Action!) |
(Price fraction en BASIC256) |
||
Line 1,055: | Line 1,055: | ||
Again (Y/N)? N |
Again (Y/N)? N |
||
ready.</pre> |
ready.</pre> |
||
=={{header|BASIC256}}== |
|||
{{trans|Gambas}} |
|||
<lang basic256>arraybase 1 |
|||
dim byValue = {10, 18, 26, 32, 38, 44, 50, 54, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 98, 100} |
|||
dim byLimit = {6, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76, 81, 86, 91, 96} |
|||
for byCount = 1 to 100 |
|||
for byCheck = 0 to byLimit[?] |
|||
if byCount < byLimit[byCheck] then exit for |
|||
next byCheck |
|||
print ljust((byCount/100),4," "); " -> "; ljust((byValue[byCheck]/100),4," "); chr(9); |
|||
if byCount mod 5 = 0 then print |
|||
next byCount |
|||
end</lang> |
|||
=={{header|BBC BASIC}}== |
=={{header|BBC BASIC}}== |