könt ihr mir sagen was an diesem bmi rechner (versuch :D) falsch ist ??

[himitsu]

Code:

[Fehler] Ubmi.pas(54): Ordinaltyp erforderlich

CASE nimmt nur ordinale Typen an, was z.B. Integer und Enums wären.
Also praktisch nur Ganzzahlige Typen, aber keine Fließkommatypen oder Strings.

Code:

[Fehler] Ubmi.pas(86): ';' erwartet, aber '.' gefunden

Die fehlenden END;


Und der Rechenfehler wird dir natürlich nicht vom Compiler bemängelt, da die Syntax der Berechnung ja stimmt.

[hathor]

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var Groese,Gewicht,fehler : Integer;
     BMI : Extended;
     intBMI : Integer;
begin
//nur zum Testen
edgroese.Text:= '172'; //cm
edgewicht.text:= '74'; //kg
rgGeschlecht.ItemIndex:=0;
//
val(edgroese.Text,Groese,fehler);
val(edgewicht.text,Gewicht,fehler);
BMI:= (Gewicht /(Groese*Groese))*10000; //wegen cm-Eingabe
lblBMI.caption:= FloatToStrF(BMI, ffFixed, 4, 2);
intBMI:= Round(BMI);

if rgGeschlecht.ItemIndex = 0  //Berechnung Mann
then
case intBMI of
        16..19: pnlErgebnis.caption:= 'Untergewicht';
        20..25: pnlErgebnis.caption:='Normalgewicht';
        26..30: pnlErgebnis.caption:='Übergewicht';
        31..40: pnlErgebnis.caption:='Fettsack';
end
else
case intBMI of //Berechnung Frau
        15..18: pnlErgebnis.caption:= 'Untergewicht';
        19..24: pnlErgebnis.caption:='Normalgewicht';
        25..29: pnlErgebnis.caption:='Übergewicht';
        30..40: pnlErgebnis.caption:='Fettsack';
end;
end;

[DeddyH]

Die Variable Fehler sollte noch geprüft werden, genauso wie die Größe auf <> 0.

[MrSpock]

Hallo MuschBuschAffe,

benutze bitte Groß-/Kleinschreibung.