Ir ao conteúdo
  • Cadastre-se
Regras do Clube do Hardware

Duvidas com Pascal

Penelope_21

Por Penelope_21
em Programação - outros

Posts recomendados

Penelope_21
 

Penelope_21

Postado
Postado

Por favor estou uma uma dúvida imensa em Pascal...Tenho q fazer um programinha q calcule o indice de massa corporal e depois para cada indice me mostrar um tipo de suplemento p aquela pessoa... ate nessa parte todo bem..o cálculo esta ficando correto, so q nao consigo mostrar os suplementos para cada tipo de massa corporal.Vou postar meu programinha e quem puder me ajudar ficarei agradecida!


program calculoimc;
uses crt;
var
peso, altura, preco, total, desconto, imc : real;
produto, quantidade :integer ;
begin
TEXTBACKGROUND(7);

clrscr;

TEXTCOLOR(14); writeln (' NUTRITIVA SUPLEMENTOS');
TEXTCOLOR(14); writeln ('');
TEXTCOLOR(17); writeln ('Fa‡a o c*lculo do seu IMC (Öndice de Massa Corporal)');
writeln ('e compare seu padrÆo de obesidade! E temos a certeza');
writeln ('da solu‡Æo que vocˆ precisa para ter um corpo');
writeln ('saud*vel e bonito. E aproveite nossas semana');
writeln ('promocional com 10% de desconto em nossos produtos!');
writeln ('');
TEXTCOLOR(21); writeln ('==========================================================');
writeln ('');
TEXTCOLOR(16); writeln ('TABELA DE IMC');
writeln ('');
writeln ('_____________________________________________________________________');
writeln ('| CATEGORIA | IMC (kg/mý) | RISCO DE COMORBIDADE |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Abaixo dp peso | Abaixo de 18.5 | ----------------------|');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Peso Normal | 18.5 - 24.9 | Peso Saud*vel |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Sobrepeso | 25.0 - 29.9 | Aumentando |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Obeso tipo1 | 30.0 - 34.9 | Moderado |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Obeso tipo2 | 35.0 - 39.9 | Grave |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Obeso M¢rbido | 40.0 - 49.9 | Muito Grave |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Super Obeso M¢rbido | 50.0 - 59.9 | Muito Grave |');
writeln ('|__________________________|________________|_______________________|');
writeln ('|Super Super Obeso M¢rbido | 60.0 e acima | Muito Muito Grave |');
writeln ('|__________________________|________________|_______________________|');
writeln ('');
TEXTCOLOR(17); writeln ('Preencha os campos que forem pedido e veja o seu resultado, caso vocˆ');
writeln ('esteja acima do peso te apresentaremos um suplimento que te ajudar* a ');
writeln ('acabar com essas gordurinhas indesejada ou ganhar peso. Temos uma variedade de suplementos');
writeln ('para cada tipo de peso. Fa‡a o teste e confira!');
writeln ('');

TEXTCOLOR(21);
writeln ('Didite seu peso:');
TEXTCOLOR(3); readln (peso);
TEXTCOLOR(21); writeln ('Digite sua altura:');
TEXTCOLOR(3);readln (altura);

imc := peso / (altura * altura);

TEXTCOLOR(21); writeln('Seu IMC ‚ de: ' , imc : 2:1);

readln;

if (imc <= 18.5) then
begin
TEXTCOLOR(12);writeln ('===================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ est* abaixo do peso!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===================================================');
writeln ('');
TEXTCOLOR(1);writeln ('Heavy Mass 4000 NO2 (3kg)');
TEXTCOLOR(12);writeln ('--------------------------------------------------');
TEXTCOLOR(1);writeln ('Hipercal¢rico rico em prote¡nas de alto');
TEXTCOLOR(1);writeln ('valor biol¢gico (Whey Protein, Albumina)');
TEXTCOLOR(1);writeln ('e carboidratos completos. Tem a enorme');
TEXTCOLOR(1);writeln ('vantagem de nÆo conter gorduras em sua formula‡Æo.');
TEXTCOLOR(1);writeln ('Por apenas R$53.00 com 10% de desconto a vista!!!');
writeln ('');
TEXTCOLOR(12);writeln ('=====================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('===================================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21);writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 53 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;


if (imc > 18.9) and (imc <= 24.9) then
begin
TEXTCOLOR(18);writeln ('Vocˆ est* com um peso consideravel saud*vel para a sa£de. Continue assim!');

end;
TEXTCOLOR(13);
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
readkey;
clrscr;

if (imc = 25.0) and (imc <= 29.9) then
begin
TEXTCOLOR(12);writeln ('===================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ est* com o peso considerado sobrepeso!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===================================================');
writeln ('');
TEXTCOLOR(1); writeln ('Tona Pure - 1000mg Softgel - 120 c*psulas');
TEXTCOLOR(12);writeln ('--------------------------------------------------');
TEXTCOLOR(1); writeln ('Suplemento de vitamina e … base de ¢leo de girassol.');
writeln ('Otimiza o metabolismo de gordura;');
writeln ('Rico em vitamina F e *sido linol‚ico;');
writeln ('Garantia de pureza e autenticidade.');
writeln ('Por apenas R$ 60.00 com 10% de desconto a vista');
writeln ('');
TEXTCOLOR(12);writeln ('=====================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('======================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21);writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 60 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;
TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;


