Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
Giquieu

Ajuda com pascal

Recommended Posts

Galera é m ex do meu trabalho de reposicao no curso de SI.. nao consigo mostrar os resultados... acho que e isso alguem analisa??

1. Construa uma estrutura modular com as funções que:

a) calcula e retorna o Índice de Massa Corpórea (IMC) através da seguinte fórmula:

IMC = PC / (Alt * Alt); onde: PC - Peso Corporal em kg e Alt- altura em metros.

B) recebe através de parâmetro o índice de massa corpórea e retorna a interpretação conforme a tabela a seguir:

IMC -------------- Interpretação

Menos de 20 ------ Magro

20 – 24 ----------- Normal

25 – 29 ----------- Acima do peso

30 – 34 ----------- Obeso

Acima de 34 ------- Muito Obeso

program Exe_7;

uses crt;

function IMC(pc: real; alt: real): real;

begin

IMC := pc / (alt * alt);

end;

function interpretaIMC(IMC: real): string;

begin

if (IMC < 20)

then interpretaIMC := 'Magro'

else if (IMC <= 24)

then interpretaIMC := 'Normal'

else if (IMC <= 29)

then interpretaIMC := 'Acima do peso'

else if (IMC <= 34)

then interpretaIMC := 'Obeso'

else interpretaIMC := 'Muito Obeso'

end;

procedure parada(x, y : integer);

begin

gotoxy(x, y);

write('Pressione [algo] para prosseguir.');

end;

var pc, alt : real;

begin

clrscr;

writeln('Informe o peso: (em Kg)');

readln(pc);

writeln('Informe a altura: (em m)');

readln(alt);

IMC(interpretaIMC);

parada(1, 24);

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Espero que isso possa ajudar

falou

program Exe_7;

uses crt;

var pc, alt: real;

function IMC(pc, alt: real): real;

begin

IMC := pc / (alt * alt);

end;

function interpretaIMC(IMC: real): string;

begin

if (IMC < 20) then

interpretaIMC := 'Magro'

else

if (IMC <= 24) then

interpretaIMC := 'Normal'

else

if (IMC <= 29) then

interpretaIMC := 'Acima do peso'

else

if (IMC <= 34) then

interpretaIMC := 'Obeso'

else

interpretaIMC := 'Muito Obeso'

end;

procedure parada(x, y : integer);

begin

gotoxy(x, y);

write('Pressione [algo] para prosseguir.');

end;

{Programa principal}

begin

clrscr;

writeln('Informe o peso: (em Kg)');

readln(pc);

writeln('Informe a altura: (em m)');

readln(alt);

writeln(interpretaIMC(IMC(pc, alt)));

parada(1, 20);

ReadKey;

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações 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

×