Hey leute,
folgendes, ich habn neues Buch was nich auf blutige Anfänger ausgelegt ist. Nun versteh ich 2 Zeilen nicht so ganz in dieser Konsoleanwendung, was die Funktion ist steht eig schon im Titel:
Nun versteh ich diese 2 Zeilen kaum.
Weil ich auch kaum früher mich mit Arrays beschäftigt habe..
Nun habe ich aber mal überlegt es so zu schrieben das ich alles verstehe, und finde es so einfacher:
Aber kann mir bitte jemand diese 2 Zeilen erklären?
folgendes, ich habn neues Buch was nich auf blutige Anfänger ausgelegt ist. Nun versteh ich 2 Zeilen nicht so ganz in dieser Konsoleanwendung, was die Funktion ist steht eig schon im Titel:
VB.NET-Quellcode
- Module Module1
- Const Nmax As Integer = 10
- Sub Main()
- Console.WriteLine("Maximumbestimmung einer Zahlenfolge")
- Console.WriteLine()
- Dim arr(10) As Integer
- Dim n, max As Integer
- Console.WriteLine("Geben sie die gewünschte Anzahl von Werten ein: ")
- n = Convert.ToInt32(Console.ReadLine())
- If (n > Nmax) Then
- Console.WriteLine("Es dürfen nur " & Nmax.ToString() & "Werte eingegeben werden")
- Else
- For i As Integer = 1 To n
- Console.WriteLine("Geben sie die " & i.ToString() & ".Zahl ein: ")
- arr(i - 1) = Convert.ToInt32(Console.ReadLine)
- If (i = 1) Or arr(i - 1) > max Then max = arr(i - 1)
- Next i
- Console.WriteLine()
- Console.WriteLine("Das Maximum ist " & max.ToString & " !")
- End If
- Console.ReadLine()
- End Sub
- End Module
Nun versteh ich diese 2 Zeilen kaum.
Weil ich auch kaum früher mich mit Arrays beschäftigt habe..
Nun habe ich aber mal überlegt es so zu schrieben das ich alles verstehe, und finde es so einfacher:
VB.NET-Quellcode
- Module Module1
- Const Nmax As Integer = 10
- Sub Main()
- Console.WriteLine("Maximumbestimmung einer Zahlenfolge")
- Console.WriteLine()
- Dim n, zahlen As Integer
- Dim max As Integer = 1
- Console.WriteLine("Geben sie die gewünschte Anzahl von Werten ein: ")
- n = Convert.ToInt32(Console.ReadLine())
- If (n > Nmax) Then
- Console.WriteLine("Es dürfen nur " & Nmax.ToString() & "Werte eingegeben werden")
- Else
- For i As Integer = 1 To n
- Console.WriteLine("Geben sie die " & i.ToString() & ".Zahl ein: ")
- zahlen = CInt(Console.ReadLine())
- If zahlen >= max Then
- max = zahlen
- Else
- 'weiter
- End If
- Next i
- Console.WriteLine()
- Console.WriteLine("Das Maximum ist " & max.ToString & " !")
- End If
- Console.ReadLine()
- End Sub
- End Module
Aber kann mir bitte jemand diese 2 Zeilen erklären?