algoritmo "teste"
var
n1, n2, soma: inteiro
funcao multiplicaPor2 (valor:inteiro)
var
teste1:inteiro
inicio
teste1 := 2
teste1 := valor * teste1
fimfuncao
inicio
escreva("Digite o primeiro número..: ")
leia(n1)
escreva("Digite o segundo número...: ")
leia(n2)
soma := (n1 + n2)
escreval("Número 1..................: ", n1)
escreval("Número 2..................: ", n2)
escreval("Soma......................: ", soma)
escreval("Subtração.................: ", n1-n2)
escreval("Multiplicação.............: ", n1*n2)
escreval("Multiplica por 2..........: ", multiplicaPor2(n1))
se (n2 > 0) entao
escreval("Divisão...................: ", n1/n2)
escreval("Módulo....................: ", n1 mod n2)
senao
escreval("Divisão...................: FALHA")
escreval("Módulo....................: FALHA")
fimse
escreval("Igual.....................: ", n1 = n2)
escreval("Maior que.................: ", n1 > n2)
escreval("Menor que.................: ", n1 < n2)
escreval("Entre 0 e 5...............: ", n1 >= 0 e n1 <= 5)
escreval("Entre 5 e 15..............: ", n1 >= 5 e n1 <= 15)
escreva("Contar até 10.............:")
n1 := 0
enquanto (n1 < 5) faca
escreva(" ", n1 + 1)
n1 := n1 + 1
fimenquanto
repita
escreva(" ", n1 + 1)
n1 := n1 + 1
ate (n1 = 10)
escreval("")
escreva("Contagem regressiva.......:")
n1 := n2
se (n1 > 50) entao
n1 := 50
fimse
enquanto (n1 >= 0) faca
escreva(" ", n1)
n1 := n1 - 1
fimenquanto
escreval("")
fimalgoritmo
×
VERSÃO ALPHA - APÓS ALGUMAS HORAS DE INATIVIDADE A CONEXÃO É INTERROMPIDA, PRECISANDO RECARREGAR A PÁGINA
(O interpretador não reconhece comentários no código ainda)
Informações do projeto:
O Editor de Texto utilizado é o ACE encontrado no site https://ace.c9.io/.
Esta página contém trabalhos derivados do projeto ACE.
Copyright (c) 2012, Ajax.org B.V.
All rights reserved.
O Interpretador de Pseudo-Código é baseado no Projeto Humberto Costa | Interpretador de Pseudo-Código encontrado no site https://github.com/humbertocsjr/hcipc
Copyright (c) 2020
Humberto Costa dos Santos Junior. All rights reserved.
This product includes software developed by Humberto Costa dos Santos Junior and its contributors.