Receber 6 valores com 7 variáveis no Visualg

chilero · 17 de abril de 2012

Galera é o seguinte, tenho que desenvolver um algoritmo no visualg que receba 6 valores na variáveis (a,b,c,d,ee,f) até ai beleza, minha dificuldade é que eu tenho que armazenar o valor de a em f, b em ee, c em d, d em c, ee em b, f em a, mas sem perder o valores originais de cada variável, como isso é possível com apenas 7 variáveis? O algoritmo que desenvolvi apaga os valores originais!

A --- F

B --- E

C --- D

D --- C

EE --- B

F --- A

algoritmo "Converter"
// Autor : Leonardo S. Santos
// Data : 16/04/2012
// Seção de Declarações 
var
a,b,c,d,ee,f,m:real
inicio
// Seção de Comandos
escreva ("Digite n1: ")
leia (a)
escreva ("Digite n2: ")
leia (
escreva ("Digite n3: ")
leia (c)
escreva ("Digite n4: ")
leia (d)
escreva ("Digite n5: ")
leia (ee)
escreva ("Digite n6: ")
leia (f)

//

m <- a
f <- a
m <- b
ee <- b
m <- c
d <- c
m <- d
c <- d
m <- ee
b <- ee
m <- f
a <- f

escreval ("teste",a,b,c,d,ee,f)

fimalgoritmo

Depois de pensar muito consegui.

algoritmo "Converter"
// Autor : Leonardo S. Santos
// Data : 16/04/2012
// Seção de Declarações 
var
a,b,c,d,ee,f,m:real
inicio
// Seção de Comandos

escreval ("<--Conversor de variáveis armazena (a em f) e (f em a) e assim sucessivamente.-->")
escreval

escreva ("Digite n1: ")
leia (a)
escreva ("Digite n2: ")
leia (
escreva ("Digite n3: ")
leia (c)
escreva ("Digite n4: ")
leia (d)
escreva ("Digite n5: ")
leia (ee)
escreva ("Digite n6: ")
leia (f)

// A EM F / F EM A
m <- f
f <- a
a <- m
// B EM EE / EE EM B
m <- ee
ee <- b
b <- m
// C EM D / D EM C
m <- d
d <- c
c <- m

//Mostrar
escreval
escreval ("Variáveis em ordem crescente: ",f,ee,d,c,b,a)
escreval
escreval ("Variáveis em ordem decrescente: ",a,b,c,d,ee,f)

fimalgoritmo