heron verfahren

[sirius]

1. Das ist nicht .Net

2. Beschäftige dich mal mit Zahlentypen:
Integer: Ganze Zahlen
Double : Fließkommazahlen

3. Deine ganzen Variablen sind besser lokal, direkt in der Prozedur aufgehoben

Delphi-Quellcode:

procedure button1click(...)
var a,b,x,y,k:double;
    i:integer;
begin
...
end;

4. Wahrscheinlich willst du dass hier:
  until abs(x-y)<k;
(5. Bis gerade eben hattest du eine Zählschleife, und die macht man nicht mit repeat..until. Allersdings ist nach meiner Änderung in Punkt 4 das repeat until sinnvoller.)


Edit:
4.2. Oder wenn du in edit2 für die Genauigkeit statt 0,0001 lieber 5 (5 Stellen) schreiben willst:
  until abs(x-y)<power(10,-k); Dazu musst du die Unit math einbinden, sonst kennt er power nicht.