Kreatives Programmieren

BiedermannS · 15. Februar 2012, 16:31

Wie bereits in [VB.NET] Forumsinterne Wettbewerbe besprochen, fange ich hier mal den passenden Thread dazu an.

Mal sehen was euch zu folgender Aufgabe einfällt:

Regeln:
Keine WinForms, nur Konsole
evtl. eine kleine Erklärung warum man die Aufgabe so gelöst hat
Keine seitenlangen Diskussionen über das was hier gepostet wird

Ziel:
Ausgabe des Textes "I love VB-Paradise!"

Vorgaben & Beschränkungen
Text darf nicht in Variablen gespeichert werden (also Variablen nur für Counter & Objekte)
Es dürfen keine Strings zum Bauen verwendet werden (also kein ... = "Paradise" oder ähnliches)
Mindestens 20 Zeilen Code (hier werden nur die Zeilen gezählt, welche direkt mit der Manipulation des Textes zu tun haben)
Maximal 50 Zeilen Code
Der Code muss in folgenden Frameworks lauffähig sein 2, 3, 3.5, 4
Das Programm muss folgenden Code sinnvoll verwenden:

VB.NET-Quellcode

Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)

Mal sehen was euch hierzu einfällt

Wichtig: Wenn ihr euren Code überarbeitet dann benutzt die Edit-Funktion und postet dies nicht jedes mal neu. damit das Ganze übersichtlich bleibt

Edit by LaMa5: kleine Erweiterung
- KEINE Beiträge als "Gib mir etwas Zeit" oder "Ich werde das heute abend machen"!

Niko Ortner · 15. Februar 2012, 16:43

Ist Groß-und Kleinschreibung wichtig?

Glossy Cherry · 15. Februar 2012, 16:54

VB.NET-Quellcode

Module Module1
Sub Main()
Dim ints As Array = {"73", "33", "108", "111", "118", "101", "33", "86", "66", "45", "80", "97", "100", "105", "115", "101", "33"}
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Read()
End Sub
End Module

BiedermannS · 15. Februar 2012, 16:55

Groß und Kleinschreibung muss beachtet werden. Sonst wäre es zu einfach

Glossy Cherry · 15. Februar 2012, 16:56

Ist das oben von mir gepostet allen Kriterien recht?

BiedermannS · 15. Februar 2012, 16:58

Nicht ganz.

Der Code ist zu kurz, die Leerzeichen fehlen und die # dürfen nicht sein.

Aber gefällt mir trotzdem

Glossy Cherry · 15. Februar 2012, 17:01

# = Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)
nur halt mit chrw drüber gelaufen.

VB.NET-Quellcode

Module Module1
Sub Main()
Dim ints As Array = {"73", "32", "108", "111", "118", "101", "32", "86", "66", "45", "80", "97", "100", "105", "115", "101", "33"}
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Read()
End Sub
End Module

k

SeriTools · 15. Februar 2012, 17:04

Vor allem hast du Paradise falsch geschrieben

Glossy Cherry · 15. Februar 2012, 17:08

VB.NET-Quellcode

Module Module1
Sub Main()
Dim ints As Array = {"73", "32", "108", "111", "118", "101", "32", "86", "66", "45", "80", "97", "114", "97", "100", "105", "115", "101", "33"}
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Write(ChrW(CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))))
Console.Read()
End Sub
End Module

k²

SeriTools · 15. Februar 2012, 17:09

BiedermannS schrieb:

und die # dürfen nicht sein.

Glossy Cherry · 15. Februar 2012, 17:11

BiedermannS schrieb:

Das Programm muss folgenden Code sinnvoll verwenden:
Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)

# = Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)

SeriTools · 15. Februar 2012, 17:12

Es soll NUR der Text ausgegeben werden.

Glossy Cherry · 15. Februar 2012, 17:18

VB.NET-Quellcode

