PROGRAMAR: CÓDIGOS EM PORTUGOL - VISUALG

algoritmo "Lista de exercicios"
// Função : Calcule H, sendo  . O número N é lido.
// Autor :Eleuzair Cunha Neves
// Data : 03/08/2012
// Seção de Declarações

var
I,N, TOTAL: real
inicio
TOTAL<- 0="0" p="p">escreval ("Digite um valor para N: ")
leia (N)
enquanto (I <= N) faca
TOTAL <- i="i" p="p" total="total">I <- 1="1" i="i" p="p">fimenquanto
escreval (" O valor total de H é: ", TOTAL)
fimalgoritmo

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


algoritmo "Lista de exercicios"
// Função :Leia duas variáveis (usuário) do tipo numérica e troque o conteúdo entre elas
// Autor : Eleuzair Cunha Neves
// Data : 03/08/2012
// Seção de Declarações
var
A,B, AUX: inteiro
inicio
escreval ("Digite um valor  para a variável A: ")
leia (A)
escreval ("Digite um valor  para a variável B: ")
leia (B)
AUX <- a="a" p="p">A <- b="b" p="p">B <- aux="aux" p="p">ESCREVAL ("Os valores das variáveis são: ", A,B)

fimalgoritmo

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


algoritmo "Lista de exercícios"
// Função :Leia um número de 1 a 5 e escreva por extenso. Caso o número não esteja neste intervalo, exibir mensagem: número inválido.
// Autor : Eleuzair cunha Neves
// Data : 06/08/2012
// Seção de Declarações
var
NUM: inteiro
inicio
escreval ("Digite um número de 1 a 5 ")
leia (NUM)
se (NUM < 1)ou (NUM > 5) entao
   escreval ("Número inválido: ")
senao
   se NUM = 1 entao
      escreval ("O número válido é: ", "UM")
   senao
      se (NUM = 2) entao
         escreval ("O número válido é: ", "DOIS")
      senao
         se (NUM = 3) entao
            escreval ("O número válido é: ", "TRÊS")
         Senao
            se (NUM = 4) entao
               escreval ("O número válido é: ", "QUATRO")
            senao
               se (NUM = 5) entao
                  escreval ("O número válido é: ", "CINCO")
               fimse
            fimse
         fimse
      fimse
   fimse
fimse
fimalgoritmo

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


algoritmo " Lista de Exercicios"
// Função :Calcule xy, sendo x e y serão fornecidos pelo usuário
// Autor : Eleuzair Cunha Neves
// Data : 03/08/2012
// Seção de Declarações
var
X,Y, VALORX: real
inicio
escreval ("Digite um valor para x ")
leia (X)
escreval ("Digite um valor para y ")
 leia (Y)
VALORX <- p="p" x="x" y="y">escreval (" O valor de x é: ", VALORX)

fimalgoritmo

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

algoritmo "equacao"
// Função : exercicio equacao 2 grau
// Autor :Eleuzair Neves
// Data : 22/08/2012
// Seção de Declarações
var
A,B,C,DELTA, X1,X2:real
inicio
escreval("digite valores para A:")
leia(A)
escreval("digite valores para B:")
leia(B)
escreval("digite valores para C:")
leia(C)
DELTA <- -="-" a="a" c="c" exp="exp" p="p">se ( DELTA < 0) entao
   escreval (" Nao ha raizes")
senao
   se ( DELTA = 0) entao
      X1 <- a="a" b="b" p="p">      X2 <- p="p" x1="x1">   senao
      X1 <- a="a" p="p" raizq="raizq">      X2 <- -="-" a="a" p="p" raizq="raizq">   fimse
fimse
escreva ("As raizes sao: ", X1,X2)
fimalgoritmo

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


algoritmo " Lista de Exercicios"
// Função :Gere a série: 10, 20, 30, 40, ..., 990, 1000.
// Autor : Eleuzair Cunha Neves
// Data : 03/08/2012
// Seção de Declarações
var
S: inteiro
inicio
escreval("Gerar uma série de números: ")
S <- 10="10" p="p">enquanto (S <= 1000) faca
   escreval("...", S, "...")
   S <- 10="10" p="p" s="s">   fimenquanto
fimalgoritmo