if (imc = 30.0) and (imc <= 34.9) then
begin
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ est* com o peso considerado obeso tipo 1!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(1); writeln ('Thermogenic Liquid (480ml)');
writeln ('Sua formula‡Æo foi desenvolvidas com o objetivo de auxiliar');
writeln ('na perda de peso, no ganho de defini‡Æo muscular e queima de');
writeln ('gorduras, sendo um importante aliado na pr*tica de exerc¡cios');
writeln ('f¡sicos e nas dietas de emagrecimento');
writeln (' Por apenas R$ 80.00 com 10% de desconto a vista!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21); writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 80 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;
TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;


if (imc = 35.0) and (imc <= 39.9) then
begin
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ est* com o peso considerado obeso tipo 2!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(1); writeln ('LIPO-6x (120 c*sps liquidas)');
TEXTCOLOR(12);writeln ('-----------------------------------');
TEXTCOLOR(1); writeln ('O LIPO-6x traz agora para vocˆ uma nova tecnologia patenteada');
writeln ('que ‚ a Multiphase-tecnology que combina a r*pida absor‡Æo da ');
writeln ('c*psula liquida com um sofisticado sistema de libera‡Æo lenta.');
writeln ('Ou seja ele nÆo ‚ apenas um simples queimador de gordura ele atua');
writeln ('em varias fases no seu organismo lhe transformando em uma "maquina');
writeln ('de queima de gordura"');
writeln ('Tudo isso por apenas R$ 95.00 com 10% de desconto a vista!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21); writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 95 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;
TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;

if (imc = 40.0) and (imc <= 49.9) then
begin
begin
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ est* com o peso considerado obeso m¢bido!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(1); writeln ('AMP LIQUID 240ML' );
TEXTCOLOR(12);writeln ('-----------------------------------');
TEXTCOLOR(1); writeln (' exactamente o que vai conseguir com este espantoso queimador');
writeln ('de gordura. Foi cientificamente formulado para dar uma incr‚vel');
writeln ('ganho de energia sustentada acompanhada por uma poderosa queima');
writeln ('de gordura.');
writeln ('Por apenas R$ 98.00 com 10% de desconto a vista');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21); writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 98 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;

TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;


if (imc = 50.0) and (imc <= 59.9) then
begin
TEXTCOLOR(12);writeln ('=======================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ esta com o peso considerado Super Obeso M¢bido!!!');
writeln ('');
TEXTCOLOR(12);writeln ('===========================================================');
writeln ('');
TEXTCOLOR(1); writeln ('DYMA BURN xtreme');
TEXTCOLOR(12);writeln ('---------------------------------------------------------------');
TEXTCOLOR(1); writeln ('A f¢mula de Dyma Burn apresenta propriedades importantes para');
writeln ('acelerar a queima da gordura … nivel de c‚lula, como fornecer');
writeln ('compostos adicionais para regular a temperatura corporal.');
writeln ('Sua f¢rmula herbal e totalmente natural, queima gosrdura corporal');
writeln ('alem de controlar o apetite.');
writeln ('por apenas R$ 100.00 com 10% de desconto a vista!!!');
writeln ('');
TEXTCOLOR(12);writeln ('=====================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('======================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21);writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 100 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;
TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
clrscr;


if (imc > 60.00) then
begin
TEXTCOLOR(12);writeln ('==============================================================');
writeln ('');
TEXTCOLOR(12);writeln (' Vocˆ esta com o peso considerado Super Super Obeso M¢bido!!!');
writeln ('');
TEXTCOLOR(12);writeln ('==============================================================');
writeln ('');
TEXTCOLOR(1);writeln ('Chitosan Plus Universal Nutrition');
TEXTCOLOR(12);writeln ('-----------------------------------------------------------------');
TEXTCOLOR(1);writeln ('Redu‡Æo significativa da gordura ');
writeln ('corporal; Acelera a perda de gordura,');
writeln ('especialmente na regiÆo abdominal;');
writeln ('Defini‡Æo muscular; Normaliza‡Æo do ');
writeln ('perfil metab¢lico entre lip¡deos e ');
writeln ('insulina; Colaborador no processo de ');
writeln ('de queima de gordura localizada.');
writeln ('Tudo isso por apenas R$ 150.00 com ');
writeln ('desconto de 10%!!! NÆo perca tempo');
writeln ('emagre‡a j* com sa£de!!!');
writeln ('');
TEXTCOLOR(12);writeln ('=====================================');
writeln ( '');
TEXTCOLOR(17);writeln ('Se vocˆ deseja adquirir esse produto,');
writeln ('Digite 1 para Sim e 2 para NÆo');
writeln ('');
TEXTCOLOR(12);writeln ('======================================');
readln (produto);
end;

if produto = 1 then
begin
TEXTCOLOR(21);writeln ('Digite a quantidade desejada:');
TEXTCOLOR(3);readln (quantidade);
preco := 150 * quantidade;

desconto := 10/100 * preco;

total := ( preco - desconto);

TEXTCOLOR(12);writeln('Com o desconto promocional seu produto fica em: ' , total : 2:2);
end;

if produto = 2 then
begin
writeln ('');
end;


TEXTCOLOR(13);writeln ('');
writeln ('Obrigado por ter visitado nossa loja! ');
writeln ('');
writeln ('Volte Sempre!');
readln;
end;
end;
end.

BjaoO

Link para o comentário
Compartilhar em outros sites
DaneiL
 

DaneiL

Postado
Postado

faça um ninho de if´s que ficaria mais simples de resolver, pois você nao precisaria colocar o limite superior.... ficaria +o- assim:

if imc <=18 then begin

....end

else if imc >18 then begin

......end

else if imc > 24 then begin

.....end

e dae é melhor você colocar esses menus como procedures pois dae você poderia chamar essa procedure, e o código ficaria mais legível.

:D

Link para o comentário
Compartilhar em outros sites
Penelope_21
 

Penelope_21

Postado
  • Autor
Postado
faça um ninho de if´s que ficaria mais simples de resolver, pois você nao precisaria colocar o limite superior.... ficaria +o- assim:

if imc <=18 then begin

....end

else if imc >18 then begin

......end

else if imc > 24 then begin

.....end

e dae é melhor você colocar esses menus como procedures pois dae você poderia chamar essa procedure, e o código ficaria mais legível.

:D

Obrigada Daniel

vou tentar fazer dessa maneira

valeu mesmOo

BjaoO

Link para o comentário
Compartilhar em outros sites
Andre2000
 

Andre2000

Postado
Postado
Não consegui fazer ainda...

Nossa nao consigo por nada...minha cabeça ja esta ate doendo...rsrsr..

Pai Cristovooo Alguem me ajudaaaaa!!!

Só uma dica quando postar código aqui no forum: usa a tag code, que o programa fica mais legível para a galera ;) olha o exemplo abaixo:


program calculoimc;
uses crt;
var
peso, altura, preco, total, desconto, imc : real;
produto, quantidade :integer ;
begin
TEXTBACKGROUND(7);

clrscr;

TEXTCOLOR(14); writeln (' NUTRITIVA SUPLEMENTOS');
TEXTCOLOR(14); writeln ('');
TEXTCOLOR(17); writeln ('Fa‡a o c*lculo do seu IMC (Öndice de Massa Corporal)');
writeln ('e compare seu padrÆo de obesidade! E temos a certeza');
writeln ('da solu‡Æo que vocˆ precisa para ter um corpo');
writeln ('saud*vel e bonito. E aproveite nossas semana');
writeln ('promocional com 10% de desconto em nossos produtos!');
writeln ('');
TEXTCOLOR(21); writeln ('================================================ ==========');
writeln ('');
TEXTCOLOR(16); writeln ('TABELA DE IMC');

Quanto ao programa, vou dar uma olhada e posto alguma coisa mais tarde.

Link para o comentário
Compartilhar em outros sites
Penelope_21
 

Penelope_21

Postado
  • Autor
Postado
Só uma dica quando postar código aqui no forum: usa a tag code, que o programa fica mais legível para a galera ;) olha o exemplo abaixo:


program calculoimc;
uses crt;
var
peso, altura, preco, total, desconto, imc : real;
produto, quantidade :integer ;
begin
TEXTBACKGROUND(7);

clrscr;

TEXTCOLOR(14); writeln (' NUTRITIVA SUPLEMENTOS');
TEXTCOLOR(14); writeln ('');
TEXTCOLOR(17); writeln ('Fa‡a o c*lculo do seu IMC (Öndice de Massa Corporal)');
writeln ('e compare seu padrÆo de obesidade! E temos a certeza');
writeln ('da solu‡Æo que vocˆ precisa para ter um corpo');
writeln ('saud*vel e bonito. E aproveite nossas semana');
writeln ('promocional com 10% de desconto em nossos produtos!');
writeln ('');
TEXTCOLOR(21); writeln ('================================================ ==========');
writeln ('');
TEXTCOLOR(16); writeln ('TABELA DE IMC');

Quanto ao programa, vou dar uma olhada e posto alguma coisa mais tarde.

Valeu pela dica...sou nova aqui ainda...rsrsMais valeu mesmo!!!BjaO

Link para o comentário
Compartilhar em outros sites

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

Ir à lista de tópicos

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

Mais

×
×
  • Criar novo...

 

GRÁTIS: ebook Redes Wi-Fi – 2ª Edição

EBOOK GRÁTIS!

CLIQUE AQUI E BAIXE AGORA MESMO!