Bài toán tính x^y với x, y là số thực trong Pascal

Tính x^y ( Với x, y là số thực).

Đáp án

Program X_LUYTHUA_Y;

Uses crt;

Var x,y,z:real;

Begin

Writeln(‘TINH X LUY THUA Y:’);

Writeln('----------------------------------');

Write('Nhap x = '); readln(x);

Write('nhap y = '); readln(y);

If x>=0 then

   Begin

         z:=exp(y*ln(x));

         Writeln('x ^ y = ',z:4:2);

   End

   Else

   Writeln('Khong tinh duoc do x la so am');

Readln;

End.