与输入输入数据[]在数学

Question

我怎样才能使在该代码在输入命令的对话框中的文本是这样“输入1个元件”，“输入2元素” ....

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

Answer 1

确保您的变量匹配。 :-)

您可以使用来构建文本。

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"]，但我喜欢更好。）

Answer 2

按照输入[]帮助：

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] 

将显示之类的东西：