Napisz program w Free Turbo Pascalu, który obliczy dowolną potęgę dowolnej liczby. Program ten ma być wykonany bez pętli, gdyż jeszcze jej nie braliśmy
" Life is not a problem to be solved but a reality to be experienced! "
© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.
Free Turbo Pascal?
To w koncu Free Pascal czy Turbo Pascal? :D
Napisalem we free pascalu, ale w turbo tez powinno chodzic :)
Var p,w:real;
Begin
Write('Podaj podstawe: ');
ReadLn(p);
Write('Podaj wykladnik: ');
ReadLn(w);
WriteLn;
Write('Wynik: ',exp(w*ln(p)):0:3);
ReadLn;
End.