wie kann man nun diese Wiederholungsstruktur durch eine Zählschleife ersetzen?
xXJennyXx
Das funktioniert! =) Vielen Dank für den Tipp!
Hier das Programm bis zum Grenzwert 10
Module Module1
Sub Main()
Dim x As Integer
x = -2
Do Until x > 10
x = x + 3
If x = Math.Floor(x) Then
Console.WriteLine(x & "*" & x & "=" & x * x & vbCrLf & "Ergebnis ist ganzzahlig!")
Else
Console.WriteLine("x=" & x & vbCrLf & vbCrLf & "x * = " & x * x & vbCrLf & "Ergebnis ist nicht geradzahlig!")
End If
Loop
End Sub
End Module
eulerscheZahl
Was verwendest du überhaupt als Datentyp?
Integer, float, ...
x ist zu Beginn eine Ganzzahl und wird es auch immer bleiben, wenn nur Ganzzahlen draufaddiert werden. Und wenn x ganzzahlig ist, dann ist es auch x*x.
Warum willst du testen, was ohnehin offensichtlich ist?
Ich bin mit Basic nicht so vertraut und habe auf diesem PC auch nichts zum Testen, aber etwa so geht das Prüfen von Gleitpunktzahlen auf Ganzzahligkeit:
code:
1:
2:
3:
If x = Math.Floor(x) ' wenn x gleich dem abgerundeten Wert von x ist
'...
End If
xXJennyXx
Prüfen ob ein Operand Ganzzahlig ist
Meine Frage:
Hallo zusammen. Ich habe folgendes Problem:
x:= -2
bis x > 200 erfüllt (kopfgesteuerte Schleife)
x:= x+3
ist x * x Ganzzahlig (zweiseitige Auswahl)
Wie kann man das in VB2010 programmieren. Also das prüfen ob x*x ganzzahlig ist?