hmm ihc hab hier den code in turbo pascal...
falls wer wüsste wie des in pb heisst ...wär ich sehr dankbar
uses wincri
Var A,l,b:real
begin
readln(A);
readln(l);
b:= A/l
While (round(l*10000) <> round(b*10000)) do
begin
l:= (l+b)/2
b:= A/l
end
writeln('Die wurzel aus' ,A,' ist 'l)
end
Die Suche ergab 3 Treffer
heron
hi
Ihr kennt doch sicherlich das Heronverfahren zum bestimmen von Quadratwurzeln.
ich wollte sin programm in pb schreiben bleibe aber schon im ansatz stecken, denn pb erlaubt es mri nicht zahlen zu speichern bzw auszugeben.
die formel laute tja
"bitte Radikand eingeben" (A)
"bitte Startwert ...
Ihr kennt doch sicherlich das Heronverfahren zum bestimmen von Quadratwurzeln.
ich wollte sin programm in pb schreiben bleibe aber schon im ansatz stecken, denn pb erlaubt es mri nicht zahlen zu speichern bzw auszugeben.
die formel laute tja
"bitte Radikand eingeben" (A)
"bitte Startwert ...