login  Naam:   Wachtwoord: 
Registreer je!
 Forum

Endless table adding values (Opgelost)

Offline Jimbo - 04/11/2009 22:14
Avatar van JimboLid Ik heb een vraagske betreffende meerdimensionale tabellen.

Ik moet een oefening maken zoals onderstaande:


'Programma-verloop (invoer van de gebruiker) :

'Values : 0 0
'Count : 0 / Capacity : 2
'Add Value ? : 5
'Values : 5 0
'Count : 1 / Capacity : 2
'Add Value ? : 4
'Values : 5 4
'Count : 2 / Capacity : 2
'Add Value ? : 6
'Values : 5 4 6 0
'Count : 3 / Capacity : 4
'Add Value ? : 3
'Values : 5 4 6 3
'Count : 4 / Capacity : 4
'Add Value ? : 1
'Values : 5 4 6 3 1 0 0 0
'Count : 5 / Capacity : 8
'Add Value ? :

==================

Dit is dus een eindeloze tabel waar de ingevoerde waarde aan het einde moet worden toegevoegd. De count en de capacity moet mee volgen met de getoonde waardes.



Momenteel (na verschillende pogingen) heb ik:


Console.WriteLine("Values : 0 0 ")
Dim tabel(1, 2) As Integer

Do While Console.ReadLine = True
then




Loop

========================

Bij die meerdimensionele tabel geraak ik niet wijs uit hoe de waardes te stokeren.

Kan iemand hiermee helpen?



2 antwoorden

Gesponsorde links
Offline Mario - 04/11/2009 23:01
Avatar van Mario Crew algemeen in je loop kun je je array uitbreiden dmv een redim. Wel niet vergeten een preserve ervoor te zetten anders ben je al je waarden kwijt.

vb

  1. redim preserve tabel(10,2)
Offline Jimbo - 05/11/2009 16:48 (laatste wijziging 05/11/2009 20:34)
Avatar van Jimbo Lid Inderdaad, dat had ik inderdaad terug door.
preserve helpt hierbij. Maar de keurige output zoals gevraagd kan ik niet direct bekomen.

Volgende dat ik heb is:

Dim tabel(1, 2) As Integer
Dim count As Integer
Dim capacity As Integer = 2
Dim value As Integer

Console.WriteLine("value?")
value = Console.ReadLine
Console.WriteLine(value)


Do While value = value + 1
Console.WriteLine("Fill in a value: ")
count += 1



Loop

Console.ReadLine()

==============

Ondertussen mijn bouw omgegooid naar:


'Dim capacity As Integer = 2
'Dim count As Integer
'Dim numbers(capacity - 1) As Integer
''
'Do
' Dim index As Integer
' Console.Write("Numbers ( capacity " & capacity & _
' ", count " & count & " ) : ")
' For index = 0 To count - 1
' Console.Write(numbers(index) & " ")
' Next
' Console.WriteLine()
' Console.Write("Number ? : ")
' Dim number As Integer = Console.ReadLine()
' count += 1
' If count < capacity Then
' capacity *= 2
' ReDim Preserve numbers(capacity - 1)
' End If
' numbers(count - 1) = number
'Loop

Dit werkt, maar niet zoals hoort te zijn.
De output krijg ik ook niet exact hetzelfde
Gesponsorde links
Dit onderwerp is gesloten.
Actieve forumberichten
© 2002-2024 Sitemasters.be - Regels - Laadtijd: 0.193s