VB.NET > For ... Next Repetition Statement

[udhas]

Write a program that prints the following diamond shape. You may use output statements that print a single asterisk (*), a single space or a single carriage return. Maximize your use of repetition (with nested For … Next statements) and minimize the number of output statements.

    *
   ***
  *****
 *******
*********
 *******
  *****
   ***
    *

__________________________________________________ _______________

I am having trouble doing this problem using "For ... Next" Repetition Statement.

I can use Console.WriteLine("*****") but I need to use repetition statements inorder to minimize the number of output statements.

My updated code is this:

Module ForCounter
Sub Main()
Dim i As Integer
Dim j As Integer
 
For i = 0 To 3
Console.Write("*")
Next
For j = 0 To 5
Console.WriteLine("*")
Next
 
End Sub ' Main
End Module

Which results in this:

*****
*
*
*
*
*

Clearly not a diamond

Please HELP!!!

[Banfa]

3 nested for loops should do it

For each line
    For number of spaces required at beginning of line
        write space
    Next
    For number of stars on line
        write star
    Next
    write new line
Next
 

[vavjeeva]

try this

int iCurrIndex = -1;
            decimal iMax = 9;
            string strControl = "ADD";
            for(int i=1;i<10;i++)
            {
                if(iCurrIndex == iMax)
                    strControl = "SUB";                                    
 
                if (strControl == "ADD")
                    iCurrIndex+=2;
                else
                    iCurrIndex-=2;
 
                Console.WriteLine(String.Empty.PadLeft(Convert.ToInt32((iMax - iCurrIndex) / 2), ' ') 
                    + String.Empty.PadLeft(iCurrIndex, '*'));
            }
 

[Killer42]

How about something a bit simpler...

Dim S As Integer
Dim A As Integer
S = 5
For I = 1 to 5
  A = A + 1
  S = S - 1
  For J = 1 To S ' Spaces
    Console.Write(" ")
  Next
  For J = 1 To A ' Asterisks
    Console.Write("*")
  Next
  Console.WriteLine
Next
' Then do the same in reverse...
For I = 1 to 4
  A = A - 1
  S = S + 1
  For J = 1 To S ' Spaces
    Console.Write(" ")
  Next
  For J = 1 To A ' Asterisks
    Console.Write("*")
  Next
  Console.WriteLine
Next
 

I use VB6, so my Write/WriteLine syntax may be off.

[Killer42]

...for(int i=1;i<10;i++)

Wow! I knew MS had worked hard to try and turn VB.Net into Java, but didn't realise they had gone that far.

[cyberdaemon]

Wow! I knew MS had worked hard to try and turn VB.Net into Java, but didn't realise they had gone that far.

Could not help myself...ROTFLOL!!!

I apologize if I offend anyone, but that is just funny!!!

Cyberdaemon

[goldi]

Write a program that prints the following diamond shape. You may use output statements that print a single asterisk (*), a single space or a single carriage return. Maximize your use of repetition (with nested For … Next statements) and minimize the number of output statements.

    *
   ***
  *****
 *******
*********
 *******
  *****
   ***
    *

__________________________________________________ _______________

I am having trouble doing this problem using "For ... Next" Repetition Statement.

I can use Console.WriteLine("*****") but I need to use repetition statements inorder to minimize the number of output statements.

My updated code is this:

Module ForCounter
Sub Main()
Dim i As Integer
Dim j As Integer
 
For i = 0 To 3
Console.Write("*")
Next
For j = 0 To 5
Console.WriteLine("*")
Next
 
End Sub ' Main
End Module

Which results in this:

*****
*
*
*
*
*

Clearly not a diamond

Please HELP!!!

>>>>>>>>ammm, are you done doing this program..?????
>>>post your correct code if you've done doing it
>>>>>>i just want to see it
>>>>thanks