Anonymous user
User input/Graphical: Difference between revisions
→{{header|REXX}}: added the REXX computer programming language.
(→{{header|REXX}}: added the REXX computer programming language.) |
|||
Line 1,310:
]
]</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}}==
| |||