Fórum Calculo IMC- Indice massa corporea #285185

procedure TForm1.Button1Click(Sender: TObject);
peso,altura,imc: real;
begin
  if edit1.text=´´ then
    begin
       showmessage (´Informe o peso!´);
       edit1.setfocus;
    end
  else
     if edit2.text=´´ then
       begin
          showmessage (´Informe a altura!´);
          edit2.setfocus;
       end
  else
      begin
        peso:=strtofloat(edit1.text);
        altura:=strtofloat(edit2.text);
        imc:=(peso/sqr(altura));
         edit3.text:=floattostr(imc);
      end;
end;


end;