|
|
|
|
|
|
|||||||
| Programmierung Rat & Tat für Programmierer |
|
|
Themen-Optionen | Ansicht |
03.09.2002, 23:38
|
#6 |
|
Inventar
 Registriert seit: 13.06.2001
Beiträge: 1.830
|
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;
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) |
|
|
| Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Gäste: 1) | |
|
|
Baum-Darstellung