1º Integrado Informática Presidente Getúlio Vargas

Segue o programa (base) IMC em Pascal, que foi apresentado na comemoração do dia da Informática:

Program IMC;

uses Crt;
{ Função :Calcular IMC}
{ Data : 7/7/2011}
{ Seção de Declarações}


var
Nome:string;
Idade:string;
Sexo:string;
IMC:real;
Peso:real;
Altura:real;

begin
{ Seção de Comandos}
textbackground(white);
textcolor(blue);
clrscr;
writeln;
writeln (' Índice de Massa Corpórea ');
readkey;
clrscr;
writeln('Este Progroma é destinado ao calculo do IMC ( Índice de Massa Corporea)');
writeln;
writeln('Para saber sua situação,basta preencher os requisitos ( A cada requisito preenchido tecle ENTER');
readkey;
clrscr;
writeln('Qual é o seu nome completo ?');
readln(Nome);
writeln('Qual é a sua idade?');
readln(Idade);
writeln('Qual o seu Sexo? M (Masculino) ou F (Feminino)');
readln(sexo);
writeln('Qual seu Peso (Kg)?');
readln (peso);
writeln ('Qual sua Altura (Mts)');
readln (Altura);
textbackground(white);
textcolor(blue);
clrscr;
writeln('Nome: ',Nome);
writeln;
writeln('Idade: ',Idade );
writeln;
writeln('Peso: ',Peso :0:2);
writeln;
writeln('Altura: ',Altura :0:2);
writeln;
writeln('Sexo: ',sexo);
writeln;
IMC:=Peso/(Altura*Altura);
writeln('IMC: ',IMC :0:2);
readkey;
//clrscr;
gotoxy(2,15);
if (Sexo = 'F') or (Sexo = 'f') then begin
textcolor(red);
if IMC < 19.1 then begin
writeln('Usuário ',NOME ,' , você está abaixo do Peso! Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(green);
if (IMC >= 19.1) and (IMC <= 25.8) then begin
writeln('Usuário ',NOME,' com Peso Normal,Parabéns pelo cuidado de seu corpo continue cuidando dele para nunca ter problemas');
end;
textcolor(red);
if (IMC > 25.8) and (IMC <= 27.3) then begin
writeln('Usuário ',NOME,' Marginalmente Acima do Peso,Tente conseguir mais massa muscular para ter uma boa saúde ');
end;
textcolor(red);
if (IMC > 27.3) and (IMC <= 31.1) then begin
writeln('Usuário ',NOME,' Acima do Peso Ideal,Tente conseguir mais massa muscular para ter uma boa saúde,procure um médico');
end;
textcolor(red);
if IMC > 31.1 then begin
writeln('Usuário ',NOME,' Obesa ,Pelo calculo do IMC observamos que a Senhora tem tendência a obesidade.Sugerimos procurar um medico com certa urgência, pois a obesidade pode trazer danos irreparáveis a sua saúde.');
end;
end;
if (Sexo = 'M')or (Sexo = 'm') then begin
textcolor(red);
if IMC < 20.7 then begin
writeln('Usuário ',NOME,' Abaixo do Peso,Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(green);
if (IMC >= 20.7) and (IMC <= 26.4) then begin
writeln('Usuário ',NOME,' com Peso Normal,Parabéns pelo cuidado de seu corpo continue cuidando dele para nunca ter problemas');
end;
textcolor(red);
if (IMC > 26.4) and (IMC <= 27.8) then begin
writeln('Usuário ',NOME,' Marginalmente Acima do Peso,Tente conseguir mais massa muscular para ter uma boa saúde');
end;
textcolor(red);
if (IMC > 27.8) and (IMC <= 32.3) then begin
writeln('Usuário ',NOME,' Acima do Peso Ideal,Tente conseguir mais massa muscular para ter uma boa saúde,procure um médico');
end;
textcolor(red);
if IMC > 32.3 then begin
writeln('Usuário ',NOME,' Obeso,Pelo calculo do IMC observamos que o Senhor tem tendência a obesidade.Sugerimos procurar um medico com certa urgência, pois a obesidade pode trazer danos irreparáveis a sua saúde.');
end;
end;
readkey
End.