Язык процедур 2-REXX для OS-2


Написание арифметических процедур REXX


Ниже дано упражнение, позволяющее повторить некоторые правила, используемые в предыдущих примерах. Вам нужно написать процедуру, выполняющую операцию сложения двух чисел. Имя процедуры - ADD.CMD.

В своей процедуре Вам придется выполнить следующие действия:

  1. Идентифицировать и описать процедуру REXX.
  2. Предложить пользователю ввести числа.
  3. Прочитать введенные числа и поместить их в память системы.
  4. Сложить два числа и вывести результат на экран.
  5. Завершить выполнение процедуры.

Существует множество способов, позволяющих выполнить поставленную задачу. Чтобы облегчить ее выполнение в данной процедуре, предложим пользователю ввести каждое число отдельно, а затем сложим эти числа. Далее приведены размышления, которые помогут Вам при написании процедуры ADD.CMD.

  1. Первым делом, что идентифицирует процедуру REXX? Если Вы считаете, что это комментарий, то Вы правы.
  2. Далее, нужно предложить пользователю ввести число. С помощью инструкции SAY можно вывести это предложение на экран.
  3. Когда число введено, его нужно поместить в память компьютера. Инструкция PULL получает ответ и помещает его в память.
  4. Инструкция, которая запрашивает ввод второго числа, может выглядеть подобно первой; второе число также должно быть помещено в память.
  5. Следующая инструкция похожа на инструкцию в процедуре MATH. В одном операторе языка REXX можно приказать интерпретатору сложить два значения в памяти и вывести результат на экран. Для этого используйте одну инструкцию, которая содержит строку и операцию сложения.
  6. В заключение, для завершения выполнения процедуры используйте инструкцию EXIT.
  7. Если Вы хотите проверить работу этой процедуры, то наберите и сохраните текст, приведенный ниже.

/* Эта процедура складывает два числа */ SAY "Введите первое число." PULL num1 SAY "Введите второе число." PULL num2 SAY "Сумма двух чисел равна" num1 + num2 EXIT

Чтобы выполнить процедуру ADD.CMD, введите ADD в командном режиме OS/2, а затем введите два любых числа. Ниже приведен протокол работы этой процедуры, если Вы ввели числа 3 и 12.

[C:\]ADD Введите первое число. 3 Введите второе число. 12 Сумма двух чисел равна 15 [C:\]




- Начало -  - Назад -