Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
14. Jan 2011
Vielen Dank für die Hilfe. Habe glaube ich meinen Fehler verstanden. Einer Function kann man einen Rückgabewert geben. Darum wird jetzt auch richtig mathematisch gerechnet. Einer Procedure kann man dieses nicht und deshalb ist eine Procedure für z.B. Rechenoperationen ungeeignet.
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
13. Jan 2011
Ok. Jetzt bin ich etwas weiter. Das Programm startet jetzt es wird aber immer ein komplett falscher Wert berechnet. So sieht es jetzt aus:
procedure VerbrauchBGes(var verb, jahrk : real);
var verbj: real;
begin
verbj := verb * jahrk;
end;
procedure TForm1.Button1Click(Sender: TObject);
var verb, jahrk, verbj: real;
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
13. Jan 2011
Habe ich auch schon bei der Suche gefunden. Aber wo steht dort meine Frage beschrieben?
Forum: Algorithmen, Datenstrukturen und Klassendesign
by snboy2010,
13. Jan 2011
Hallo. Hoffe bin hier in der richtigen Abteilung geladet :) Also folgendes Problem habe ich:
Ich möchte mein Programm optimieren indem ich es in Unterprogramme zerlege. Jetzt habe ich die folgende Procedur geschrieben:
procedure VerbrauchBGes(Target: Edit3.Text, Edit4.Text);
var verb, jahrk, verbj: real;
begin
verb := StrToFloat(Edit3.Text);
jahrk := StrToFloat(Edit4.Text);...