22 lines
552 B
Text
22 lines
552 B
Text
100 cls
|
|
110 data 10,18,26,32,38,44,50,54,58,62,66,70,74,78,82,86,90,94,98,100
|
|
120 data 6,11,16,21,26,31,36,41,46,51,56,61,66,71,76,81,86,91,96
|
|
130 dim od(21)
|
|
140 for i = 1 to 20
|
|
150 read olddec
|
|
160 od(i) = olddec
|
|
170 next i
|
|
180 dim nd(20)
|
|
190 for j = 1 to 19
|
|
200 read nuedec
|
|
210 nd(j) = nuedec
|
|
220 next j
|
|
230 for i = 1 to 100
|
|
240 for j = 1 to ubound(nd)-1
|
|
250 if i < nd(j) then exit for
|
|
260 next j
|
|
270 print using "#.##";(i/100);" -> ";
|
|
280 print using "#.##";(od(j)/100);chr$(9);
|
|
290 if i mod 5 = 0 then print
|
|
300 next i
|
|
310 end
|