Написание арифметических процедур REXX
Ниже дано упражнение, позволяющее повторить некоторые правила, используемые в предыдущих примерах. Вам нужно написать процедуру, выполняющую операцию сложения двух чисел. Имя процедуры - ADD.CMD.
В своей процедуре Вам придется выполнить следующие действия:
- Идентифицировать и описать процедуру REXX.
- Предложить пользователю ввести числа.
- Прочитать введенные числа и поместить их в память системы.
- Сложить два числа и вывести результат на экран.
- Завершить выполнение процедуры.
Существует множество способов, позволяющих выполнить поставленную задачу. Чтобы облегчить ее выполнение в данной процедуре, предложим пользователю ввести каждое число отдельно, а затем сложим эти числа. Далее приведены размышления, которые помогут Вам при написании процедуры ADD.CMD.
- Первым делом, что идентифицирует процедуру REXX? Если Вы считаете, что это комментарий, то Вы правы.
- Далее, нужно предложить пользователю ввести число. С помощью инструкции SAY можно вывести это предложение на экран.
- Когда число введено, его нужно поместить в память компьютера. Инструкция PULL получает ответ и помещает его в память.
- Инструкция, которая запрашивает ввод второго числа, может выглядеть подобно первой; второе число также должно быть помещено в память.
- Следующая инструкция похожа на инструкцию в процедуре MATH. В одном операторе языка REXX можно приказать интерпретатору сложить два значения в памяти и вывести результат на экран. Для этого используйте одну инструкцию, которая содержит строку и операцию сложения.
- В заключение, для завершения выполнения процедуры используйте инструкцию EXIT.
- Если Вы хотите проверить работу этой процедуры, то наберите и сохраните текст, приведенный ниже.
/* Эта процедура складывает два числа */ SAY "Введите первое число." PULL num1 SAY "Введите второе число." PULL num2 SAY "Сумма двух чисел равна" num1 + num2 EXIT
Чтобы выполнить процедуру ADD.CMD, введите ADD в командном режиме OS/2, а затем введите два любых числа. Ниже приведен протокол работы этой процедуры, если Вы ввели числа 3 и 12.
[C:\]ADD Введите первое число. 3 Введите второе число. 12 Сумма двух чисел равна 15 [C:\]
