Wenn ganzzahlige Hochzahlen (keine Wurzeln) ausreichen kann mans einfach mit einer
Code:
funktion hochzahl(basis:real;exponent:integer):real
var i:integer;
zahl:real;
begin
zahl:=1;
if (exponent>1) then for i:=1 to exponent do zahl:=zahl*basis;
hochzahl:=zahl;
end;
machen (oder nur mit einer Schleife).
Jak
____________________________________
Join the DNRC |
Godwin\'s Law (thx@stona)
Documentation is like sex: If it\'s good, it\'s very, very good. If it\'s bad, it\'s better than nothing.
\"In theory, theory and practice are the same. In practice, they are not\" (Lawrence Berra)