iteratives Verfahren

[Matze89]

Hi kann mir jem. da mal einen Tipp geben, wie ich das machen soll? Ich soll ein Programm implementieren für die Wurzelberechnung nach Heron von Alexandria. Nach der Eingabe des Radikanten und der Genauigkeit wird die Quadratwurzel berechnet.

[leddl]

Naja, die Formel hast du ja, oder? Jetzt musst du eben immer in einer Schleife den n-ten Term berechnen. Sprich, du speicherst xn in der Schleife in einer Variable zwischen und benutzt es dann wieder für xn+1, usw...

[omata]

Ihr habt recht. Ich werde mich ab jetzt nicht mehr zu Wort melden, sorry.

[Medium]

Glückwunsch omata, wieder eine Hausaufgabe ohne jeglichen Lerneffekt!

[Matze89]

vielen Dank

[Matze89]

Irgendwie bekomme ich das mit der Genauigkeit nicht hin

[dominikkv]

was hast du denn bisher, wo haperts?

[leddl]

Zitat:

Zitat von Matze89

Irgendwie bekomme ich das mit der Genauigkeit nicht hin

Dann zeig doch, was Du bisher hast, und wo das Problem liegt ;) "Ich krieg das nich hin" is nich wirklich hilfreich :zwinker:

[Matze89]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;

type
TForm1 = class(TForm)
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
Edit1: TEdit;
Edit2: TEdit;
Edit3: TEdit;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var zahl: integer;
a,b,Genauigkeit:real;
begin
zahl := strtoint(edit1.text);
Genauigkeit := strtofloat(edit2.text);
a:=1; b:=zahl;
repeat
b:=(a+b)/2;
a:=zahl/b
until

end;

procedure TForm1.Button2Click(Sender: TObject);
begin
close;
end;

end.

[Medium]

Quelltexte bitte immer in [ delphi] [ /delphi] Tags (ohne Leerzeichen) fassen.

Delphi-Quellcode:

.
.
    repeat
      b:=(a+b)/2;
      a:=zahl/b
    until

until... until was? Dir fehlt die Abbruchbedingung der Schleife, und das scheint mir ein geradezu vorzüglicher Platz zu sein, die Genauigkeit ins Spiel zu bringen.

[Matze89]

ist das so richtig?
until b-a < Genauigkeit;

[Medium]

Klingt sinnvoll :)

[Matze89]

aha. thx

[sampho]

hey matze89,
ich hab die selbe aufgabe! ich muss einen vortrag darüber halten und deine anfrage hat mir schon weiter geholfen.
Allerdings habe ich noch ein Problem mit dem Struktogramm, worauf unser lehrer noch mehr wert legt als auf ein funktionierendes programm.
Könntest du mir das evtl. mal schicken damit ich damit weiter komme.
vielen dank im voraus, würde mir echt weiter helfen!!!!

[Matze89]

Hi kannst du mir da erst mal zeigen, wie weit du schon mit deinem Program bist?