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