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

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

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

Код к задаче: «По введенному номеру выполнить то или иное действие над числами - Pascal ABC»

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;

12   голосов, оценка 3.917 из 5


СОХРАНИТЬ ССЫЛКУ