---

Geschrieben von xXJennyXx am 14.09.2013 um 14:21:

  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?



Meine Ideen:
vielleicht gibt es eine Funktion?

---

Geschrieben von eulerscheZahl am 14.09.2013 um 19:29:

 

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

---

Geschrieben von xXJennyXx am 15.09.2013 um 17:45:

 

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

---

Geschrieben von xXJennyXx am 15.09.2013 um 19:37:

 

wie kann man nun diese Wiederholungsstruktur durch eine Zählschleife ersetzen?

---

Geschrieben von eulerscheZahl am 15.09.2013 um 19:44:

 

Ja:

code: 1: 2: 3: For x = -2 to 10 Step 3 '... Next x