39 lines
1013 B
Plaintext
39 lines
1013 B
Plaintext
Randomize Timer
|
|
Dim Shared As Uinteger cubo(1 To 10), a, i
|
|
For i As Uinteger = 1 To 10
|
|
cubo(i) = Int(Rnd * 90)
|
|
Next i
|
|
|
|
Function Display(cadena As String) As Uinteger
|
|
Dim As Uinteger valor
|
|
Print cadena; Spc(2);
|
|
For i As Uinteger = 1 To 10
|
|
valor += cubo(i)
|
|
Print Using "###"; cubo(i);
|
|
Next i
|
|
Print " Total:"; valor
|
|
Return valor
|
|
End Function
|
|
|
|
Sub Flatten(f As Uinteger)
|
|
Dim As Uinteger f1 = Int((f / 10) + .5), f2
|
|
For i As Uinteger = 1 To 10
|
|
cubo(i) = f1
|
|
f2 += f1
|
|
Next i
|
|
cubo(10) += f - f2
|
|
End Sub
|
|
|
|
Sub Transfer(a1 As Uinteger, a2 As Uinteger)
|
|
Dim As Uinteger temp = Int(Rnd * cubo(a1))
|
|
cubo(a1) -= temp
|
|
cubo(a2) += temp
|
|
End Sub
|
|
|
|
a = Display(" Display:") ' show original array
|
|
Flatten(a) ' flatten the array
|
|
a = Display(" Flatten:") ' show flattened array
|
|
Transfer(3, 5) ' transfer some amount from 3 to 5
|
|
Display(" 19 from 3 to 5:") ' show transfer array
|
|
Sleep
|