Referência de comandos do pascalóide

Asterisco.alg

algoritmo "Teste"

funcao somaum(x,y,z,): inteiro
inicio
x <- y + z
retorne x
fimfuncao

var

x,y,z:inteiro
s:caractere
m:caractere
pergunta:logico
grana:real
menores:vetor[0..9] de inteiro

inicio
y <- 8
z <- 9

escreval("Digite A e B: ")
leia(s, x, s, x, s, x, s, x)
escreval(s)
escreval(x)

escreval("Digite o seu nome: ")
leia(s)

escreval("Digite a sua idade: ")
leia(x)

// Condicional se equivalente ao if

se (x > 17) ou (x > 31) entao
    escreval("Maior")
senao
    escreval("Menor")
fimse

// Condicional equivalente ao switch

escolha (x) faca
    caso 10
        escreva("dez")
    
    caso 20
        escreva("vinte")
    
    outrocaso
        escreva("Nem dez nem vinte")
fimescolha

// Loop enquanto..faca equivalente ao while..do

enquanto x < 40 faca
    x <- x + 1
    escreval(x)
fimenquanto

// Loop repita..ate (repeat..until), equivalente ao do..while

repita
    x <- x + 2
    escreval(x)
ate x > 80

// Execução de função
x <- somaum(8, 8, 2)
escreval(x)

// Loop para..de..ate..faca equivalente ao for

para x de 0 ate 9 faca
    menores[x] <- 8 + x + 1
fimpara

para x de 0 ate 9 faca
    escreval(menores[x])
fimpara

grana <- 160.12
escreval(grana)

fimalgoritmo