22 lines
494 B
Text
22 lines
494 B
Text
data 10, 18, 26, 32, 38, 44, 50, 54, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 98, 100
|
|
data 6, 11, 16, 21, 26, 31, 36, 41, 46, 51, 56, 61, 66, 71, 76, 81, 86, 91, 96
|
|
|
|
dim od(21)
|
|
for i = 1 to 20
|
|
read oldDec
|
|
od(i) = oldDec
|
|
next i
|
|
dim nd(20)
|
|
for j = 1 to 19
|
|
read newDec
|
|
nd(j) = newDec
|
|
next j
|
|
|
|
for i = 1 to 100
|
|
for j = 1 to arraysize(nd(),1)-1
|
|
if i < nd(j) break
|
|
next j
|
|
print (i/100) using ("#.##"), " -> ", (od(j)/100) using ("#.##"), "\t";
|
|
if mod(i, 5) = 0 print
|
|
next i
|
|
end
|