Hi!
Wie kann ich diese Funktion aufrufen:
Delphi-Quellcode:
function Pileibniz(Summandenzahl : integer):extended;
var
i, summand : integer;
begin
summand := 1;
result := 0;
for i:=1 to summandenzahl do
begin
result := result + (1/summand);
if (1-summand) < 1 then summand := -1 * (summand+2)
else summand := -1 * (summand-2);
end;
result := result * 4;
end;
Ich hab irgendwie schon alles versucht aber der Compiler meldet trotzdem Fehler (kann auch an mir liegen
)! Wie kann ich das standardmäßig machen?