Proc22. Описать функцию Calc($$A$$, $$B$$, $$Op$$) вещественного типа, выполняющую над ненулевыми вещественными числами $$A$$ и $$B$$ одну из арифметических операций и возвращающую ее результат. Вид операции определяется целым параметром $$Op$$: 1 — вычитание, 2 — умножение, 3 — деление, остальные значения — сложение. С помощью $$Calc$$ выполнить для данных $$A$$ и $$B$$ операции, определяемые данными целыми $$N_1$$, $$N_2$$, $$N_3$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 |
program Proc22; Function Calc(A,B:Real;Op:Integer):Real; begin Case Op of 1: Calc:=A-B; 2: Calc:=A*B; 3: Calc:=A/B; Else Calc:=A+B; end; end; var A,B,N1,N2,N3:Integer; begin Write('A :'); Readln(A); Write('B :'); Readln(B); Write('N1 :'); Readln(N1); Write('N2 :'); Readln(N2); Write('N3 :'); Readln(N3); Writeln(Calc(A,B,N1)); Writeln(Calc(A,B,N2)); Writeln(Calc(A,B,N3)); end. |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: