algoritmo "semnome"
// Função :
// Autor :
// Data : 22/04/2017
// Seção de Declarações
var

numero: vetor [1..2] de caractere
op    : vetor [1..6] de inteiro
numn  : vetor [1..2] de inteiro
inc   : inteiro
vfcarc: vetor [0..8] de caractere

inicio
// Inicio do algoritmo, bem vindo
escreval("----------------------- Calculadora Binária V 1.0 -----------------------")

// Pular linha
escreval(" ")

// Regras
escreval("***REGRAS:")
escreval("1. DIGITE SOMENTE NUMEROS DE ATÉ 8 DÍGITOS.")
escreval("2. OS NUMEROS PODEM SER 0 OU 1, SOMENTE.")

// Pular linha
escreval(" ")

// Inserção de numeros e operação

// Lista de Operações
escreval("Tecle o numero da operação desejada:")
escreval("1.ADIÇÃO")
escreval("2.SUBTRAÇÃO")
escreval("3.MULTIPLICAÇÃO")
escreval("4.DIVISÃO")
escreval("5.COMPLEMENTO DE 1")
escreval("6.COMPLEMENTO DE 2")
leia(op[1])

// Digitar os numeros
escreval("Digite o primeiro numero")
leia(numero[1])
escreval("Digite o segundo numero")
leia(numero[2])

// Resultado de quantos caractéres existem no numero digitado
numn[1]<- compr(numero[1])
numn[2]<- compr(numero[1])

// Verifica se os números são maiores que 8
se(numn[1] > 8) ou (numn[2] > 8) entao
           escreval("A operação não pode ser realizada pois um dos numeros excedem 8 digitos")
           senao
           para inc de 0 ate numn[1] faca
                // Verifica o Caractere digitado
                vfcarc[inc]<-copia(numero,inc)
                escreval(vfcarc[inc])
           fimpara
fimse