Hallo zusammen ich bin dabei ein Programm zu schreiben, das die underschiedlichen Temperaturen eines Jahres pro Monat für 3 Städte ausgibt.
Es soll so Aussehen
Monat Stadt1 Stadt2 Stadt3
1 2 3 -1
2 3 6 4
3 . . .
4 . . .
5 . . .
.
.
.
etc.
meine code versuche habe ich unten notiert.
Bei mir kommt nur ein Wust raus der komplett verschoben ist kann mir jemand helfen?
Vielen Dank
'_________________________________________________ _____________
Imports System.Console
Module abc
Sub Main()
Dim orte() As String = {"Berlin", "Hamburg", "München"}
Dim temperaturen(,) As Integer = {{2, 3, -1}, {3, 6, 4}, {6, 8, 10} _
, {10, 12, 13}, {14, 15, 15}, {19, 18, 19} _
, {18, 16, 20}, {23, 24, 25}, {25, 22, 22} _
, {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}
Dim iOrt As Byte
Dim iMonat As Byte
writeline("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
For iOrt = 0 To 0
For iMonat = 0 To temperaturen.GetUpperBound(0)
Write("{0,5} {1,10}", iMonat, temperaturen(iMonat, iOrt))
'write()
Next
WriteLine()
Next
readline()
End Sub
End Module
'_________________________________________________ _________
Es soll so Aussehen
Monat Stadt1 Stadt2 Stadt3
1 2 3 -1
2 3 6 4
3 . . .
4 . . .
5 . . .
.
.
.
etc.
meine code versuche habe ich unten notiert.
Bei mir kommt nur ein Wust raus der komplett verschoben ist kann mir jemand helfen?
Vielen Dank
'_________________________________________________ _____________
Imports System.Console
Module abc
Sub Main()
Dim orte() As String = {"Berlin", "Hamburg", "München"}
Dim temperaturen(,) As Integer = {{2, 3, -1}, {3, 6, 4}, {6, 8, 10} _
, {10, 12, 13}, {14, 15, 15}, {19, 18, 19} _
, {18, 16, 20}, {23, 24, 25}, {25, 22, 22} _
, {15, 14, 15}, {10, 11, 13}, {9, 8, 7}}
Dim iOrt As Byte
Dim iMonat As Byte
writeline("Monat {0,10}{1,10}{2,10}", orte(0), orte(1), orte(2))
For iOrt = 0 To 0
For iMonat = 0 To temperaturen.GetUpperBound(0)
Write("{0,5} {1,10}", iMonat, temperaturen(iMonat, iOrt))
'write()
Next
WriteLine()
Next
readline()
End Sub
End Module
'_________________________________________________ _________
Comment