Ask Question

Name:
Title:
Your Question:

Answer Question

Name:
Your Answer:
User Submitted Source Code!


Description:
  Lelel
Language: PASCAL
Code:
program HelloWorld; 

uses
     crt;
var  
     peso, ideal, dif, height, IMC: real; 
     nome : string; 

begin
     Window(30,10,55,20);
     WriteLn('Oi! Como se chama?');
     ReadLn(nome);
     Sound(8000);
     WriteLn(nome,'? Que nome giro!');
     ClrScr;
     Window(20,10,65,20);
     WriteLn('Qual o seu peso, em quilos?'); 
     ReadLn(peso);
     Sound(8000);
     WriteLn(peso:4:2,'? Ok. E qual a sua altura, em metros?'); 
     ReadLn(height);

     Sound(8000);
     ideal:=22*sqr(height); 
     dif:=abs(peso-ideal); 
     IMC:=(Peso/sqr(height));         
   
     WriteLn(height:4:2,'? Entao o seu peso ideal e ', ideal:4:2);

     Readln;
     Sound(8000);
     ClrScr;
     Window(10,10,75,20);
     WriteLn('E encontra-se a ', dif:4:2, ' quilos do peso ideal, tendo um IMC de ', IMC:4:2, '.');

     TextColor(White);

     if dif <= 3 then
          TextBackGround(Green)
     else
          TextBackground(Red);

     if dif <= 3 then
          WriteLn('Parabens, ', nome, '! Esta no bom caminho! Continua assim!')

     else
          WriteLn('Credo, ', nome,'! Tens um longo caminho pela frente!');

Readln; 
end.
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
          
Comments: