генератор хайку. Программа, которая случайным образом вытягивается из массива одного и двух слогов и помещает их в новое стихотворение хайку, следуя слогу от 5-7-5.Microsoft Small Basic Program
Использование Microsoft Small Basic.
Идея решения, я могу, состоит в том, чтобы сделать массив размером 3.
array["syllables"][1][1] = "red"
array["syllables"][1][2] = "Cat"
array["syllables"][1][3] = "The"
array["syllables"][2][1] = "reading"
и продолжайте использовать как можно больше слов. затем создайте 3, а петли - первое, а количество слогов не более 5 - добавляет слова, используя измерение 2-го массива в качестве сумматора. , так что получите случайное число, которое не превышает количество слогов, возможных для правила. Когда у вас есть случайное слово. добавьте этот слог к держателю номера и сделайте номер цикла while у вас на < общих слогах.
во второй не более 7 и третий не больше 5.
Надежда, что помогает.
Спасибо, Мэтью, я попробую это, надеюсь, это работа. – user6233180
Я попробовал это .... Имя [1] = "Старый пруд безмолвный" Имя [2] = "Лягушка прыгает в пруд" Name [3] = "всплеск! Silence снова" Имя [ 4] = «Осенний лунный свет» Название [5] = «Охотник Beauchamp» Название [6] = «червь копает беззвучно» Название [7] = «в каштан» Название [8] = "Молния" Имя [9] = "что я думал, были лица" Имя [10] = "являются шлейфы пампа травы" – user6233180
общ = 10 TextWindow.WriteLine ("массива:") Для а = от 1 до 10 г = Math.GetRandomNumber (tot) TextWindow.WriteLine (a + ":" + name [i]) Если <10, то остальное = Math.Remainder (а, 2) Если (остаток = 0) Тогда TextWindow.Write (Text.GetCharacter (10) + "массив:" + Text.GetCharacter (10)) EndIf EndIf Если карапуз> я тогда При Ь = я К ТОТ-1 имя [б] = Имя [Ь + 1] ENDFOR EndIf карапуз = ТОТ-1 ENDFOR – user6233180
Не могли бы вы поставить его в форму кода? – Matthew