Kurs Turbo Pascala

var i, potega, wynik, liczba : Integer;     begin  WriteLn('Jaka liczba: ');  ReadLn(liczba);  WriteLn('Jaka potega: ');  ReadLn(potega);  wynik := 1;  for i:=1 to potega do    wynik := wynik * liczba;  WriteLn('Wynikiem ',liczba,' do potegi ',potega,' jest ', wynik);   end.

Program pobiera liczbę i wykładnik potęgi. Teraz początkowym wynikiem będzie 1. To dlatego, że gdy ktoś poda wykładnik 0 wtedy pętla for i:=1... się nie wykona, więc wynikiem powinno być 1. Każda liczba do zerowej potęgi to 1.

Potęga to liczba pomnożona przez siebie kilka razy. Mnożenie wielokrotne zrealizowane jest za pomocą pętli. Instrukcje: wynik := wynik * liczba powtórzą się wielokrotnie, w zależnosci od zawartości zmiennej potega.

Np. gdy potega = 3 a liczba = 2
wtedy w programie
wynik = 1;

rozpoczyna się pętla
dla i=1 wynik to 1 * liczba czyli 1 * 2 czyli 2
dla i=2 wynik to 2 (poprzedni wynik) * liczba czyli 2 * 2 czyli 4
dla i=3 wynik to 4 (poprzedni wynik) * liczba czyli 4 * 2 czyli 8
dla i=4 pętla kończy się. Nie wykona się ani razu.

Program wypisuje na ekranie:


Wynikiem 2 do potegi 3 jest 8

Program działa b. szybko. Znacznie szybciej niż pokazany poniżej metodą bisekcji. Uwaga! Argument "a" musi być nieujemny.

Można tylko dodać, że odwrotność potęgi jest pierwiastkiem, odwrotność pierwiastka potęgą.

Poniższy przykład zwraca pierwiastek z 2.

var a, b : Real; begin     a:=2;     b:=0.5;     {Program oblicza dowolne potegi a^b}     WriteLn(exp(ln(a)*b)); end.