Pascalcode BMI-Programm nach Broca

                                                                                  Einführung in Bedingungsabfragen (if...then...else)

Programm erstellt am 6.9.2006

Arbeitsauftrag:

• Erstellen Sie ein einfaches Pascal-Programm zur Berechnung des Normalgewichts nach der Broca-Regel, die das Geschlecht berücksichtigt!
• Erweitern Sie ihr Programm  und geben Sie an, ob der Nutzer im Toleranzbereich liegt, Übergewicht- oder Untergewicht hat!
  Dazu müssen Sie den Nutzer nach seinem Gewicht fragen!

Beschreibung: Dieses Programm errechnet mithilfe des Gewichts und der Körpergröße je nach Geschlecht den BMI-Wert des Users, zeigt nach Eingabe das Idealgewicht eines Körpers dieser Größe und Geschlecht und zeigt einen abhängigen Text, je nach Intervall des BMI-Werts.

program broca;

{Dominik Wilske 6.9.2006}

uses wincrt;

var groesse,bmigroesse,gewicht,ideal,bmi: Real;

geschlecht: string;

begin

writeln('Hier wird getestet, ob Sie nach Broka Idealgewicht haben, oder auch nicht');
writeln('Bitte geben Sie jetzt ihre Körpergröße ein (in cm)');
readln(groesse);
writeln('Bitte geben Sie jetzt ihr Gewicht ein (in kg)');
readln(gewicht);
writeln ('Sind Sie ein Mann (m) oder eine Frau (w) ?');
readln(geschlecht);
if (geschlecht = 'm')
then ideal := groesse - 100;
if (geschlecht = 'w')
then ideal := groesse - 100 - (groesse / 10);

writeln('Ihr Idealgewicht nach Broca liegt bei ',ideal:4:2,' kg.');

if (gewicht >= ideal - (ideal / 10)) AND (gewicht <= ideal + (ideal / 10))
then writeln('Ihr Gewicht beträgt ',gewicht:4:2,' kg. Damit liegen Sie im Idealbereich.');

if (gewicht < ideal)
then writeln('Ihr Gewicht beträgt ',gewicht:4:2,' kg. Damit liegen Sie unter dem Idealbereich. Essen wär gut.');

if (gewicht > ideal)
then writeln('Ihr Gewicht beträgt ',gewicht:4:2,' kg. Damit liegen Sie über dem Idealbereich. Sport wäre angebracht.');

bmigroesse:= groesse / 100;
bmi:= gewicht / (bmigroesse * bmigroesse);

writeln('');
writeln ('Ihr BMI beträgt ',bmi:4:2,'. ');
writeln('');

if (bmi >= 18) and (bmi <= 25)
then writeln('Perfecto mondo! Idealer BMI-Wert! Dieser ist zwischen 18 und 25.');

if (bmi < 18)
then writeln ('Scheiße, scheiße, scheiße...ich häte dich nicht gesehen, wenn du hier nichts schreiben würdest...iss doch was :(');

if (bmi > 25)
then writeln ('Alter Schwede. Red mal mit Herrn Ilgner! Frag ihn, ob ihr zusammen auf der Tartanbahn schwitzen wollt...jedenfalls hast DU es nötig!');

end.

Kostenlose Website erstellt mit Web-Gear

Verantwortlich für den Inhalt dieser Seite ist ausschließlich der Autor dieser Webseite. Verstoß anzeigen