VisuAlg... problema!

Olá amigo.

Acredito que você poderia trabalhar com vetores para simplificar esse processo.

Poderia ter um vetor para:

- Unidades;

- Dezenas;

- Centenas;

- Milhares;

De acordo com o número digitado você verifica a qual desses vetores ele pertence, e vai montando sua expressão.

Até a próxima. :thumbsup:

1. Crie uma função que retorna um valor em extenso um valor de 0 a 999.

2. Jogue o número em uma string e faça um loop pegando as últimas 3 casas e escrevendo por extenso de acordo com o passo 1 mais um sufixo.

3. Sufixo vai depender da iteração, na 1a é vazio, na segunda é mil, na 3a é milhão e assim por diante.

4. Ao final do loop, tire essas 3 casas, e mude o o sufixo de acordo com a iteração.

5. Some todas as saídas em uma string única separando cada iteração com uma vírgula.

Logo, uma entrada tipo: 2.593.120 (note que o "." demarca cada iteração, eu sugiro remover o ponto no algoritmo final para normalizar o input) ficaria:

iteração 1: "cento e vinte" + ""

iteração 2: "quinhentos e noventa e três" + "mil"

iteração 3: "2" + "milhões"

resultado final: 2 milhões, quinhentos e noventa e três mil, cento e vinte.

Simples.

Sem falar que como o Eisenheim falou, colocar os valores em vetores facilita muito.

okay, gente muito obrigado, eu ainda nao aprendi a usar vetores, mas eu vo fazer uma pesquisa agora mesmo pra aprender e eu posto o resultado aki :)

Nossa, nao consigui aprende vetor ja mais de 2 dias tentando aprender e nada, nao consigo entender como que se atribiu numero a uma soh variavel...

eu tentei refazer o algoritmo e deu nisso:

algoritmo "semnome"
var
numero,a,cont:inteiro
inicio
escreval ("Diga um numero: ")
leia( numero)
para cont de 1 ate 2 faca
a:= numero
se ( numero > 999) entao
se ( numero >= 100000 ) entao
numero := numero % 100000
fimse
se ( numero >= 10000) e ( numero < 100000) entao
se ( cont < 2 ) entao
numero := numero \ 10000
senao
numero := numero % 1000000
fimse
fimse
se (numero >= 1000) e (numero < 10000) entao
se ( cont < 2 ) entao
numero := numero \ 1000
senao
numero := numero % 100000
fimse
fimse
fimse
se (( numero >= 100 ) e ( numero < 1000)) ou ( cont >= 2 ) entao
escolha numero
caso 900 ate 999
escreva ("Novecentos ")
caso 800 ate 899
escreva ("Oitocentos ")
caso 700 ate 799
escreva ("Setecentos ")
caso 600 ate 699
escreva ("Seiscentos ")
caso 500 ate 599
escreva ("Quinhentos ")
caso 400 ate 499
escreva ("Quatrocentos ")
caso 300 ate 399
escreva ("Trezentos ")
caso 200 ate 299
escreva ("Duzentos ")
caso 101 ate 199
escreva ("Cento ")
fimescolha
se ( numero % 100 <> 0 ) entao
escreva ("e ")
numero := numero % 100
fimse
fimse
se ( numero < 100 ) entao
escolha numero
caso 90 ate 99
escreva ("Noventa ")
caso 80 ate 89
escreva ("Oitenta ")
caso 70 ate 79
escreva ("Setenta ")
caso 60 ate 69
escreval ("Sessenta ")
caso 50 ate 59
escreva ("Cinquenta ")
caso 40 ate 49
escreva ("quarenta ")
caso 30 ate 39
escreva ("trinta ")
caso 20 ate 29
escreva ("Vinte ")
fimescolha
se ( numero % 10 <> 0 ) e ( numero > 19 ) entao
escreva ("e ")
numero := numero % 10
fimse
escolha numero
caso 19
escreva ("Dezenove")
caso 18
escreva ("Dezoito")
caso 17
escreva ("Dezessete")
caso 16
escreva ("Dezesseis")
caso 15
escreva ("Quinze")
caso 14
escreva ("Quatorze")
caso 13
escreva ("Treze")
caso 12
escreva ("Doze")
caso 11
escreva ("Onze")
caso 10
escreva ("Dez")
caso 9
escreva ("Nove")
caso 8
escreva ("Oito")
caso 7
escreva ("Sete")
caso 6
escreva ("Seis")
caso 5
escreva ("Cinco")
caso 4
escreva ("Quatro")
caso 3
escreva ("Três")
caso 2
escreva ("Dois")
caso 1
escreva ("Um")
fimescolha
fimse
se ( a >999 ) e ( cont < 2 ) entao
escreva (" Mil ")
fimse
fimpara
fimalgoritmo

