Anath
6 год назад
Pascal:
Вычислить значение выражения y = x^n – z^k. Вычисление значения степени оформить в виде рекурсии.
ОТВЕТЫ
Polikarpovich
Aug 9, 2019
Function Pow(x:real;n:integer):real;
begin
if n=0 then Pow:=1
else Pow:=Pow(x,n-1)*x
end;
var
x,z:real;
n,k:integer;
begin
Writeln(Введите x,n,z,k: ); Read(x,n,z,k);
Writeln(Pow(x,n)-Pow(z,k))
end.
Пример
Введите x,n,z,k:
3.7 5 2.18 4
670.85426424
begin
if n=0 then Pow:=1
else Pow:=Pow(x,n-1)*x
end;
var
x,z:real;
n,k:integer;
begin
Writeln(Введите x,n,z,k: ); Read(x,n,z,k);
Writeln(Pow(x,n)-Pow(z,k))
end.
Пример
Введите x,n,z,k:
3.7 5 2.18 4
670.85426424
72
Смежные вопросы:
