Proc37. Описать функцию Power1($$A$$, $$B$$) вещественного типа, находящую величину A^B по формуле $$A^B = exp(B*ln(A))$$ (параметры $$A$$ и $$B$$ — вещественные). В случае нулевого или отрицательного параметра $$A$$ функция возвращает 0. С помощью этой функции найти степени $$A^P$$, $$B^P$$, $$C^P$$, если даны числа $$P, A, B, C$$.
Решение:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 |
program Proc37; Function Power1(A,B:Real):Real; begin if a>0 then Power1:=exp(B*Ln(a)) else Power1:=0; end; var P,A,B,C:Real; begin Write('P :'); Readln(P); Write('A :'); Readln(A); Write('B :'); Readln(B); Write('C :'); Readln(C); Writeln(Power1(A,P)); Writeln(Power1(B,P)); Writeln(Power1(C,P)); end. |
Другие задачи из раздела Proc можно посмотреть здесь.
Комментарии: