Faktorering

[Hurley]

Holder på med et lite faktoreringsprogram.

        Dim n, f As Double

       Dim faktorer As String

       n = CDbl(txtTall.Text)

       f = 2

       Do While n > 1

           Do While ???

               faktorer = faktorer & "*" & f

               n = CDbl(n / f)

           Loop

           f += 1

       Loop

       MessageBox.Show(faktorer)

Vil da der det står ??? sjekke om n / f gir et heltall. Finnes det en egen kommando for heltall?

[alftore]

Du kan sjekke om en divisjon gir meltall ved å bruke modulus.

I C++ er dette %, men i VB skal du vistnok bruke Mod.

 

Modulus gir resten av en divisjon, så hvis divisjonen gir et heltall

vil resultatet være 0. skjønner du?

 

0 Mod 2 = 0

1 Mod 2 = 1

2 Mod 2 = 0

[Hurley]

Jepp, tusen takk!