Algoritimo calculo de IMC

Algoritimo_IMC

Var real peso;

real altura;

real imc;

literal resposta;

Inicio

Imprimir("Calcular IMC")

// Entrada de dados

Imprimir("Entre Altura em Metros");

Ler(altura);

Imprimir("Entre Peso em Kg");

Ler(peso);

imc <- peso / (altura * altura);

if(imc < 18.0)then

resposta = "Magreza";

endif

if(imc >= 18.0 e imc < 25.0)then

resposta = "Normal";

endif

if(imc >= 25.0 e imc < 30.0)then

resposta = "Sobrepeso";

endif

if(imc >= 30.0 e imc < 35.0)then

resposta = "Obesidade Grau I";

endif

if(imc >= 35.0 e imc < 40.0)then

resposta = "Obesidade Grau II";

if(imc >= 40.0)then

resposta = "Obesidade Grau III";

endif

endif

Fim

Algoritimo Quadrado.

var real ladoA;

real perimetro;

real area;

inicio

Imprimir("Calcula perimetro e area de um quadrado");

// entrada de dados

Imprimir("Entre o lado do quadrado");

Ler(ladoA);

//processamento

perimetro <- 4 * ladoA;

area <- ladoA * ladoA;

//saida

Imprimir("Perimetro =", perimetro);

Imprimir("Area = ", area);

fim

Calcular Perimetro e area de um quadrado

Algoritimo Quadrado.

var real ladoA;

real perimetro;

real area;

inicio

Imprimir("Calcula perimetro e area de um quadrado");

// entrada de dados

Imprimir("Entre o lado do quadrado");

Ler(ladoA);

//processamento

perimetro <- 4 * ladoA;

area <- ladoA * ladoA;

//saida

Imprimir("Perimetro =", perimetro);

Imprimir("Area = ", area);

fim

-----------------------------------------------------------------------

Calcular Perimetro e area de um quadrado

Algoritimo circulo;

const pi <- 3.1416

var real raio;

real perimetro;

real area;

inicio

Imprimir("Calcula perimetro e area de um circulo");

// entrada de dados

Imprimir("Entre o raio do circulo");

Ler(raio);

//processamento

perimetro <- 2* pi * raio;

area <- pi * raio?2;

//saida

Imprimir("Perimetro =", perimetro);

Imprimir("Area = ", area);