[Resolvido] Potencia de 3 no visualg

[dedeboy 0]

Ola eu estou com probleminha simples no algoritmo é o seguinte, eu estou fazendo poteciação de 3 de 0 até o 15 só que não estou conseguindo passar essa potencia para o visualg, quer dizer o comando certo, eu já procurei na net e até agora eu não consegui achar, então vou mostrar o código pra vcs verem e me mostrar na onde eu estou errando.

 

 

var
 Contador: Inteiro  // Aqui é a variavel que vai sera usado no programa
  X: Inteiro

 inicio
// Seção de Comandos
 Contador:= 0 // Aqui vai ser o inicio do contador

    Enquanto Contador <= 15 faca //Aqui esta sendo usado a condição enquanto
     X:=  3 exp (Contador)
       Escreva (X)
        Contador:= Contador + 1
      
    fimenquanto

Abraços http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[quitZAUMMM 18]

Não tenho conhecimento de alguma função que faça isso, pq você não faz essa função na mão?

 

[]s

[dedeboy 0]

Não tenho conhecimento de alguma função que faça isso, pq você não faz essa função na mão?

 

[]s

 

Desculpe, mas não entendi? :unsure:

 

[]s

[quitZAUMMM 18]

Função potencia3(Inteiro N) Retorna Inteiro
    Inteiro N3;
    N3 <- N * N * N;
    Função_Retorna N3;
Fim_Função

[]s

[dedeboy 0]

Função potencia3(Inteiro N) Retorna Inteiro
    Inteiro N3;
    N3 <- N * N * N;
    Função_Retorna N3;
Fim_Função

[]s

 

Confudiu mais a minha cabeça nunca pensei que ia ser complicado kkkk :wacko:

Vou passar o exercicio que o livro pede eu acho que vai ser melhor é assim:

 

Apresentar as potências de 3 variando 0 a 15. Deve ser considerado que qualquer número elevado a zero é 1, e elevado a 1 é ele próprio.

[]s

[quitZAUMMM 18]

É como se você tivesse fazendo o fatorial, soh q o expoente é constante!

 

[]s

[dedeboy 0]

Acho que estou cansado hoje não estou conseguindo resolver, me mostra como você resolveria isso, mas de tanto pensar que não estou conseguindo racicionar mais nada http://forum.imasters.com.br/public/style_emoticons/default/no.gif

[]s http://forum.imasters.com.br/public/style_emoticons/default/cry.gif

[quitZAUMMM 18]

Acho melhor você tentar desenvolver e eu te dou um empurrãozinho!

 

[]s

[dedeboy 0]

Tô quase chegando lá! http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

[dedeboy 0]

Consegui fazer 98% do algoritmo praticamente ta quase pronto só que tenho um problema no problema que o exercicio que me pede que 3 elevado a 0 é 1. só que não estou sabendo como proceder. Alguém poderia me ajudar? eu estou mandando o código que eu fiz, pra avaliarem.Mas enquanto isso eu vou ver como eu faço aqui. Abraços.

 

var
Contador: Inteiro  {Aqui é a variavel que vai sera usado no programa}
X: Inteiro
Y: inteiro

inicio
// Seção de Comandos
Contador:= 1 { Aqui vai ser o inicio do contador}
Y:= 1        {Aqui vou iniciar o Y }

Enquanto Contador <= 15 faca {Aqui esta sendo usado a condição enquanto}
   X:= 3 * Y       { Aqui é a soma}

   Escreva(X)  { Aqui é o resultado}
   Y:= X       {Aqui o Resultado do X passará para o Y}
   Contador:= Contador + 1
fimenquanto

[quitZAUMMM 18]

Faça uma condição:

Se (iElevado = 0) Então
    Escreva("1");
Senão
.
.
Fim_Se

[]s

[dedeboy 0]

Faça uma condição:

Se (iElevado = 0) Então
    Escreva("1");
Senão
.
.
Fim_Se

[]s

 

Entao qual parte eu coloco esse condição? eu estou fazendo os teste não esta dando certo, vou vendo se conseguido descobrir

[]s

[dedeboy 0]

Consegui resolver só que tive que fazer de outro jeito por causa a condição que você me passou ele repetia o mesmo numero e não saia da condição Se...entao . http://forum.imasters.com.br/public/style_emoticons/default/joia.gif

 

Enquanto Contador <= 15 faca //Aqui esta sendo usado a condição enquanto
    Se (Y = 0) entao
    Y:= 1
    Escreva(Y)
    senao

   X:= 3 * Y       // Aqui é a soma

   Escreva(X) // Aqui é o resultado
   Y:= X     // Aqui o Resultado do X passará para o Y
   fimse
   Contador:= Contador + 1
fimenquanto

[]s

[quitZAUMMM 18]

http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif