Star pyramid | C# Online Compiler

Star pyramid by James He

Imports System
				
Public Module Module1
	 'Global variables accessed by all subroutines
    Dim MaxNoOfStars, NoOfStars, NoOfSpaces As Integer

    'Main program starts here
    Sub Main()
        InitialiseNoOfSpacesAndStars()
        Do
            OutputLeadingSpaces()
            OutputLineOfStars()
            AdjustNoOfSpacesAndStars()
        Loop While NoOfStars <= MaxNoOfStars
        Console.ReadLine()
    End Sub

    'Set the size of the pyramid of stars
    Sub InitialiseNoOfSpacesAndStars()
        Console.Write("How many stars at the base (1-40)? ")
        MaxNoOfStars = Console.ReadLine()
        'Calculate spaces needed from tip
        NoOfSpaces = MaxNoOfStars / 2
        'Set tip of pyramid to one star
        NoOfStars = 1
    End Sub

    'Outputs spaces before stars
    Sub OutputLeadingSpaces()
        Dim count As Integer
        For count = 1 To NoOfSpaces Step 1
            Console.Write(" ")
        Next count
    End Sub

    'Outputs stars
    Sub OutputLineOfStars()
        Dim count As Integer
        For count = 1 To NoOfStars
            Console.Write("*")
        Next
        'Move to next line
        Console.WriteLine()
    End Sub

    'Adjusts number of stars & spaces after output
    Sub AdjustNoOfSpacesAndStars()
        NoOfSpaces = NoOfSpaces - 1
        NoOfStars = NoOfStars + 2

	End Sub
End Module

​x
 
Imports System
                
Public Module Module1
     'Global variables accessed by all subroutines
    Dim MaxNoOfStars, NoOfStars, NoOfSpaces As Integer
​
    'Main program starts here
    Sub Main()
        InitialiseNoOfSpacesAndStars()
        Do
            OutputLeadingSpaces()
            OutputLineOfStars()
            AdjustNoOfSpacesAndStars()
        Loop While NoOfStars <= MaxNoOfStars
        Console.ReadLine()
    End Sub
​
    'Set the size of the pyramid of stars
    Sub InitialiseNoOfSpacesAndStars()
        Console.Write("How many stars at the base (1-40)? ")
        MaxNoOfStars = Console.ReadLine()
        'Calculate spaces needed from tip
        NoOfSpaces = MaxNoOfStars / 2
        'Set tip of pyramid to one star
        NoOfStars = 1
    End Sub
​
    'Outputs spaces before stars
    Sub OutputLeadingSpaces()
        Dim count As Integer
        For count = 1 To NoOfSpaces Step 1
            Console.Write(" ")
        Next count
    End Sub
​
    'Outputs stars
    Sub OutputLineOfStars()
        Dim count As Integer
        For count = 1 To NoOfStars
            Console.Write("*")
        Next
        'Move to next line
        Console.WriteLine()
    End Sub
​
    'Adjusts number of stars & spaces after output
    Sub AdjustNoOfSpacesAndStars()
        NoOfSpaces = NoOfSpaces - 1
        NoOfStars = NoOfStars + 2
​
    End Sub
End Module

CompareTo
CompareTo
EndsWith
EndsWith
EndsWith
EndsWith
Equals
Equals
Equals
GetHashCode
GetHashCode
StartsWith
StartsWith
StartsWith
StartsWith
Clone
CopyTo
CopyTo
TryCopyTo
ToCharArray
ToCharArray
GetPinnableReference
ToString
ToString
GetEnumerator
EnumerateRunes
GetTypeCode
IsNormalized
IsNormalized
Normalize
Normalize
get_Chars
get_Length
Insert
PadLeft
PadLeft
PadRight
PadRight
Remove
Remove
Replace
Replace
Replace
Replace
ReplaceLineEndings
ReplaceLineEndings
Split
Split
Split
Split
Split
Split
Split
Split
Split
Split
Split
Substring
Substring
ToLower
ToLower
ToLowerInvariant
ToUpper
ToUpper
ToUpperInvariant
Trim
Trim
Trim
Trim
TrimStart
TrimStart
TrimStart
TrimStart
TrimEnd
TrimEnd
TrimEnd
TrimEnd
Contains
Contains
Contains
Contains
IndexOf
IndexOf
IndexOf
IndexOf
IndexOfAny
IndexOfAny
IndexOfAny
IndexOf
IndexOf
IndexOf
IndexOf
IndexOf
IndexOf
LastIndexOf
LastIndexOf
LastIndexOf
LastIndexOfAny
LastIndexOfAny
LastIndexOfAny
LastIndexOf
LastIndexOf
LastIndexOf
LastIndexOf
LastIndexOf
LastIndexOf
GetType

BigMul
CompareTo
CompareTo
Equals
Equals
GetHashCode
ToString
ToString
ToString
ToString
TryFormat
TryFormat
Parse
Parse
Parse
Parse
Parse
TryParse
TryParse
TryParse
TryParse
TryParse
GetTypeCode
DivRem
LeadingZeroCount
PopCount
RotateLeft
RotateRight
TrailingZeroCount
IsPow2
Log2
Clamp
CopySign
Max
Min
Sign
Abs
CreateChecked
CreateSaturating
CreateTruncating
IsEvenInteger
IsNegative
IsOddInteger
IsPositive
MaxMagnitude
MinMagnitude
TryParse
Parse
TryParse
Parse
TryParse
Parse
TryParse
GetType

Last Run:	10:00:08 am
Compile:	0.006s
Execute:	0.05s
Memory:	2.82Mb
CPU:	0.056s

View IL Code