Pascal: Вычислить значение выражения y=x^n – z^k. Вычисление значения степени оформить в...

Question

Pascal:

Вычислить значение выражения y=x^n – z^k. Вычисление значения степени оформить в виде рекурсии.

Answer 1

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