Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
So das Programm is fertig und funktioniert so wies soll tread kann geschlossen werden danke an alle
procedure TForm1.FormCreate(Sender: TObject);
begin
edt1.Text := '' ;
edt2.Text := '' ;
mem1.Text := '' ;
mem1.ReadOnly := true ;
btn1.Caption := 'Start';
end;
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
so habs ja geändert wir müssen die while schleife benutzen und ich hab das jetzt so gelöst:
while Ergebnis<Endbedingung do begin
Zaehler := Zaehler+1 ;
Ergebnis :=Ergebnis+(Eingabe/1/Zaehler) ;
mem1.Lines.Add(FloattoStr(Zaehler) +' '+ Floattostr(Ergebnis));
aber wenn ich für Endbedingung 10e2 eingebe gibt das ne riesen schleife und ich soll...
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
aber wenn ich die rechnung unsres lehrer eintippe also eingabe 10 endbedingund 10e2 gibts wieder ne schleife was heißt den 10e2 is die zahl soo hoch
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
nach 3 Stunden nachdenken danke leute der tip mit denn bezeichner besser machen hat mir die übersicht gebracht XD
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
hmm jetzt hab ich was umgeschrieben und jetzt kommt das raus :
1 10
2 15
3 18,3333333333333
4 20,8333333333333
es funzt
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
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
Forum: Sonstige Fragen zu Delphi
Delphi
by Epytir,
27. Nov 2009
So hab ich XD bin anfänger ich mach fachoberschuleund bin noch net so gut