Problem mit 2 Bedingungen in einer IF Schleife!

[freak4fun]

Kopier deine ganze Unit und poste sie hier. Das Gerate reicht langsam.

MfG
freak

[Sharky]

Zitat von Zwock:

... 2. Freak, dein Code in allen Ehren, und ich bin dir sehr dankbar, aber Teile deines Codes haben wir noch nicht behandelt, ich glaube kaum das mein Lehrer mir glaubt, wenn ich ihm sage, dass der von mir stammt, und er wäre nicht erfreut wenn ich sage, dasss ich ihn aus dem Internet habe ...

Hai Zwocke,
das finde ich eine sehr löbliche Einstellung

Darum bekommst Du von mir jetzt auch keinen Code sondern nur einige Denkanstösse

1. Mache die Umwandlung von des Strings in den Editfeld zu einer Zahl nur einmal im Code. Das ist einfacher und schneller (Also eine extra Variable für das Gewicht und die Größe und dann einmal vheight:= StrToFloat (EHeight.Text)
2. Da die Abfragen und Berechnungsarten für Mann und Frau die selben sind führe diese auch nur einmal im Code aus. Verwende dafür, wie in dem Code vor freak zwei extra Variablen. Diese kannst Du über eine IF-Then-Else Abfrage ganz am anfang des Codes setzen.
3. Prüfe mal ob dir die "ungenauigkeit" von Flieskommaoperationen nicht einen strich durch die rechnung macht. Eventuell ist es einfacher alles mit Integer-Variablen zu machen.

[Eichhoernchen]

Dann werf ich einfach auch mal Kot in den Raum(ihh),
Ach ja: größe in cm und Gewicht in Kg angeben!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var idealhigh, ideallow, hight, weight : double;
    ausgabe : String;
begin
weight := StrToFloat(Weight.Text);
hight := StrToFloat(Height.Text);
if RadioGroup1.ItemIndex = 0
  then Begin
        IdealHigh:= height - 100;
        IdealHigh:= IdealHigh * 0.97;
        IdealLow:= height - 100;
        IdealLow:= IdealLow * 0.93;
       end
  else if RadioGroup1.ItemIndex = 1
         then Begin
               IdealHigh:= height - 100;
               IdealHigh:= IdealHigh * 0.92;
               IdealLow:= height - 100;
               IdealLow:= IdealLow * 0.88;
              end
         else Begin
               showmessage('Sie müssen ein Geschlecht wählen');
               exit;
              end;


if weight > IdealHigh
  then ausgabe := 'Sie haben Übergewicht! Gehen sie weniger zu MC Donalds'
  else if weight < IdealLow
         then ausgabe := 'Sie haben Untergewicht! Essen sie ruhig was!'
         else ausgabe := 'Sie haben Idealgewicht, also Spachteln was das Zeug hält!';

Showmessage(ausgabe);
end;

[Zwock]

Ahh! Ich habe das Problem gelöst!
Das Problem lag in meiner Berechnung des IdealHigh und IdealLow Wertes, denn in der Form wie ich sie geschrieben hatte.

Siehe hier:

Delphi-Quellcode:

IdealHigh:= StrToFloat(EHeight.Text) - 100;
     IdealHigh:= IdealHigh * 0.92;
     IdealLow:= StrToFloat(EHeight.Text) - 100;
     IdealLow:= IdealLow * 0.88;

Kamen falsche Ergebnisse heraus, d.h. das Idealgewicht lag nur deutlich höher als ich erwartet hatte. Und ich habe es nicht gemerkt, weil ich zum Testen nur Extreme benutzte (z.B. 150 cm auf 1 Kg, oder 1000 Kg). Das Idealgewicht hätte durch diese Fehlberechnung ca. bei 750 KG gelegen (Schätzungsweise).

Als ich dies merkte schrieb ich die Berechnung um:

Delphi-Quellcode:

IdealHigh:= (StrToFloat(EHeight.Text) - 100) * 0.97;
    IdealLow:= (StrToFloat(EHeight.Text) - 100) * 0.93;

Nun kommen die richtigen Werte heraus! Ich wundere mich aber, warum die alte Schreibweise nicht klappte... Einzige Erklärung die ich mir persönlich geben kann:
Der Wert der Variable wurde bei der zweiten Rechnung, nicht wie gewollt um 100 reduziert... Warum auch immer... Vielleicht kann mich ja jmd. aufklären... Aber ich danke euch trotzdem für eure Hilfe, ihr seid echt spitze!

[leddl]

Aber was soll das damit zu tun haben, daß die Messages nicht angezeigt werden?
Das verändert ja nur das Ergebnis...
Aber jetzt funktioniert alles?

[Zwock]

Komischerweise ja , wie gesagt, ich wundere mich ja selbst o.O

[leddl]

Also jetzt nochmal von vorne. Das hier

Delphi-Quellcode:

IdealHigh:= StrToFloat(EHeight.Text) - 100; 
IdealHigh:= IdealHigh * 0.97; 
IdealLow:= StrToFloat(EHeight.Text) - 100; 
IdealLow:= IdealLow * 0.83;

bringt dir als Idealgewicht für 150cm 750kg? Das kann doch nicht stimmen. Das, was du daraus gemacht hast, dürfte am Ergebnis der Rechnung nichts ändern. Sicher, daß in deinem Code nicht sonst ein kleiner Fehler war, den du beim Posten hier nicht gemacht hast? Anders kann ich es mir wirklich nicht erklären... Denn wie gesagt, bei mir hat der Code, den ich hier rauskopiert hab, auf Anhieb funktioniert.

[GuenterS]

Zitat von 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.

Delphi-Quellcode:

 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;

Hier wird nur wenn der ItemIndex = 0 ist das IdealHigh richtig berechnet. Für Itemindex <> 0 werden die 100 ja nicht abgezogen.

[leddl]

Und nochmal: So wie ich das sehe ist der erste Codeschnipsel unvollständig, denn bei seinem zweiten Code passt das ja.
Allerdings muß ich dir recht geben, das sieht wirklich so aus, als obs das wäre.

@zwock:
Wie sieht denn dein Code wirklich aus?

[Union]

In der Berechnung steckt übrigens noch ein logischer Fehler: Die Toleranz beim maximal zulässigen Idealgewicht muss addiert werden, nicht abgezogen.
Also nicht
IdealHigh:= IdealHigh * 0.97; Sondern
IdealHigh:= IdealHigh * 1.03; Wenn z.B. das maximale Idealgewicht 80 Kg ist, dann würde nach der ersten Methode Idealgewicht nur bis 77,6 gelten. Es sollte aber doch wohl 82,4 sein!