Oh stimmt!
Dank dir!
Aber dann nächstes Problem:
Delphi-Quellcode:
program gregory;
var
a,b,d,e: real;
f,i: integer;
c:longint;
function Um(var la,lb:real):real;
begin
la:=(2*la*lb)/(la+lb);
end;
function Ein(var sa,sb:real):real;
begin
sa:=sqrt(sb*(2*sa*sb)/(sa+sb));
end;
begin
f:=1;
a:=3;
b:=2*sqrt(3);
writeln('Eingabe Genauigkeit in 10(hoch)x');
readln(c);
for i:=1 to c do f:=f*10;
repeat
d:=(Um(b,a))*f;
e:=(Ein(b,a))*f;
d:=round(e);
e:=round(e);
writeln((d/f));
writeln(e/f);
until d=e;
readln;
end.
Funktioniert zwar sieht aber überhaupt nicht nach Pi aus!
Und wenn ich eine Zahl über 9 eingebe kommt wieder:
Zitat:
Division by Zero
mfg
störtbecker