Keyboard input/Obtain a Y or N response: Difference between revisions
Content added Content deleted
(→{{header|Pascal}}: add example) |
|||
| Line 264: | Line 264: | ||
MESSAGE lanswer VIEW-AS ALERT-BOX.</lang> |
MESSAGE lanswer VIEW-AS ALERT-BOX.</lang> |
||
=={{header|Pascal}}== |
|||
{{works with|Free_Pascal}} |
|||
{{libheader|CRT}} |
|||
<lang pascal>Program ObtainYN; |
|||
uses |
|||
crt; |
|||
var |
|||
key: char; |
|||
begin |
|||
write('Your answer? (Y/N): '); |
|||
repeat |
|||
key := readkey; |
|||
until (key in ['Y', 'y', 'N', 'n']); |
|||
writeln; |
|||
writeln ('Your answer was: ', key); |
|||
end.</lang> |
|||
Output: |
|||
<pre>% ./ObtainYN |
|||
Your answer? (Y/N): |
|||
Your answer was: y |
|||
</pre> |
|||
=={{header|Perl}}== |
=={{header|Perl}}== |
||