So das Programm is fertig und funktioniert so wies soll tread kann geschlossen werden danke an alle
Delphi-Quellcode:
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
try
Eingabe := StrToInt(edt1.Text);
Endbedingung := StrToFloat(edt2.Text);
except
MessageDlg('Fehlerhafte Eingabe',mtError,[mbOK],0);
Exit;
end;
Zaehler := 0 ;
Ergebnis := 0 ;
while Ergebnis<Endbedingung do begin
Zaehler := Zaehler+1 ;
Ergebnis :=Ergebnis+(Eingabe/1/Zaehler) ;
mem1.Lines.Add(FloattoStr(Zaehler) +' '+ Floattostr(Ergebnis));
end;
end;
end.
Und wer nochma die Aufgabe haben will das Program soll
Eingabe z.B.10
Endbedingung 100
dann soll er solange rechnen bis Eingabe 100 ist
also
1.Ergebnis = Ergebnis+10/1/1
2.10 = 10+10/1/2
3.15 = 15+10/1/3
und so weiter soll der rechnen eben bis 100