По введенному номеру выполнить то или иное действие над числами - Pascal ABC

Узнай цену своей работы

Формулировка задачи:

Даны два действительных числа x и y. Арифметические действия над ними пронумерованы. (1 – сложение, 2 – вычитание и т.д. ) составить программу, которая по введенному номеру выполняет то или иное действие над числами) ПОМОГИТЕ!

Решение задачи: «По введенному номеру выполнить то или иное действие над числами»

textual
Листинг программы
Function Calc(x,y : Real; Oper : Byte) : Real;
Begin
  Case Oper of
    1 : Calc:=x+y;
    2 : Calc:=x-y;
    3 : Calc:=x*y;
    4 : Calc:=x/y;
    else Calc:=0
  end;
end;

Объяснение кода листинга программы

В данном коде описывается функция Calc, которая принимает три аргумента: x, y и Oper. Операция, которую нужно выполнить над числами x и y, определяется значением переменной Oper. Внутри функции используется оператор Case для определения конкретного значения переменной Oper. В зависимости от этого значения выполняется соответствующая операция над числами x и y. Если значение переменной Oper равно 1, то выполняется сложение чисел x и y и результат присваивается переменной Calc. Если значение переменной Oper равно 2, то выполняется вычитание чисел x и y и результат присваивается переменной Calc. Если значение переменной Oper равно 3, то выполняется умножение чисел x и y и результат присваивается переменной Calc. Если значение переменной Oper равно 4, то выполняется деление чисел x и y и результат присваивается переменной Calc. Если значение переменной Oper не соответствует ни одному из вышеперечисленных значений, то функция возвращает ноль. Таким образом, данная функция выполняет различные арифметические операции над числами x и y в зависимости от значения переменной Oper.

Оцени полезность:

12   голосов , оценка 3.917 из 5
Похожие ответы