Напишите подпрограмму, находящую величину A^B - PascalABC.NET
Формулировка задачи:
Напишите подпрограмму, в которой есть функция Power1(A , B ) вещественного типа, находящую величину A^B по формуле AB =exp(B∗ln(A)) (параметры A и B - вещественные). В случае нулевого или отрицательного параметра A функция возвращает 0. С помощью этой функции найти степени Ap , B p , Cp , если даны числа P,A,B,C .
Решение задачи: «Напишите подпрограмму, находящую величину A^B»
textual
Листинг программы
function power1(a,b:real):real;
begin
if a<=0 then result:=0 else result:=exp(b*ln(a));
end;
var
p,a,b,c:real;
begin
write('A,B,C,p=');readln(a,b,c,p);
writeln('Ap=',power1(a,p));
writeln('Bp=',power1(b,p));
writeln('Cp=',power1(c,p));
end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д