so q ele nao está funcionando corretamente

Olá amigos.

Vetores - Pense neles como variáveis especiais. A diferença entre essa variável especial de uma variável comum, cuja mesma você está acostumado a utilizar, é que enquanto essa variável comum pode guardar apenas uma informação, a variável especial pode guardar várias informações.

Exemplo - Uma variável especial chamada Agenda que é do tipo vetor com tamanho de 3 posições do tipo caractere.

var
Agenda: vetor[1..3] de caractere
inicio
Agenda[1] <- "001"
Agenda[2] <- "Eisenheim"
Agenda[3] <- (XX)9999-9999
fimalgoritmo

De forma bem resumida, essa é a minha definição pessoal de um vetor.

Até a próxima. :thumbsup:

uhn, gostei bastante da sua explicação, consigui entender na teoria... muito obrigado vcs ja estao ajudando bastante nessa minha luta rsrs

gente muito obrigado, pra quem achou q desisti de fazer esse algoritmo e abandonei o site, estava enganado ( nao so do tipo de criar conta e pegar oq quero e nunca mais voltar no site ) entao voltei pra dizer, eu CONSIGUI fazer esse algoritmo agradeço mtuh a voces vo postar ele aki

// Autor: ORION

algoritmo "extenso"

var

numero, p, m: inteiro

a: caracter

mil: logico

inicio

repita

escreva("Digite um número entre 1 e 1000000 ( um milhão ): ")

leia(numero)

se ((numero <= 0) ou (numero >= 1000000)) entao

escreval("escreva um numero entre Um e Um Milhão! ")

fimse

ate ((numero > 0) e (numero < 1000000))

enquanto (numero > 0) faca

se (numero >= 1000) entao

m := numero % 1000

numero := numero \ 1000

mil := verdadeiro

fimse

se (numero > 20) entao

se (numero > 99) entao

p := (numero \ 100) * 100

senao

p := (numero \ 10) * 10

fimse

senao

p := numero

fimse

escolha p

caso 1

a := "um"

caso 2

a := "dois"

caso 3

a := "tres"

caso 4

a := "quatro"

caso 5

a := "cinco"

caso 6

a := "seis"

caso 7

a := "sete"

caso 8

a := "oito"

caso 9

a := "nove"

caso 10

a := "dez"

caso 11

a := "onze"

caso 12

a := "doze"

caso 13

a := "treze"

caso 14

a := "quatorze"

caso 15

a := "quinze"

caso 16

a := "dezesseis"

caso 17

a := "dezessete"

caso 18

a := "dezoito"

caso 19

a := "dezenove"

caso 20

a := "vinte"

caso 30

a := "trinta"

caso 40

a := "quarenta"

caso 50

a := "cinquneta"

caso 60

a := "sessenta"

caso 70

a := "setenta"

caso 80

a := "oitenta"

caso 90

a := "noventa"

caso 100

se (numero = 100) entao

a := "cem"

senao

a := "cento"

fimse

caso 200

a := "duzentos"

caso 300

a := "trezentos"

caso 400

a := "quatrocentos"

caso 500

a := "quinhentos"

caso 600

a := "seiscentos"

caso 700

a := "setecentos"

caso 800

a := "oitocentos"

caso 900

a := "novecentos"

fimescolha

escreva(a, " ")

se ((numero > 20) e (numero <> p)) entao

escreva("e ")

fimse

numero := numero - p

se ((numero = 0) e (mil = verdadeiro)) entao

escreva("mil ")

se ((m > 0) e ((m <= 100) ou ((m0) = 0))) entao

escreva("e ")

fimse

mil := falso

numero := m

fimse

fimenquanto

fimalgoritmo

~ORION

Obrigado !!

>
1. Crie uma função que retorna um valor em extenso um valor de 0 a 999.

2. Jogue o número em uma string e faça um loop pegando as últimas 3 casas e escrevendo por extenso de acordo com o passo 1 mais um sufixo.

3. Sufixo vai depender da iteração, na 1a é vazio, na segunda é mil, na 3a é milhão e assim por diante.

4. Ao final do loop, tire essas 3 casas, e mude o o sufixo de acordo com a iteração.

5. Some todas as saídas em uma string única separando cada iteração com uma vírgula.

Logo, uma entrada tipo: 2.593.120 (note que o "." demarca cada iteração, eu sugiro remover o ponto no algoritmo final para normalizar o input) ficaria:

iteração 1: "cento e vinte" + ""

iteração 2: "quinhentos e noventa e três" + "mil"

iteração 3: "2" + "milhões"

resultado final: 2 milhões, quinhentos e noventa e três mil, cento e vinte.

Simples.

Sem falar que como o Eisenheim falou, colocar os valores em vetores facilita muito.

vc me aajudo MTTUH , obg