kerstboom printen

[verhaba]

Hallo

Ik volg avondlessen programmeren. We hebben een opdracht gekregen, maar na nutteloze pogingen sta ik nog steeds even ver als toen: Nergens. Of toch niet veel verder.
Voor een opdracht moet ik een kerstboom printen. Klinkt voor experten zoals jullie belachelijk, maar voor mij beginneling is alvast een heuse uitdaging om dit tot een goed einde te brengen.

Ik wil bijvoorbeeld een kerstboom van 5 lijnen printen Ik ga vervolgens te werk:

Lijn 1: 4 spaties printen en één sterretje
Lijn 2: 3 spaties printen en drie sterretjes
Lijn 3: 2 spaties printen en 5 sterretjes
Lijn 4: 1 spatie printe n en 7 sterretjes
Lijn 5: 0 spaties printen en 9 sterretjes.
Lijn 6: 4 spaties printen en één sterretje (voor de stam) // Dit is het zelfde als lijn 1

Wat is mijn probleem? Hoe kan ik in Godsnaam het printen van de sterretjes met twee verhogen via een for next?!? Ik zoek er me suf op, maar helaas pindakaas (dixit Hans Teeuwen!). Wie helpt me uit de nood?

Opgelet: Het is niet de bedoeling dat ik de code voor geschoteld krijg hoor, daar kom ik geen stap me verder.

Alvast bedankt voor jullie hulp en begeleiding. Groetjes.

 

[krolik]

De for...next loop voorzien van step 2, b.v. for i = 1 to 10 step 2 .......next i

 

[verhaba]

De for...next loop voorzien van step 2, b.v. for i = 1 to 10 step 2 .......next i

Hey krolik. Dank je voor je snel antwoord. Jammer genoeg print hij dan juiste de helft (of net iets meer in bepaalde gevallen) aantal sterretjes. ik zoek toch maar wat verder.

 

[verhaba]

nu ziezo, heb het uiteindelijk gevonden. Beetje uitleg bij de code. heb m'n logaritme veranderd. Ben beginnen uitprinten tot aan de stam. Nadien heb ik overige sterretjes toevoegd.
zag anders geen reden hoe mijn sterretjes steeds met twee te verhogen... Mocht iemand het alsdanog gevonden hebben... Posten zou ik zeggen...:thumb:

[VB]
Module Module1

Sub Main()
Console.Write("Count ? ")
Dim count As Integer = Console.ReadLine()
'
For i As Integer = 1 To count
For j As Integer = i To count - 1
Console.Write(" ")
Next
For j As Integer = 1 To i
Console.Write("*")
Next
For j As Integer = 1 To i - 1
Console.Write("*")
Next
Console.WriteLine()
Next
For i As Integer = 1 To count - 1
Console.Write(" ")
Next
Console.WriteLine("*")
Console.ReadLine()
End Sub


End Module
[/VB]