Problem mit 2 Bedingungen in einer IF Schleife!

[Zwock]

Hi Leute!
Wiedereinmal bin ich auf eure Hilfe angewiesen.
Ich soll wiedereinmal etwas für den Informatik-Kurs programmieren.
Dabei geht es dabei um einen Idealgewicht-berechner. Ich stelle euch meinen Gedankengang und meinen Code vor, damit ihr Denkansatz-Fehler u. Code Fehler ausmachen könnt. Vielen Dank schon im Voraus!

Aufgabenstellung:

Einen Idealgewichtserrechner programmieren! Die Formel für das männliche IDealgewicht ist: Körpergröße -100, und davon 95%. Wir sollen 2% +/- einbeziehen.

Meine Lösung: Ein Programm mit 2 Edit-Feldern (Größe/Gewicht), und einem Button "Antwort". Hat man beides eingetippt und klickt auf "Antwort", wird in 2 Variablen (IdealHigh; IdealLow - beides Real) das idealgewicht gespeichert. In IdealHigh also die Körpgeröße -100 * 0.97 (95% + 2% = 97% weg. der erwähnten 2 Prozent Karenz), und in IdealLow das Ganze mit 0.93 (93%, wieder weg. der Karenz). Das Ganze wird mit dem eingetippten Gewicht verglichen. Wenn IdealHigh kleiner als das eingetippte Gewicht ist, hat man übergewicht. Ist IdealLOW größer als das eingetippte Gewicht, hat man untergewicht.
Mein Problem ist nun das Idealgewicht, denn bei meiner Lösung (siehe Code unten), wird mir sobald ich auf 150 cm, 54 KG (IDealgewicht für 150 cm) eintippe, passiert beim klicken auf den Antwortbutton einfach garnichts! Was mache ich falsch?

Delphi-Quellcode:

 
unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    RGGender: TRadioGroup;
    LHeight: TLabel;
    LWeight: TLabel;
    EHeight: TEdit;
    EWeight: TEdit;
    BAnswer: TButton;
    BEnd: TButton;
    procedure BAnswerClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  IdealHigh: Real;
  IdealLow: Real;

implementation

{$R *.dfm}

procedure TForm2.BAnswerClick(Sender: TObject);
begin

 if RGGender.ItemIndex = 0 then // einfach nicht beachten ist nur zur Geschlechtsfeststellung//
    IdealHigh:= StrToFloat(EHeight.Text) - 100;
    IdealHigh:= IdealHigh * 0.97;
    IdealLow:= StrToFloat(EHeight.Text) - 100;
    IdealLow:= IdealLow * 0.93;


 if IdealHigh < StrToFloat(EWeight.Text) then
    ShowMessage ('Sie haben Übergewicht!')

 else if IdealLow > StrToFloat(EWeight.Text) then
     ShowMessage ('Sie haben Untergewicht!')

 else if (IdealHigh >= StrToFloat(EWeight.Text)) and
         (IdealLow <= StrToFloat(EWeight.Text)) then
     ShowMessage ('Sie haben Idealgewicht!');
end;

end.

[Muetze1]

1. Es gibt keine IF Schleife!!! Wo läuft er denn da im Kreis (bzw. in einer Schleife)?
2. Wenn du Untergewicht und Übergewicht ausgeschlossen hast, warum dann explizit noch testen, ob er denn über dem Untergewicht und unter dem Übergewicht? Du hast Über- und Untergewicht ausgeschlossen, also bleibt nur Idealgewicht übrig!

Delphi-Quellcode:

if IdealHigh < StrToFloat(EWeight.Text) then
    ShowMessage ('Sie haben Übergewicht!')

else if IdealLow > StrToFloat(EWeight.Text) then
     ShowMessage ('Sie haben Untergewicht!')

else 
     ShowMessage ('Sie haben Idealgewicht!');

[Zwock]

Den Begriff "If-Schleife" habe ich als alter PHP-Hase noch im Petto, gemeint sind einfach IF-Bedingungen samt den dazugehörigen Anweisungen ;) Danke trotzdem! Hast mir sehr weitergeholfen!


