Matematické Fórum

Satanus · 03. 05. 2011 20:29

Zdravím mám zadaný úkol do školy jehož znění je:

Napište proceduru TREJUHELNIK, která na formuláři FORM1 vytvoří z hvězdiček malý trojúhelník. (5-4-3-2-1)

Tvořit máme ve Visual Basic 6.0

Code:

Private Sub Command1_Click()
Print "*"
Print "**"
Print "***"
Print "****"
Print "*****"
End Sub

Ale tento typ řešení by nejspíše učitel neakceptoval.
Sám bych upřednostnil trujúhelník revnostranný nežli tento paskvil.

gladiator01

↑ Satanus:
Rovnostranný trojúhelník (5-4-3-2-1) přece nelze udělat (musel by jsi mít mezery mezi hvězdičkami).

Tady máš dva pravoúhlé - jeden základnou nahoru druhý dolů.

Code:

        'Print("*****")
        'Print("****")
        'Print("***")
        'Print("**")
        'Print("*")
        l = 5
        k = 0
        While (k <= l)
            For i = 0 To l
                Console.Out.Write("*")
                k = k + 1
            Next i
            Console.Out.WriteLine()
            l = l - 1
            k = 0
        End While

        Console.Out.WriteLine()
        'Print("*")
        'Print("**")
        'Print("***")
        'Print("****")
        'Print("*****")
        l = 0
        k = 5
        While (k <> l)
            For i = 0 To l
                Console.Out.Write("*")
                k = k - 1
            Next i
            Console.Out.WriteLine()
            l = l + 1
            k = 5
        End While

Matematické Fórum

#1 03. 05. 2011 20:29

Trojúhelník, Visual Basic 6.0

Code:

#2 04. 05. 2011 12:46 — Editoval gladiator01 (07. 05. 2011 11:56)

Re: Trojúhelník, Visual Basic 6.0

Code:

Zápatí