Alkoholkonsum mit Algorithmus und Programm berechnen

[Frankfurtoder]

Wenn du ein falsches Ergebnis bekommst, dann wird es wohl was mit der Formel auf sich haben. Rechne das mal mit einem Taschenrechner oder Excel nach.

Delphi-Quellcode:

 ErgebnisPas1 := (Pas1B + Pas1W) * Volumen_Bier_Wein * Prozent_Bier_Wein/100.0 + (Pas1S * Volumen_Sprit * Prozent_Sprit/100.0);
LblErgebnis.caption := floattostr (ErgebnisPas1 * 52);

[sx2008]

In Beitrag #11 habe ich Dir eine schöne leicht verständliche Funktion gegeben.
Dein Problem ist hausgemacht, denn du hast jetzt alles in eine schwer verständliche "Superformel" gepackt,
anstatt das Ergebnis aus einfachen Funktionen zusammenzusetzen.
So sollte es sein (saubere,eindeutige Namen und leicht verständlich):

Delphi-Quellcode:

Alkoholmenge := BerechneAlkImBier(AnzahlBier)+BerechneAlkImWein(AnzahlWein)+BerechneAlkImSchnaps(AnzahlSchnaps);

PS: keine Ahnung, weshalb in deinen Namen das Wort "Pas" vorkommt (Anspielung auf Pascal?).
Ich kann dir nur empfehlen Variablennamen wie z.B. "AnzahlBier" zu verwenden; dann weiss Jeder was damit gemeint ist.

[danielZ]

ne das ist schon klar das Pas sollte auf passant bezogen werden, denn ich muss das für Passanten ausrechnen, wie viel Bier/Wein/Schnaps sie durschschnitlich im Jahr trinken vom Alkoholgehalt her wie viel liter die im jahr durchschnittlich trinken.

Also wie würdet ihr denn meine FOrmeln jetzt umstellen?

[danielZ]

Würdet ihr einfach nur meine FOrmel verändern? Wenn ja wie?
Danke im vorraus.

[Leanahtan]

Woher weißt du denn, dass ein falsches Ergebnis herauskommt? Wenn du das nachrechnest, dann müsstest du doch zum nachrechnen auch eine Formel haben - mit der müsstest du dann nur vergleichen.

[danielZ]

ok, dann ist das was ich gemacht habe, um den durschschnittliche jährlichen Alkoholverbrauch der befragten Person, da hab ich eine genommen, ja schon richtig oder?
Hier ist nochmal alles was ich gemacht hab:
Bei dem Projekt hab ich halt für die ANgaben der Passanten, die drei edt Fenster hingemacht und dann hab ich noch zwei buttons Ende, Berechnen eingefügt und ein Lbl Ergebnis Feld für den Durchschnitt.
Dann müsste wohl so alles passen, oder seid ihr anderer Meinung?

Delphi-Quellcode:

unit UAlkoholkonsum_3;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Grids, StdCtrls;

type
  TAlkoholkonsum = class(TForm)
    LblAlkoholkonsum: TLabel;
    closeBtn: TButton;
    BtnBerechnen: TButton;
    LblAngabe: TLabel;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    LblErgebnis: TLabel;
    procedure closeBtnClick(Sender: TObject);
    procedure BtnBerechnenClick(Sender: TObject);
  private
    { Private-Deklarationen}
  public
    { Public-Deklarationen}
  end;

var
Alkoholkonsum: TAlkoholkonsum;
Pas1B, Pas1W, Pas1S, ZwischenergebnisPas1, ErgebnisPas1 : SINGLE;


implementation

{$R *.DFM}


procedure TAlkoholkonsum.closeBtnClick(Sender: TObject);
begin
close
end;

procedure TAlkoholkonsum.BtnBerechnenClick(Sender: TObject);
const
  Prozent_Bier_Wein = 10.0;
  Volumen_Bier_Wein = 0.2;
  Prozent_Sprit = 40.0;
  Volumen_Sprit = 0.02;
begin
  Pas1B := strtofloat (Edit1.text);
  Pas1W := strtofloat (Edit2.text);
  Pas1S := strtofloat (Edit3.text);
  ErgebnisPas1 := (Pas1B + Pas1W) * Volumen_Bier_Wein * Prozent_Bier_Wein/100.0 + (Pas1S * Volumen_Sprit * Prozent_Sprit/100.0);
  LblErgebnis.caption := floattostr (ErgebnisPas1 * 52);
end;


end.

[edit=Luckie]Delphi-Tags Mfg, Luckie[/edit]

[fkerber]

Hi!

@danielZ:
Bitte packe deine Quelltexte doch in -Tags - dann ist es gleich viel hübscher zu lesen ;)
Einen Beitrag kannst du auch nachträglich noch ändern, indem du (innerhalb von 24h) oben rechts auf den Edit-Knopf am Beitrag klickst.


Grüße, Frederic

[hoika]

Hallo,

Zitat:

Dann müsste wohl so alles passen, oder seid ihr anderer Meinung?

Ob das Ergebnis stimmt, musst du schon selber mal (von Hand) nachrechnen.


Heiko

[danielZ]

ok, mach ich, aber so von den der Unit/Projekt würdet ihr das auch so machen?
Oder kann man das so auch machen?
gruß daniel