Portugol

Descrição

É bastante utilizado para ensinar lógica de programação e algoritmos. Está presente em muitos materiais didáticos de programação, em português, sobre o assunto. 
Existem alguns interpretadores de variantes de pseudocódigo utilizando o português estruturado. Apesar disso, não existe um padrão sintático ou léxico para essa linguagem. É comumente usada em conjunto de fluxogramas.
Portugol inspirou outras linguagens, como G-Portugol, Portugol Viana que consiste em uma extensão da linguagem Portugol com funções, funções recursivas, estruturas e construtores de estruturas complexas tais como stacks, queues e listas ligadas e listas duplamente ligadas.


Calculadora Basica

//Programa Calculadora
inicio
    // declaração de variaveis
    inteiro a , b , res
    caracter operador
    //Entrada de dados
    escrever "Valor 1: "
    ler a
    escrever "Operador: "
    ler operador
    escrever "Valor 2: "
    ler b
    //Processamento
    escolhe operador
           
        caso "+":
            res <- a + b
        caso "-":
            res <- a - b
        caso "*":
            res <- a * b
        caso "/":
            res <- a / b
        defeito:
            escrever "\n\nOperador invalido!!!\n\n"
    fimescolhe
    // Saída dos dados
    escrever "Resultado: " , a , " " , operador , " " , b , " = " , res
fim

Soma dos digitos

inicio
    inteiro a , c , div , div2 , div3 , soma , d
   
   
    escrever "Valor de 0 a 999: "
    ler a
    a <- a
    d <- a / 10
    c <- d
    div <- c % 10
    div2 <- c / 10
    div3 <- a % 10
    soma <- div + div2 + div3
    escrever "\n Digito: " , div2
    escrever "\n Digito: " , div
    escrever "\n Digito: " , div3
    escrever "\n Resultado final: " , soma
fim

Laço de repetição enquanto

Código:


inicio
   inteiro cont
        cont<-1
   enquanto cont <= 10 faz
      escrever " " , cont
      cont <- cont + 1
   fimenquanto
fim

Soma de dois numeros

Código:


inicio
   inteiro a
   inteiro b
   inteiro soma
   escrever "valor 1: "
   ler a
   escrever "valor 2: "
   ler b
   soma <- a + b
   escrever "resultado:" , soma
fim

Vetor que soma 5 valores

Código:


inicio
    inteiro vetor [ 5 ]
    inteiro cont , soma
    para cont de 1 ate 5 passo 1
        escrever "Digite o valor" , cont , ": "
        ler vetor [cont-1]
    proximo
    soma <- 0
    para cont de 1 ate 5 passo 1
        soma <- soma + vetor[cont-1]
       
    proximo
    escrever "resultado: " , soma
   
fim

Estrutura condicional Se encadeado

Código:


inicio
    inteiro valor
    escrever "valor :"
    ler valor
   
    se valor = 1 entao
        escrever "hum"
    senao
        se valor = 2 entao
            escrever "dois"
        senao
            se valor = 3 entao
                escrever "tres"
            senao
                se valor = 4 entao
                    escrever "quatro"
                senao
                    se valor = 5 entao
                        escrever "cinco"
                    senao
                    escrever "fora da faixa"
                    fimse
                fimse
            fimse
        fimse
    fimse
fim

 

Laço de repepetição Para

Código:


inicio
    inteiro i
    para i de 1 ate 10 passo 1
    escrever " ", i
    proximo
   
fim

Estrutura faca enquanto

Código:


inicio
inteiro cont
  cont<- 1
  faz
  cont <- cont + 1
  escrever " ", cont
  enquanto cont < 10
fim

Estrutura Repita

Código:


inicio
    inteiro cont <- 0
    repete
        escrever " " , cont
        cont <- cont + 1
    ate cont > 10
fim

Estrtura Condicional Simples

Código:


inicio
    inteiro num
    escrever "valor :"
    ler num

    se num = 18 entao
    escrever "maior de idade"
    fimse
fim

Estrutura condicional Composta

Código:


inicio
 inteiro num

 escrever "valor :"
 ler num

 se num = 18 entao
 escrever "maior de idade"
 senao
 escrever "menor de idade"
 fimse
fim

Calcular a media de 2 notas

Código:


inicio
    real nota1
    real nota2
    real media
    escrever "Nota 1:"
    ler nota1
    escrever "Nota 2:"
    ler nota2
   
    media <- ( nota1 + nota2 ) / 2
    escrever media
fim

Maior Numero

Código:


inicio
    inteiro a , b , c , d
    inteiro maior
   
    escrever "valor 1: "
    ler a
    escrever "valor 2: "
    ler b
    escrever "valor 3: "
    ler c
    escrever "valor 4: "
    ler d

Matriz Bidimensional

Código:


inicio
    inteiro vet [ 2 ] [ 2 ]
    inteiro i , j
    inteiro k <- 1
   
    escrever "Entrada de dados da Matriz\n\n"
    //entrada dos dados
    para i de 1 ate 2 passo 1
        para j de 1 ate 2 passo 1
            escrever "Digite o " , k , "º valor " , "da matriz:"
            ler vet [ i - 1 ] [ j - 1 ]
            k <- k + 1
        proximo
    proximo
    //saida dos dados escritos da matriz
    escrever "\n"
    escrever "Essa é a matriz digitada:\n"
    para i de 1 ate 2 passo 1
        para j de 1 ate 2 passo 1
            escrever " " , vet [ i - 1 ] [ j - 1 ]
        proximo
        escrever "\n"
    proximo
   
fim