Nesse post iremos fazer uma calculadora de IMC em Delphi. Vamos aprender como fazer o cálculo do índice de massa corporal.

_{Ilustração dos níveis de IMC.}

Índice

Introdução

O Índice de Massa Corporal (IMC) é uma medida utilizada para avaliar se uma pessoa está dentro de seu peso ideal, considerando sua altura. Criar uma aplicação em Delphi que calcula o IMC com base no peso e altura fornecidos pelo usuário é um excelente projeto para iniciantes. Neste artigo, vamos guiá-lo passo a passo na criação dessa aplicação, utilizando boas práticas de programação.

O que é o IMC?

O IMC é uma fórmula matemática que utiliza a altura e o peso de uma pessoa para determinar se ela está abaixo, dentro ou acima do peso ideal. A fórmula para calcular o IMC é:

_{IMC =} peso(kg)

altura(m)²

Com base no valor do IMC, podemos classificar a pessoa em diferentes categorias, como abaixo do peso, peso normal, sobrepeso e obesidade.

Criando o Projeto IMC em Delphi

Passo 1: Configurando o Projeto

Criar um Novo Projeto:
Abra o Delphi e crie um novo projeto VCL Forms Application.
Adicionar Componentes:
Adicione os seguintes componentes ao formulário:

TLabel: Três labels para identificar os campos de entrada e o resultado.
TEdit: Dois edits para que o usuário possa inserir o peso e a altura.
TButton: Um botão para calcular o IMC.
TLabel: Um label para exibir o resultado do IMC.

Passo 2: Definindo o Layout

Organize os componentes no formulário para criar uma interface amigável. O layout deve permitir que o usuário insira seu peso e altura e veja o resultado do IMC.

Delphi


unit Unit1;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TForm1 = class(TForm)
    LabelPeso: TLabel;
    LabelAltura: TLabel;
    EditPeso: TEdit;
    EditAltura: TEdit;
    ButtonCalcular: TButton;
    LabelResultado: TLabel;
    procedure ButtonCalcularClick(Sender: TObject);
  private
    { Private declarations }
    function CalcularIMC(Peso, Altura: Double): Double;
    function ClassificarIMC(IMC: Double): String;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.ButtonCalcularClick(Sender: TObject);
var
  Peso, Altura, IMC: Double;
  Classificacao: String;
begin
  Peso := StrToFloat(EditPeso.Text);
  Altura := StrToFloat(EditAltura.Text);
  IMC := CalcularIMC(Peso, Altura);
  Classificacao := ClassificarIMC(IMC);
  LabelResultado.Caption := Format('Seu IMC é: %.2f - %s', [IMC, Classificacao]);
end;

function TForm1.CalcularIMC(Peso, Altura: Double): Double;
begin
  Result := Peso / (Altura * Altura);
end;

function TForm1.ClassificarIMC(IMC: Double): String;
begin
  if IMC < 18.5 then
    Result := 'Abaixo do peso'
  else if IMC < 24.9 then
    Result := 'Peso normal'
  else if IMC < 29.9 then
    Result := 'Sobrepeso'
  else
    Result := 'Obesidade';
end;

end.

Passo 3: Explicação do Código

Vamos detalhar o funcionamento do código para que você possa entender cada parte do projeto.

Componentes do Formulário:
- LabelPeso, LabelAltura, LabelResultado: Labels para identificar os campos de entrada e exibir o resultado do IMC.
- EditPeso, EditAltura: Edits para que o usuário insira seu peso e altura.
- ButtonCalcular: Botão que, ao ser clicado, chama a função de cálculo do IMC.
Procedimento ButtonCalcularClick:
Este procedimento é acionado quando o botão ButtonCalcular é clicado. Ele lê os valores de peso e altura dos edits, chama a função CalcularIMC para calcular o IMC e a função ClassificarIMC para obter a classificação correspondente. Finalmente, exibe o resultado no LabelResultado.
Função CalcularIMC:
Esta função calcula o IMC com base no peso e altura fornecidos. A fórmula utilizada é:

Delphi


   Result := Peso / (Altura * Altura);

Função ClassificarIMC:
Esta função classifica o IMC em diferentes categorias com base no valor calculado. As categorias são definidas conforme os padrões de saúde:
- Abaixo de 18.5: Abaixo do peso
- Entre 18.5 e 24.9: Peso normal
- Entre 25 e 29.9: Sobrepeso
- Acima de 30: Obesidade

Veja abaixo a ilustração do projeto Calculadora IMC:

Ilustração do projeto.

Código fonte do exemplo

Você pode fazer o download do exemplo do projeto através do repositório do github:

https://github.com/Gisele-de-Melo/CalculadoraIMC

Conclusão

Criar um aplicativo em Delphi para calcular o IMC é um excelente exercício para desenvolver suas habilidades de programação e compreensão de conceitos fundamentais. Este projeto prático não apenas ajuda você a melhorar suas habilidades em Delphi, mas também fornece uma ferramenta útil para avaliar a saúde física de uma pessoa.

Ao seguir este guia, você desenvolveu um aplicativo funcional e compreendeu os conceitos por trás do cálculo do IMC. Continue explorando outras funcionalidades e aprimorando seu projeto para torná-lo ainda mais robusto e eficiente.

Posts Relacionados

Gerador de Senhas Aleatórias em Delphi

Jogo da forca em Delphi

Menu

Tradução

Calculando o Índice de Massa Corporal - IMC em Delphi