Program do bmi.

0

Mam zrobić program który liczy bmi(dopiero zaczynam programować)

treść zadania:
Program, który pyta użytkownika o wzrost i wagę, wyznacza współczynnik BMI, w zależności od wartości BMI drukuje komunikat :do 18,5 niedowaga , 18,5 - 25 prawidłowa waga , 25 - 30 nadwaga, od 30 otyłość. BMI = waga w kg/(wzrost w m)^2.

[code]
Program liczacy;
uses crt;
var masaciala, wzrost,bmi:real;
begin

Writeln('podaj mase ciala');
Readln(masaciala);

Writeln('podaj wzrost(w centymetrach)');
Readln(wzrost);

BMI:=masaciala/(wzrost/100*wzrost/100);

if(bmi<18.5) then writeln('niedowaga');
if(bmi=18.5) and (bmi<25) then writeln('waga ok');
if(bmi>25) and (bmi>30) then writeln('nadwaga');
if(bmi>30) then writeln('otylosc');
writeln;
end.[/code]

program po wpisaniu wzrostu i wagi wychodzi tak jakby czegoś nie wyliczał może mi ktoś pomóc nie umiem sobie z tym poradzić ale w zadaniu jest w metrach

0

http://4programmers.net/Forum/Delphi_Pascal/187636-pascal-_problem_prawdopodobnie_z_obliczaniem_wyniku masz gotowca z tym ze tam tylko obliczał BMI nie było tego niedowaga, nadwaga itd...

0

widziałem to ale ja muszę mieć tak jak w zadaniu,

0

nie rozumiem tego
wsp_bmi2

0

To jest tylko formatowanie wypisywanego wyniku, a tam masz kilka błędów ww tych instrukcjach warunkowych potrzebne jest >= (większy lub równy) i raz zamiast < masz >

1 użytkowników online, w tym zalogowanych: 0, gości: 1