 Lid |
|
Ik zit nog gewrongen met het uitlezen van de input van gegevens. ik zou onderstaand programma moeten bekomen kan iemand me hier mee helpen?
Het aantal rijen ( van een 2-dimensionele array ) wordt eerst aan de gebruiker gevraagd. De initiële
kolom-capaciteit ( aantal kolommen ) is altijd 2, wanneer er echter te weinig kolommen zijn om nog
getallen te kunnen toevoegen, wordt de kolom-capaciteit verdubbeld.
Zorg ervoor dat de flow en de output van jou oplossing exact overeenkomt met onderstaand
voorbeeld.
Programma-verloop ( invoer van de gebruiker ) :
Row count ? : 3
Numbers ( 3 rows, 0 columns of 2 filled ) :
0 0
0 0
0 0
Number row 1, column 1 ? : 10
Number row 2, column 1 ? : 20
Number row 3, column 1 ? : 30
Numbers ( 3 rows, 1 columns of 2 filled ) :
10 0
20 0
30 0
Number row 1, column 2 ? : 40
Number row 2, column 2 ? : 50
Number row 3, column 2 ? : 60
Numbers ( 3 rows, 2 columns of 2 filled ) :
10 40
20 50
30 60
Number row 1, column 3 ? : 70
Number row 2, column 3 ? : 80
Number row 3, column 3 ? : 90
Numbers ( 3 rows, 3 columns of 4 filled ) :
10 40 70 0
20 50 80 0
30 60 90 0
Number row 1, column 4 ? : 110
Number row 2, column 4 ? : 120
Number row 3, column 4 ? : 130
en de code die ik al heb geschreven is volgende:
Sub Main()
Console.WriteLine("row count ?")
Dim rowCount As Integer = Console.ReadLine()
Dim columnCount As Integer = 2
Dim filledColumns As Integer = 0
Dim values(rowCount, columnCount) As Integer
Dim rowBound As Integer = rowCount - 1
Dim columnBound As Integer = columnCount - 1
Do
For row = 0 To rowBound
For column = 0 To columnBound
Console.Write(values(row, column) & " ")
Next
Console.WriteLine("")
Next
For row = 1 To rowCount
Console.Write("number row " & row & "," & filledColumns & " columns of " & columnCount & "filled ? :")
Console.ReadLine()
Next
filledColumns += 1
If filledColumns > columnCount Then
columnCount *= 2
End If
Loop
Console.ReadLine()
End Sub
Sub Main() Console.WriteLine("row count ?") Dim rowCount As Integer = Console.ReadLine() Dim columnCount As Integer = 2 Dim filledColumns As Integer = 0 Dim values(rowCount, columnCount) As Integer Dim rowBound As Integer = rowCount - 1 Dim columnBound As Integer = columnCount - 1 Do For row = 0 To rowBound For column = 0 To columnBound Console.Write(values(row, column) & " ") Next Console.WriteLine("") Next For row = 1 To rowCount Console.Write("number row " & row & "," & filledColumns & " columns of " & columnCount & "filled ? :") Console.ReadLine() Next filledColumns += 1 If filledColumns > columnCount Then columnCount *= 2 End If Loop Console.ReadLine() End Sub
[/code]
|
Wat is jouw favoriete javascript framework? (S: 18, R: 2)
Gesponsorde links
Actiefste leden van de maand
