Benzinabrechnung

[DGL-luke]

Wie lange programmierst du denn schon in Delphi?

Ich fasse zusammen: Gegeben ist s_gefahren in km, V(Benzin_verbraucht) in l und Kosten pro Monat.

Da wäre es dann wohl am besten mit einer TStringList

per StrToInt oder Val kannst du aus den Stringwerten in TStringList.Cell[,] die Werte holen.

Ich würde mir dann ein paar Prozeduren schreiben wie

Delphi-Quellcode:

Type TCurrArray = array of Currency;
Type TIntArray = array of Integer;

procedure Costs(Costs: TCurrArray; out Max,out Min,out Average:Currency);
procedure Consumption(Dist,Gas: TIntArray; out Max,out Min,out Average:single);

In den Prozeduren musst du dann nur die Berechnungen machen und das ganze den out-Params zuweisen.

"out" bedeutet übrigens, dass der Wert, den du in der Prozedur für die Variable setzt, aussen wieder raus kommt:

Delphi-Quellcode:

procedure GetFour(out Four: Integer);
begin
Four := 4;
end;

GetFour(x);
ShowMessageBox(IntToStr(x)); // Gibt 4 aus