Haiku-Generator. Ein Programm, das nach dem Zufallsprinzip aus einem Array von einer und zwei Silben zieht und sie in ein neues Haiku-Gedicht nach der Silbe von Microsoft Small Basic einfügt.Microsoft Kleines Basisprogramm
Die Idee hinter der Lösung, ich kann, ist es, ein 3-dimensionales Array zu machen.
array["syllables"][1][1] = "red"
array["syllables"][1][2] = "Cat"
array["syllables"][1][3] = "The"
array["syllables"][2][1] = "reading"
und weiter so viele Wörter wie Sie möchten. Erstellen Sie dann 3 While-Schleifen die erste, während die Anzahl der Silben in nicht mehr als 5 Wörter hinzufügen, die zweite Array-Dimension als Addierer verwenden. also eine Zufallszahl erhalten, die nicht größer ist als die Anzahl der möglichen Silben für die Regel. Sobald Sie ein zufälliges Wort haben. füge diese Silbe zu einem Nummerninhaber hinzu und mache die While-Schleife Nummer, die du bei < Silben gesamt bist.
in den zweiten nicht mehr als 7 und 3. nicht größer als 5
Hoffnung, das hilft.
Danke Matthew Ich werde es versuchen Ich hoffe es funktioniert. – user6233180
ich versuchte, diese .... Bezeichnung [1] = "Ein alter stiller Teich" Name [2] = "Ein Frosch springt in den Teich" Name [3] = "splash! Stille wieder" Name [ 4] = "Autumn moonlight" Name [5] = "Hunter Beauchamp" Name [6] = "ein Wurm gräbt schweigend" Name [7] = "in die Kastanie" Name [8] = "Blitz" Name [9] = "was ich dachte, waren Gesichter" Name [10] = "sind Federn von Pampasgras" – user6233180
tot = 10 TextWindow.WriteLine ("Array") Für a = 1 bis 10 i = Math.GetRandomNumber (tot) TextWindow.WriteLine (a + ":" + name [i]) Wenn a <10 dann Rest = Math.Remainder (a, 2) If (Rest = 0) Then TextWindow.Write (Text.GetCharacter (10) + "Array:" + Text.GetCharacter (10)) EndIf EndIf Wenn tot> i Dann Für b = i Name To-1 tot [b] = Name [b + 1] EndFor EndIf tot = tot-1 endfor – user6233180
Könnten Sie es bitte setzen in Codeform? – Matthew