22 lines
848 B
Text
22 lines
848 B
Text
1 rem price fraction
|
|
2 rem rosetta code
|
|
10 data 0.06,0.1,0.11,0.18,0.16,0.26,0.21,0.32,0.26,0.38,0.31,0.44,0.36,0.5
|
|
20 data 0.41,0.54,0.46,0.58,0.51,0.62,0.56,0.66,0.61,0.70,0.66,0.74,0.71,0.78
|
|
30 data 0.76,0.82,0.81,0.86,0.86,0.90,0.91,0.94,0.96,0.98,1.01,1.0
|
|
35 rem up=user price, th=threshold, pr=price, np=new price
|
|
40 dim th(20),pr(20):th(0)=0:pr(0)=0
|
|
45 for i=1 to 20:read th(i),pr(i):next
|
|
50 print chr$(147);chr$(14);"Price Fraction":print
|
|
60 print "What is the value to calculate (between 0.0 and 1.0)";:input up
|
|
65 if up<0 or up>1.0 then goto 60
|
|
70 gosub 500
|
|
80 print:print "You entered";up;chr$(157);", the new value is";np
|
|
90 print:print "Again (Y/N)? ";
|
|
95 get k$:if k$<>"y" and k$<>"n" then 95
|
|
100 print k$
|
|
110 if k$="y" then goto 50
|
|
115 end
|
|
500 for i=0 to 20
|
|
510 if up<th(i) then np=pr(i):return
|
|
520 next i
|
|
530 np=1:return
|