| ↓掛け算ここから
For i = 1 To LLength(a) For j = 1 To LLength(b) If Len(LIndex(a,i) * LIndex(b,j)) = 2 Then n[(i + (j - 1))] = n[(i + (j - 1))] + Right(LIndex(a,i) * LIndex(b,j),1) n[(j + i)] = n[(i + j)] + Left(LIndex(a,i) * LIndex(b,j),1) Else n[(i + (j - 1))] = n[(i + (j - 1))] + (LIndex(a,i) * LIndex(b,j)) EndIf Next Next For i = 1 To ((Len(Args(1)) + Len(Args(2))) - 1) temp = n[i] + shift[i] If temp > 9 Then If temp > 99 Then shift[i + 2] = shift[i + 2] + Left(temp,1) shift[i + 1] = shift[i + 1] + Mid(temp,2,1) temp = Right(temp,1) Else shift[i + 1] = shift[i + 1] + Left(temp,1) temp = Right(temp,1) EndIf Else shift = 0 EndIf answer = "$(temp)$(answer)" Next
↑掛け算ここまで
中箱さん、ありがとうございます。 中箱さんのおかげでなんとかここまではできました。
For文を1個にしたいのですが、 回数不定の計算のやり方がわかりません。
回数不定というのは 「1+1+1」にも 「1+1」にもなる可能性があるということです。 こういった計算を一まとめにして行うにはどうすればいいのでしょうか。 これさえわかればあとはできるような気がするのです。 どうすればいいのでしょうか。
|