Temat: 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.

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.

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