Hey,
I'm a student, doing VB at college. I've been trying to make a program to compute Pi, and am making good progress, I think I know what to do. However, part of the algorithm requires me to cube a number. The way I'm doing it is having stored the number in an array, with each cell in the array 1 digit. I've made sub procedures to add/subtract 2 arrays, and multiply/divide an array by a number.
This code multiplies mul1() by a single number mul2
Sub mul(ByRef mul1() As Byte, ByRef mul2 As Byte)
Dim hold, carry, temp(digits + 1) As Byte
For a = digits + 1 To 0 Step -1
If a > 0 Then
hold = mul1(a - 1) * mul2 + carry
End If
carry = hold \ 10
temp(a) = hold Mod 10
Next a
For a = 0 To digits
mul1(a) = temp(a)
Next a
End Sub
Notice I also want the result to be to the same precision as the numbers going in,
So 0.256*0.256 would give 0.065, because I would have only asked for 4 digits ('digits' variable) in that case. It's this that's giving me trouble.
Any advice appriciated :), cheers.