Anonymous user
Menu: Difference between revisions
Add Seed7 example
mNo edit summary |
(Add Seed7 example) |
||
Line 1,250:
response = select("Which is from the three pigs", items)
puts "you chose: >#{response}<"</lang>
=={{header|Seed7}}==
<lang seed7>$ include "seed7_05.s7i";
const func string: menuSelect (in array string: items, in string: prompt) is func
result
var string: selection is "";
local
var string: item is "";
var integer: index is 0;
var integer: num is 0;
begin
if length(items) <> 0 then
repeat
for item key index range items do
writeln(index <& ". " <& item);
end for;
write(prompt);
readln(num);
until num >= 1 and num <= length(items);
selection := items[num];
end if
end func;
const array string: items is [] ("fee fie", "huff and puff", "mirror mirror", "tick tock");
const string: prompt is "Which is from the three pigs? ";
const proc: main is func
begin
writeln("You chose " <& menuSelect(items, prompt));
end func;</lang>
=={{header|Tcl}}==
| |||