Habs nun mit else gemacht, angezeigt wird mir beim Klicken auf "Antwort" trotzdem nichts ;((


Hier nochmal der komplette Code:

Delphi-Quellcode:

unit Unit2;

interface

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

type
  TForm2 = class(TForm)
    RGGender: TRadioGroup;
    LHeight: TLabel;
    LWeight: TLabel;
    EHeight: TEdit;
    EWeight: TEdit;
    BAnswer: TButton;
    BEnd: TButton;
    procedure BAnswerClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form2: TForm2;
  IdealHigh: Real;
  IdealLow: Real;

implementation

{$R *.dfm}

procedure TForm2.BAnswerClick(Sender: TObject);
begin

 if RGGender.ItemIndex = 0 then
    begin
    IdealHigh:= StrToFloat(EHeight.Text) - 100;
    IdealHigh:= IdealHigh * 0.97;
    IdealLow:= StrToFloat(EHeight.Text) - 100;
    IdealLow:= IdealLow * 0.93;


    if IdealHigh < StrToFloat(EWeight.Text) then
       ShowMessage ('Sie haben Übergewicht!')

    else if IdealLow > StrToFloat(EWeight.Text) then
       ShowMessage ('Sie haben Untergewicht!')

    else
       ShowMessage ('Sie haben Idealgewicht!');
    end

  else if RGGender.ItemIndex = 1 then
     begin
     IdealHigh:= StrToFloat(EHeight.Text) - 100;
     IdealHigh:= IdealHigh * 0.92;
     IdealLow:= StrToFloat(EHeight.Text) - 100;
     IdealLow:= IdealLow * 0.88;


     if IdealHigh < StrToFloat(EWeight.Text) then
       ShowMessage ('Sie haben Übergewicht!')

     else if IdealLow > StrToFloat(EWeight.Text) then
       ShowMessage ('Sie haben Untergewicht!')

     else
       ShowMessage ('Sie haben Idealgewicht!');
     end
end;

end.

[leddl]

Hast du mal überprüft, was der ItemIndex beim ButtonClick ist? Vielleicht ist der nicht 0 oder 1, sondern -1.

[Zwock]

Das ist ja nicht der Kasus-Knacksus, das Problem ist ja, egal welche NR das hat, dass er beim Idealgewicht nichts zeigt wennsch auf "antwort" klicke...

[leddl]

Der Code sollte aber so stimmen. Also check das doch einfach mal. Das hatten wir neulich nämlich schonmal hier. Kanns sein, daß du Radiobuttons auf die Radiogroup gezogen hast, anstatt Items im OI hinzuzufügen? (Ich halte dich nicht fürn doof, keine Angst, aber wie gesagt, den Fall hatten wir neulich schonmal und ich will den Fehler nur ausschließen) Denn dann ist der ItemIndex immer -1 und in deinem ButtonClick passiert gar nüscht.

[Zwock]

Ich habe ne Radiogroup erstellt, und habe in "Items" in die Liste die beiden Punkte eingetragen...

[leddl]

OK, dann haben wir den Punkt geklärt. Nich daß wir den Fehler gesucht hätten und es dann doch das gewesen wär ;)

Aber irgendwas kann bei dir da nicht stimmen. Das muß funktionieren. Ich hab mir gerade den Code, 2 Editfelder, eine Radiogroup mit 2 Items und einen Button in ein Projekt eingebaut und es macht genau das, was es soll.
Also wie wärs, wenn du einfach testweise mal im ButtonClick am Anfang den ItemIndex per ShowMessage ausgibst?

[tigerman33]

Funktioniert das nur dann nicht, wenn du das Idealgewicht eintippst (bzw einen Wert, der im Idealgewichts-Intervall liegt), oder auch nicht, wenn Über-/Untergewicht rauskommt?

[jim_raynor]

Ich würde dir empfehlen bei der Einrückung das begin und end auf die gleiche Stufe wie das zugehörige if zu stellen.

Hast du denn schon mal den Debugger angeschmissen und geschaut, wo es langgeht?

Beispiel für die Einrückung:

Delphi-Quellcode:

if a=b then
begin
  if a=c then
  begin
    SHowMessage('Blub1');
  end
  else
    SHowMessage('Blub2');
end;

nur als kleiner Tipp ;)