EXP - Izračunava stepen sa bazom prirodnog logaritma 2.718281828459
Sintaksa: FUNCTION EXP(vrijednost:<REAL>): <REAL>;
Primjer izračunavanja stepenovanja.
ab= e ln ab = e b*ln a =exp(b*ln(a))
Tabela d.13. EXP - funkcija
Listing programa |
Opis |
PROGRAM pEXP; |
Zaglavlje |
FUNCTION Stepen(vrijednost, eksponent:REAL):REAL; |
Potprogram |
BEGIN |
|
Stepen := EXP(eksponent*LN(vrijednost)); |
Izračunavanje |
END; |
Kraj procedure |
BEGIN |
Glavni program |
WRITELN('3 na 2 je ', Stepen(3, 2):10:3); |
Ispis 9:000 |
WRITELN('3 na 2.5 je ', Stepen(3, 2.5):10:3); |
15.588 |
WRITELN('3 na 0.5 je ', Stepen(3, 0.5):10:3); |
1.732 |
END. |
Kraj programa |
Listing programa:
PROGRAM pEXP;
USES
WinCrt;
FUNCTION Stepen(vrijednost, eksponent:REAL):REAL;
BEGIN
Stepen := EXP(eksponent*LN(vrijednost));
END;
BEGIN
WRITELN('3 na 2 je ', Stepen(3, 2):10:3);
WRITELN('3 na 2.5 je ', Stepen(3, 2.5):10:3);
WRITELN('3 na 0.5 je ', Stepen(3, 0.5):10:3);
END.
Izvršavanje
eksponent
3 na 2 je 9.000
3 na 2.5 je 15.588
3 na 0.5 je 1.732
Index
|
|