Module Module1
Sub Main()
Dim ints As Array = {((73 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((108 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((111 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((118 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((86 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((66 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((45 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((80 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((114 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((100 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((105 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((115 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((33 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))}
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
Console.Read()
End Sub
End Module

Memo · 15. Februar 2012, 17:22

BiedermannS schrieb:

Mindestens 20 Zeilen Code (hier werden nur die Zeilen gezählt, welche direkt mit der Manipulation des Textes zu tun haben)

Glossy Cherry · 15. Februar 2012, 17:26

VB.NET-Quellcode

Module Module1
Dim ints As Array = {"", "", "", "", ((118 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((86 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((66 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((45 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((80 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((114 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((100 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((105 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((115 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((33 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))}
Public Sub one()
ints(0) = ((73 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(1) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(2) = ((108 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(3) = ((111 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
End Sub
Public Sub two()
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
End Sub
Public Sub three()
Console.Read()
End Sub
Sub Main()
one()
two()
three()
End Sub
End Module

oder auch:

VB.NET-Quellcode

Module Module1
Dim ints As Array = {vbNull, vbNull, vbNull, vbNull, ((118 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((86 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((66 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((45 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((80 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((114 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((100 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((105 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((115 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((33 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))}
Public Sub one()
ints(0) = ((73 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(1) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(2) = ((108 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(3) = ((111 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
End Sub
Public Sub two()
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
End Sub
Public Sub three()
Console.Read()
End Sub
Sub Main()
one()
two()
three()
End Sub
End Module

yo_face.jpg

SeriTools · 15. Februar 2012, 17:28

BiedermannS schrieb:

hier werden nur die Zeilen gezählt, welche direkt mit der Manipulation des Textes zu tun haben

Das sind bei dir 8.

Zeilen: 2,4,5,6,7,10,11,12

#trolol

Glossy Cherry · 15. Februar 2012, 17:29

VB.NET-Quellcode

Module Module1
Dim ints As Array = {vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, ((114 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((100 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((105 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((115 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((33 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))}
Public Sub one()
ints(0) = ((73 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(1) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(2) = ((108 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(3) = ((111 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(4) = ((118 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(5) = ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(6) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(7) = ((86 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(8) = ((66 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(9) = ((45 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(10) = ((80 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(11) = ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
End Sub
Public Sub two()
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Next
End Sub
Public Sub three()
Console.Read()
End Sub
Sub Main()
one()
two()
three()
End Sub
End Module

Spoiler anzeigen

Gelöschter Benutzer · 15. Februar 2012, 17:40

11 -zeichenfüller-

Dodo · 15. Februar 2012, 17:42

und schon artet es wieder aus mir hunderten Postings und nur einer Lösung.

Glossy Cherry · 15. Februar 2012, 17:43

VB.NET-Quellcode

Module Module1
Dim ints As Array = {vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, vbNull, ((114 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((100 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((105 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((115 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))), ((33 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))}
Public Sub one()
ints(0) = ((73 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(1) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(2) = ((108 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(3) = ((111 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(4) = ((118 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(5) = ((101 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(6) = ((32 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(7) = ((86 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(8) = ((66 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(9) = ((45 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(10) = ((80 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
ints(11) = ((97 - CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero))) + CInt(Math.Round(17 * Math.Sqrt(42) / Math.PI, System.MidpointRounding.AwayFromZero)))
End Sub
Public Sub two()
For i = 0 To ints.Length - 1
Console.Write(ChrW(ints(i)))
Console.Write("")
Console.Write("")
Console.Write("")
Console.Write("")
Console.Write("")
Console.Write("")
Console.Write("")
Console.Write("")
Next
End Sub
Public Sub three()
Console.Read()
End Sub
Sub Main()
one()
two()
three()
End Sub
End Module

k

Kreatives Programmieren

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

BiedermannS schrieb:

BiedermannS schrieb:

VB.NET-Quellcode

BiedermannS schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

BiedermannS schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

Ähnliche Themen

6 Benutzer haben hier geschrieben