Proc39. Используя функции Power1 и Power2 (задания Proc37 и Proc38), описать функцию Power3($$A$$, $$B$$) вещественного типа с вещественными параметрами, находящую $$A^B$$ следующим образом: если $$B$$ имеет нулевую дробную часть, то вызывается функция Power2($$A$$, Round($$B$$)); в противном случае вызывается функция Power1($$A$$, $$B$$). С помощью этой функции найти $$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 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 |
program Proc39; Function Power1(A,B:Real):Real; begin if a>0 then Power1:=exp(B*Ln(a)) else Power1:=0; end; Function Power2(A:Real;N:Integer):Real; var i:integer; TempRez:Real; begin TempRez:=1; if N=0 then TempRez:=1 else for i:=1 to abs(N) do TempRez:=TempRez*A; if N<0 then TempRez:=1/TempRez; Power2:=TempRez; end; Function Power3(A,B:Real):Real; begin if B - Round(B) = 0 then Power3:=Power2(A,Round(B)) else Power3:=Power1(A,B); 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 можно посмотреть здесь.
Комментарии: