Logica De Programação Equação Do 2 Grau

algoritmo "Equação do 2º grau"

var

a,b,c: real

funcao equacao (a,b,c: real): caractere

var

delta,x1,x2: real

inicio

se (a=0) entao

escreval ("Não há solução")

senao

delta:=b^2-4*a*c

se (delta<0) entao

escreval ("Não existe raizes reais")

senao

se (delta=0) entao

x1:=-b/2*a

escreval ("Existe apenas uma raiz", x1)

senao

x1:=(-b+(delta)^1/2)/2*a)

x2:=(-b-(delta)^1/2)/2*a)

escreval ("Existem duas raizes:", x1, x2)

fimse

fimse

fimse

fimfuncao

inicio

escreval ("Digite a,b,c")

leia (a,b,c)

escreval (equacao (a,b,c))

fimalgoritmo

algoritmo "IMC"

var

peso,altura,imc: real

funcao imc(peso,altura:real):caractere))

var m: real

inicio

m:=(peso/altura^2))

se (m<=18.5) entao

retorne ("Você esta abaixo do peso ideal")

senao

se ((m>18.5) ou (m<=24.9)) entao

retorne ("Parabéns - você esta em seu peso normal")

senao

se ((m=>25) ou (m<=29.9)) entao

retorne ("Você esta acima de seu peso (sobrepeso)")

senao

se ((m=>30) ou (m<=34.9)) entao

retorne ("Obesidade grau I")

senao

se ((m=>35) ou (m<=39.9)) entao

retorne ("Obesidade grau II")

senao

retorne ("Obesidade grau III")

fimse

fimse

fimse

fimse

fimse

fimfuncao

inicio

escreval ("Informe seu peso em (kg) e sua altura em (m):")

leia (peso,altura)

escreval (imc(peso,altura))

fimalgoritmo

algoritmo "Média dos alunos"

var

av1,av2: real

funcao media (av1,av2:real):caractere

var:

m:real

inicio

m:=(av1+av2)/2

se m>=6 entao

retorne ("Aprovado")

senao

se (m>=4) e (m<6) entao

retorne ("Final")

senao

retorne ("Reprovado")

fimse

fimse

fimfuncao

inicio

escreval ("Digite as duas notas do aluno")

leia (av1,av2)

escreval (media(av1,av2))

fimalgoritmo

algoritmo "Soma, subtração, multiplicação, divisão"

var

a,b,res1,res2,res3: inteiro

res4: real

funcao soma (x,y:inteiro):inteiro

inicio

retorne x+y

fimfuncao

funcao subtracao (x,y:inteiro):inteiro

inicio

retorne x-y

fimfuncao

funcao multiplicacao (x,y:inteiro):inteiro

inicio

retorne x*y

fimfuncao

funcao divisao (x,y:inteiro):real

inicio

retorne x/y

fimfuncao

inicio

escreval ("Digite dois números inteiros")

leia (a,b)

res1:=soma (a,b)

res2:=subtracao (a,b)

res3:=multiplicacao (a,b)

res4:=divisao (a,b)

escreval ("O resultado da soma, subtração, multiplicação e divisão, respectivamente",res1,res2,res3,res4)