Pascal bmi

cześć mam do was prośbę, powiedzcie oco b, :d z tym błędem
nie było mnie na zajęciach :d a że to jest mój 1 rok bawienia się w oprogramowaniu to jeszcze nie wszystko czaje :p.

oczywiście zdaje sobie sprawę że mam tam pewnie mnóstwo innych błędów ale z nimi się uporam później :D

Nazwa programu taka sama jak nazwa zmiennej, nie popełniaj więcej tego błędu ;).

up@ dzięki będę o tym pamiętał :P

a tu zagadka
mam zrobić ten program który obliczy bmi jestem w 99% pewien że dobrze robię do końca 1 akapitu ze tak to nazwę ; d.
potem muszę zrobić tak że np. jeżeli Bmi wyjdzie mniejsze niż 20 to wyskoczy napis że masz problem z wagą .. jestem pewien ze ten
2 akapit jest kompletnie zły ale nie wiem jak to napisać ktoś mógł by pomóc ??

Program porgram_do_obliczania_bmi;
uses crt;
var plec:CHAR;
wzrost,waga:INTEGER;
bmi:REAL;

Begin
Clrscr;
writeln('*******PROGRAM DO OBLICZANIA BMI*******');
write('Podaj pˆe† (k - kobieta / m - m©ľczyzna)');readln(plec);
write('Podaj wzrost w cm');Readln(wzrost);
write('Podaj wag© w kg');Readln(waga);
bmi:=waga/SQR(wzrost/100);
If (plec = 'k') or (plec = 'K') Then
Begin
bmi:=bmi<18 writeln('niedowaga');
bmi:=19<bmi<25 writeln('waga ok');
bmi:=26<bmi<30 writeln('otylosc!!');
end;
If (plec= 'm') or (plec = 'M') Then
Begin
bmi:= bmi<20 writeln('niedowaga');
bmi:= 19<bmi<25 writeln('waga ok');
bmi:= 26<bmi<30 writeln('otylosc!!');
end;

readln;
end.

w sumie moglbym to zrobic jednak mam pytanie co to ma byc te SQR? rozumiem, ze to jakas stala? czemu jej nie deklarowales? czy to mialo byc sqrt?

Cytuj:

---

Venzet napisał

w sumie moglbym to zrobic jednak mam pytanie co to ma byc te SQR? rozumiem, ze to jakas stala? czemu jej nie deklarowales? czy to mialo byc sqrt?

---

wzorowałem się trochę tym

PROGRAM objetosc_bryl;
USES crt;
var r,h,a,b,c:INTEGER;
v:REAL;
wybor:CHAR;
BEGIN
clrscr;
writeln('Program oblicz objˆto˜† wybranej bryˆy');
writeln(' "k"-objeto˜† kuli, "w"-walca, "s"-stoľka, "p"-prostopadloscianu');

readln(wybor);
IF (wybor = 'k') or (wybor = 'K') THEN
begin {instr. zlozona}
write('Podaj promieä');readln(r);
{v=(4/3)*pi*r*r*r; tak tez moľna}
v:=(4/3)*pi*SQR(r)*r;
writeln('Objˆto˜† kuli=',v:4:2);
end;


bo te bmi liczy się wzrost waga/wzrost (kwadrat) czyli można to zapisać tak? ; waga/(wzrost*wzrost):6:2);
w sumie z lekcji wywnioskowalem ze te SQR podnosi do kwadratu ;d.


jeżeli masz jakieś inne sugestie jak to napisać to napisz :D. Bo ja już nie mam zielonego pojęcia :p.

tak sie liczy gdy sie podaje chyba wzrost w metrach ;> przy podawaniu centymetrow bmi wychodzi strasznie male ;>

dobra zrobilem, podawanie w centymetrach, z tym, ze program sobie sam zamienia to na metry zeby prawidlowo liczyc bmi, to imo dobrze smiga:

Kod:

---

Program bmiprogram;

var plec:char;
    waga:integer;
    wzrost,bmi:real;

begin
writeln('*******PROGRAM DO OBLICZANIA BMI*******');

writeln ('Podaj swoja plec: k-kobieta, m-mezczyzna ');
readln(plec);

writeln ('Podaj swoj wzrost ');
readln(wzrost);

writeln ('Podaj swoja wage w kilogramach');
readln(waga);

bmi:=waga/(wzrost/100*wzrost/100);
writeln(bmi:4:4);

if (plec='k') or (plec='K') then
  begin
        if (bmi<18) then writeln('niedowaga')
          else
        if (bmi>=18) and (bmi<25) then writeln('waga ok')
          else
              writeln('otylosc!');
  end else
If (plec='m') or (plec='M') then
  begin
        if (bmi<20) then writeln('niedowaga')
          else
        if (bmi>=20) and (bmi<26) then writeln('waga ok')
          else
              writeln('otylosc!');
  end;
readln();
end.

---

Dzięki!! bardzo naprawdę za poświęcenie twojego czasu dla mnie :D.

radze zrobic pare(nascie) testow, bo ja tylko jeden zobaczylem i wynik wydawal sie sensowny :p jednak radze potestowac