Power Test

Posted on 18.06.2010

0


program _test_pangkat;
uses crt;
begin
   clrscr;
   writeln(‘exp(ln(2)*3) = ‘,exp(ln(2)*3):0:2);
   writeln(‘exp(ln(3)*3) = ‘,exp(ln(3)*3):0:2);
   writeln(‘exp(ln(4)*4) = ‘,exp(ln(4)*4):0:2);
   writeln(‘exp(ln(5)*5) = ‘,exp(ln(5)*5):0:2);
   writeln(‘exp(ln(6)*3) = ‘,exp(ln(6)*3):0:2);
   writeln(‘exp(ln(7)*4) = ‘,exp(ln(7)*4):0:2);
   writeln(‘exp(ln(8)*5) = ‘,exp(ln(8)*5):0:2);
   writeln(‘exp(ln(9)*4) = ‘,exp(ln(9)*4):0:2);
   writeln(‘exp(ln(10)*5) = ‘,exp(ln(10)*5):0:2);
   readln;
end.

Posted in: Pascal Code