algoritmo ano bissexto

   Que informe se um dado ano é ou não bissexto. Obs: um ano é bissexto se ele for divisível por 400 ou se ele for divisível por 4 e não por 100.

algoritmo "bissexto"
var
   ano: inteiro
inicio
   ano <- 0
   escreva ("informe o ano")
   leia (ano)
   se (ano <>0)e(ano mod 4 = 0)entao
     escreva (" ano bissexto")
      senao
        escreva("ano não é bissexto")
        fimse
fim

algoritmo em portugol 2

     Ler 2 números inteiros do teclado. Se o segundo for diferente de zero, calcular e imprimir o quociente do primeiro pelo segundo. Caso contrário, imprimir a mensagem: “DIVISÃO POR ZERO”.

algoritmo "semnome"
var
    x, y: inteiro
inicio
    x <- 0
    y <- 0
    escreva ("informe o valor de x")
    leia (x)
    escreva ("informe o valor de y")
    leia (y)
    se (y <0)e (y> 0) entao
      aux <- (x/y)
       escreva ("o quociente eh," aux)
         senao
            escreva (" divisivel por zero")
            fimse
fim

algoritmo latão

  Sabendo que latão é constituído de 70% de cobre e 30% de zinco, indique a quantidade de cada um desses componentes para se obter uma certa quantidade de latão (requerida pelo usuário).

algoritmo "latão"
var
zinco, cobre, latao: real
inicio
    zinco <- 0
    cobre <- 0
    latao <- 0
    escreva ("informe a quantidade de zinco")
    leia (zinco)
    escreva ("informe a quantidade de cobre")
    leia (cobre)
    latao <- (07 * zinco + 03 * cobre)
       escreva (" informe a quantidade de latão eh",latao)
fima

ALGORITMO FUMANTE

   Calcular a quantidade dinheiro gasta por um fumante. Dados: o número de anos que ele fuma, o nº de cigarros fumados por dia e o preço de uma carteira.

algoritmo "fumante"
var
     anos,qtde, preco, aux: real
inicio
     anos <- 0
     qtde <- 0
     preco <- 0
     aux <- 0
     escreva ("informe os anos")
     leia (anos)
     escreva ("informe q quantidade")
     leia (qtde)
     escreva ("informe o preco")
     leia (preco)
     aux <-(anos *qtde*365 * preco)
     escreva (" a quantia gasta eh",aux)
fim

ALGORITMO EM PORTUGOL

  Leia a velocidade máxima permitida em uma avenida e a velocidade com que o motorista estava dirigindo nela e calcule a multa que uma pessoa vai receber, sabendo que são pagos: a) 50 reais se o motorista estiver ultrapassar em até 10km/h a velocidade permitida (ex.: velocidade máxima: 50km/h; motorista a 60km/h ou a 56km/h); b) 100 reais, se o motorista ultrapassar de 11 a 30 km/h a velocidade permitida. c) 200 reais, se estiver acima de 31km/h da velocidade permitida.
algoritmo "velocidade permitida"
var
   vmp, vmot, multa : inteiro
inicio
   vmp <-0
   vmot <-0
   multa <-0
   escreva("informe a velocidade maxima permitida")
   leia(vmp)
   escreva("informe a velocidade do motorista")
   leia(vmot)
   multa <- vmot - vmp
   se (multa<=10) entao
    escreva("multa de 50 reais")
      senao
        se (multa>=11) e (multa<=30) entao
          escreva("multa de 100 reais")
        senao
       escreva("multa de de 200 reais")
      fimse
  fimse

fim