Brauche Hilfe Rechenprogramm mit while schleife

[Epytir]

Hi Leute ich muss für die Schule ein Programm programmieren das eine zahl x+z/y rechnet also
erster durchgang z.B. 10+0/1
zweiter 10+10/2
dritter 10+15/3
...
aber bei mir wird die tahl immer kleiner und die schleife endet nie hier is mein Quelltext:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    btn1: TButton;
    edt1: TEdit;
    edt2: TEdit;
    mem1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure btn1Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 edt1.Text     := '' ;
 edt2.Text     := '' ;
 mem1.Text     := '' ;
 mem1.ReadOnly := true ;
 btn1.Caption  := 'Start';
end;

procedure TForm1.btn1Click(Sender: TObject);
 var     Endbedingung,
         Eingabe,
         Ergebnis,
         Zaehler     :Real ;
begin

        Eingabe := StrToInt(edt1.Text);
        Endbedingung := StrToFloat(edt2.Text);
        Zaehler := 0 ;

while Ergebnis<Endbedingung do begin

        Zaehler := Zaehler+1 ;
        Ergebnis :=Eingabe+(Ergebnis/Zaehler) ;
        mem1.Lines.Add(FloattoStr(Zaehler) +'        '+ Floattostr(Ergebnis));

end;

end;

end.

so hoffe ich ihr könnt mir helfen

[Jürgen Thomas]

Autsch, das tut weh. Gleich der erste Beitrag, der potenzielle Helfer abschreckt.

Falsches Unterforum: Es handelt sich nicht um ein Projekt. Das hättest du erkennen können, wenn du den obersten Beitrag wofuer ist diese sparte gedachtvorher gelesen hättest.

Titel: So gut wie jeder, der hier etwas fragt, braucht Hilfe in Delphi. Deine Überschrift sagt also gar nichts aus.

Code: Der ist als solcher zu formatieren; so ist er unlesbar. Dafür gibt es den Button "Delphi-Code".

Also bitte nochmals von vorn: Deinen ersten Beitrag nochmals bearbeiten, Überschrift und Code ändern, abspeichern. Außerdem einen Moderator bitten um Verschiebung.

Jürgen

[Phoenix]

Hallo und Herzlich Willkommen in der DP. :dp:

Hilfe in Delphi brauchen hier alle.
Ich möchte Dich daher bitten, den Titel Deiner Frage zu ändern und zwar so, dass sie den INhalt Deiner Frage darstellt. Dann packst Du den Quelltext bitte noch in [ delphi ] Code... [ /delphi ] - Tags (ohne die Leerzeichen). Dann ist das um längen Lesbarer.

Um das zu tun klickst Du einfach rechts oben neben Deinem Beitrag auf 'Edit'.

Vielen Dank.

[DP-Maintenance]

Dieses Thema wurde von "Phoenix" von "Projekte" nach "Sonstige Fragen zu Delphi" verschoben.
Ist kein Projekt, sondern eine allgemeine Delphi-Frage.

[DeddyH]

Hallo und Willkommen in der DP :dp:,

aus dem Quelltext werde ich anhand der Bezeichner nicht schlau, aber wenn ich mir Dein Beispiel anschaue, komme ich auf folgende Überlegung: es gibt einen fixen Teil (im Beispiel 10), einen Zähler(vorheriges Berechnungsergebnis) und einen Nenner(wird hochgezählt). Damit komme ich auch diese Logik (Pseudocode):

Code:

Zähler = 0
Nenner = 1
Fix = 10
Solange Bedingung (welche eigentlich?)
  Zähler = Fix + Zähler/Nenner
  Nenner = Nenner + 1

Versuch es mal auf diesem Wege.

[Epytir]

So hab ich XD bin anfänger ich mach fachoberschuleund bin noch net so gut

[DeddyH]

Setz u Ergebnis mal vor der Schleife auf 0.

[Epytir]

Das bringt auch nichts ich komm immernoch in eine Unendlich Schleife und dabei hab ich für die die Eingabe 10 und Aufhörbedingung 15 unser lehrer sagte die aufhörbedingung soll 10e2 sein

[ULIK]

Hi,

nimm Dir mal ein Blatt Papier und einen Stift und schreib Dir mal auf, welche Zahlen Du erwartest zu sehen, wenn Du mit 10 als Eingabe und 20 als Endbedingung losrechnest!

Uli

[Epytir]

hmm jetzt hab ich was umgeschrieben und jetzt kommt das raus :
1 10
2 15
3 18,3333333333333
4 20,8333333333333

es funzt