Ввод данных с помощью Input [] в Mathematica

Question

Как я могу сделать в этом коде текст в диалоговом окне команды ввода, чтобы это было похоже на «Введите 1 элемент», «Введите 2 элемент» ....

For[k = 1, k ≤ n, k++,
  br = Input["Enter the ",i,"element"];
  AppendTo[x, br];
]

Answer 1

Убедитесь, что ваши переменные совпадают.: -)

Вы можете использовать Row для создания текста.

x = {};
n = 3;
For[k = 1, k <= n, k++,
 br = Input[Row[{"Enter the ", k, " element"}]];
 AppendTo[x, br];
 ]

(Вы также можете использовать StringJoin["Enter the ", ToString[k], " element"], но мне нравится Row лучше.)

Answer 2

Согласно справке Input [] :

The prompt given can be text, graphics or any expression.

Итак, все что угодно поместится в подсказке ввода!

В качестве примера (обратите внимание, что явный цикл не нужен):

x = Input[
    Panel[Grid@{{Row[{"Enter the element number ", #}]}, 
                     {PolyhedronData["Platonic", {"Image"}][[Mod[#, 5] + 1]]}}]
         ] & /@ Range[1, 5]

Покажет такие вещи, как: