OpenOffice.info

Wie kann ich das verhindern?

function Zehnerpotenz2
Zehnerpotenz2 = CDec(10^(cint(rnd()*2+1)*PlusMinus))
end function



Gruß
Stephan

Nachtrag:

Beim Programmcode fehlt natürlich noch was:

function Zehnerpotenz2 as single
Zehnerpotenz2 = 10^(cint(rnd()*2+1)*PlusMinus)
end function

function PlusMinus as single
plusminus = fix(rnd()*2)*2-1
end function

Ein schönes neues Jahr alle zusammen!

Wer kann mir weiterhelfen?

Ich möchte für ein Programm für die Schule Zehnerpotenzen von 0,001 bis 1000 zufällig erzeugen. Bei Zahlen kleiner als 0,1 bekomme ich diese in Exponentialdarstellung. Wie kann ich das verhindern? Ich möchte aber bei den Zahlen größer Null keine Nachkommastellen und bei den Zahlen kleiner Null keine Nullen nach der Eins, also keine Formatierung 0,###.

Grüße von Pit

Meine FunKtion heißt:

function Zehnerpotenz2 as single
Zehnerpotenz2 = 10^(cint(rnd()*2+1)*PlusMinus)
end function