User input/Graphical: Difference between revisions
Content added Content deleted
(→{{header|REXX}}: added the REXX computer programming language.) |
|||
Line 1,310: | Line 1,310: | ||
] |
] |
||
]</lang> |
]</lang> |
||
=={{header|REXX}}== |
|||
This version is modeled after the '''Mathematica''' example. |
|||
In addition, it checks for errors such as no string entered (or it is blanks or null), and |
|||
it verifies that the correct number has been entered. |
|||
<lang rexx>/*REXX pgm prompts (using the OS GUI) for a string & then prompts for a specific number.*/ |
|||
#= 75000 /*the number that must be entered. */ |
|||
string= |
|||
nubber= |
|||
do while string=' ' /*string can't be blanks or null string*/ |
|||
say |
|||
say 'Please enter a string: ' |
|||
parse pull string |
|||
if string='' then say '***error*** No string entered.' |
|||
end /*while string···*/ |
|||
do while number\=# /*the number (belwow) may be ill formed*/ |
|||
say |
|||
say 'Please enter the number:' # |
|||
parse pull number |
|||
if datatype(number, 'N') then number= number / 1 /*normalize number*/ |
|||
if number\=# then say '***error*** The number is not correct: ' number |
|||
end /*while number···*/ |
|||
say /* [↓] echo values (string & number).*/ |
|||
say 'The string entered is:' string |
|||
say 'The number entered is:' number |
|||
/*stick a fork in it, we're all done. */</lang><br><br> |
|||
=={{header|Ring}}== |
=={{header|Ring}}== |