Algoritmo - Triangulo

var
a, b, c : real
inicio
escreva("entre com o valor de a: ")
leia(a)
escreva("entre com o valor de b: ")
leia(b)
escreva("entre com o valor de c: ")
leia(c)
se (A<B+C) e (B<A+C) e (C<A+B) entao
 escreval("É um triangulo")
se (A=B) e (B=C) entao
  escreva ("Triangulo Equilátero")
   senao
    se (A=B) ou (B=C) ou (A=C) entao
  escreva ("Triângulo Isósceles")
    senao
escreva ("Triangulo Escaleno")
    fimse
   fimse
senao
  escreva ("Não é um triângulo")
fimse
fimalgoritmo

Algoritmo - Numeros Primos

Var
max, controle, qtdeDiv : inteiro

Inicio
escreval ("Escreva um número: ")
  leia (max)
  para controle <- 1  ate max faca
  se max mod controle = 0 entao
  qtdeDiv <- qtdeDiv + 1
  fimse
  fimpara
  escreva (qtdeDiv," ")
  se qtdeDiv = 2 entao
  escreva("É primo: ",qtdeDiv)
  senao
  escreva ("Não é primo: ", qtdeDiv)
  fimse
Fimalgoritmo

Algoritmo - Tabuada

Var
x, z, i : inteiro

Inicio
escreva ("Informe o valor da tabuada: ")
leia (i)
enquanto (i > 0 ) faca
  se (i <=10) entao
    para x <- 1 ate 10 faca
      z <- i * x
      escreval (i, " x ",x," = ",z)
    fimpara
  senao
    escreval ("Tabuada deve ser de 1 a 10")
  fimse
  escreva ("Informe o valor da tabuada: ")
fimenquanto
Fimalgoritmo

Algoritmo - Fatorial

Var
entrada, fatorial, loop : inteiro

Inicio
escreval ("Digite um número")
fatorial <- 1
leia (entrada)
para loop <- 1 ate entrada faca
  fatorial <- fatorial * loop
fimpara
escreval ("O Fatorial de",entrada, " é",fatorial)

Fimalgoritmo

Algoritmo - Conversão de Celsius para Farenheit

Var
far, cen : real
loop : inteiro

Inicio
para loop <- 50 ate 150 passo 1 faca
  escreval (loop,"ºF = ",((5/9) * (loop-32)), "ºC")
fimpara
escreval ("---------------------------------------------")
escreval ("Incrementando de 10 em 10")
escreval ("---------------------------------------------")
para loop <- 50 ate 150 passo 10 faca
  escreval (loop,"ºF = ",((5/9) * (loop-32)), "ºC")
fimpara

Fimalgoritmo