e-mail    Debatní kniha    Mapa stránek    Hlavní  
 perličky 
 

Mocnění v Pascalu

Miroslav Milda

Zatím jsem v Programátorských perličkách nenašel žádnou proceduru či funkci, která by uměla mocnit a odmocňovat v oboru reálných čísel. Před časem jsem se potýkal s problémem, jak v Pascalu vytvořit pátou odmocninu z libovolného čísla. Vytvořil jsem následující funkci Mocnina, která umí mocnit i odmocnit libovolné reálné číslo. A přidal jsem prográmek DEMO, který demonstruje použití funkce Mocnina.

Funkce vrací výsledek typu real (samozřejmě lze přepsat třeba na double) a požaduje parametry, základ a exponent stejného typu. Samotná funkce je jednoduchý matematický vzorec, tedy nic světoborného, ale domnívám se, že čtenářům programujících v Turbo Pascalu pomůže.

unit mocni;
interface

function mocnina(zaklad,exponent:real):real;

implementation
function mocnina(zaklad,exponent:real):real;
begin;
mocnina:=exp(exponent*ln(zaklad));
end;
end.


program demo;
uses mocni;
begin;
writeln('Sesta mocnina z 5.7 je ',mocnina(5.7,6));
writeln('8.23 ta mocnina z 2.7 je ',mocnina(8.23,2.7));
writeln('Devata odmocnina z 345 je ',mocnina(345,1/9));
writeln('Treti odmocnina z 8 je ',mocnina(8,1/3));
writeln('5.6 ta odmocnina z e 7.9 je ',mocnina(7.9,1/5.6));
end.



Pascal - hlavní
Překladače
Vlastní články
Převzaté články
Věci na stáhnutí
Odkazy k tématu
BP7 buglist
Chyba Run-time 200

BASIC