Ich muss für eine Informatik Hausarbeit ein kleines Programm profgrammieren hat mir jemand noch einen Ansatz wie ich :
Den größten gemeinsamen Teiler ohne den Euklid Algorythmus programmiere
Hier der Ansatz
Sub Main()
Dim a, b As Short, abbruch As Char
Console( Wir schrieben auf die Consolole ).WriteLine ( Wir schreiben auf die Console )("Größter gemeinsamer Teiler zweier Zahlen") 'entspricht
System.Console.WriteLine()
Do
Console.Write("1.Zahl: ") 'Ausgabe ohne Zeilenumbruch
a = CSng(Console.ReadLine()) 'konvertiert einen Datentyop i Datentyp Single
Console.Write("2.Zahl: ")
b = CSng(Console.ReadLine())
'Euklidischer(Algoritmus)
If a = 0 Then
a = b
Else
While b <> 0
If a > b Then
a = a - b
Else
b = b - a
End If
End While
End If
Console.WriteLine("Der größte gemeinsame Teiler ist: " & a.ToString("0"))
Console.Write("Programm beenden (j/n)? ")
abbruch = CChar(Console.ReadLine())
Loop While abbruch <> "j"
End Sub
Sonstige Verbesserungs Vorschläge nehm ich gerne entgegen !
