[Pascal] BMI Berechner

Dieses Thema im Forum "Projekte / Codes" wurde erstellt von Halloweenracer, 22. März 2006 .

Schlagworte:
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies. Weitere Informationen
  1. #1 22. März 2006
    BMI Berechner

    huhu,

    ja so siehts aus^^

    rechnet euren BMI aus und er sagt euch, ob ihr normal gewichtig oder untergewichtig seid ;)



    hier der code

    [HIDE]
    Code:
    var
     m, g, B: real;
     code:integer;
     s:string;
    begin
     VAL (Form1.Edit1.Text, m, code);
     VAL (Form1.Edit2.Text, g, code);
    
     B:=m/sqr(g);
    
     str (B:10:2,s);
    
     Form1.Edit3.Text:=s;
    
     IF B<20
     THEN Form1.Edit4.Text:='Untergewicht'
     ELSE Begin
     IF B>25
     THEN Form1.Edit4.Text:='Übergewicht'
     ELSE Form1.Edit4.Text:='Normalgewicht'
     end;
    
    end;
    [/HIDE]
     

  2. Anzeige
  3. #2 22. März 2006
    naja.... ich finde das is kein wirkliches programm.....gibts genüge im internet php basierend


    edt: 161,43 KB w0000t ? für so ein kleines programm?
     
  4. #3 23. März 2006

    ich hoffe du weißt schon, dass es heutzutage fast für alles schon irgendwo nen tool oder programm gibt...

    und für die, die sowas nich kennen oder einfach mal das nachvollziehen wollen is das doch nich schlecht...

    also von daher...

    und wegen der größe... who cares
     
  5. #4 30. März 2006
    hab sowas auch mal in vb gemacht, hatte 20 kb, aber bei vb sind halt die runtimes net gleich in der exe. ach, egal, ging auf jeden fall um die größe.

    wenn interesse besteht, wobei es online noch viel mehr und bessere progs als meines gibt, dann meldet euch via pm.

    bb. ch3c.
     
  6. #5 9. April 2006
    Die Exe ist so groß, weil die vcl mit compiliert wurde ;)

    Greetz
     
  7. #6 19. April 2006
    lol, laut deinem programm ist mein BMI gleich meinem Gewicht ;)
    und ein bmi von 70 ist schon stark übergewichtig... :D

    Gruß,
    Figger
     

  8. Videos zum Thema
Die Seite wird geladen...
Similar Threads - Pascal BMI Berechner
  1. Antworten:
    2
    Aufrufe:
    892
  2. Antworten:
    2
    Aufrufe:
    900
  3. Antworten:
    2
    Aufrufe:
    394
  4. Antworten:
    7
    Aufrufe:
    576
  5. Antworten:
    12
    Aufrufe:
    598