VisualG Contagem Inteligente Visualg - Algoritmo

[Luanfranca]

Pessoal, eu to começando na área e nesse algoritmo que fiz pra contagem inteligente dos números, o erro ta sempre na linha do Se onde o visualg diz que: Esperava ver o então.

Sendo que o então ta na linha. Alguém pode me ajudar ?

var
   contador, Ni, Nf :inteiro
inicio
   contador <- 0
   EscrevaL ("inicio: ")
   Leia (Ni)
   EscrevaL ("fim: ")
   Leia (Nf)
        Se (contador <= N) então
           Enquanto (contador <= N) faca
           contador <- contador + 1
           EscrevaL (contador)
           FimEnquanto
        Senao
             Enquanto (contador >= N)
             contador <- contador - 1
             EscrevaL (contador)
             FimEnquanto
        FimSe
fimalgoritmo

 

[Midori]

@Luanfranca O teste condicional deve ser com uma das variáveis declaradas em Var. Então faltou declarar (e atribuir) N ou testar a variável correta.

[Luanfranca]

12 horas atrás, Midori disse:

@Luanfranca O teste condicional deve ser com uma das variáveis declaradas em Var. Então faltou declarar N ou testar a variável correta.

Eu ajustei isso no algoritmo, agora meu problema ta sendo apenas a contagem, pois só ta contando o primeiro número "Ni"

 

var
   contador, Ni, Nf:inteiro
inicio
   EscrevaL ("Inicio: ")
   Leia (Ni)
   EscrevaL ("Fim: ")
   Leia (Nf)
   contador <- Ni
   Se (contador < Ni) então
      Enquanto (contador < Ni) faca
         contador <- contador + 1
         EscrevaL (contador)
      FimEnquanto
   Senao
        Se (contador > Ni) então
           Enquanto (contador > Ni) faca
           contador <- contador - 1
           EscrevaL (contador)
           FimEnquanto
        FimSe
   FimSe
fimalgoritmo

 

 

Em 10/03/2023 às 19:11, Selma Takahashi disse:

@Murilo Prestes

 

Só dá certo se o maior está em primeiro e o menor em segundo, como fazer o resultado independente de qual dos times ganhou? Se é que me fiz entender....

 

[Midori]

@Luanfranca Se entendi o que quer fazer é mostrar a contagem crescente caso o valor inicial seja menor e descrescente se maior. Para isso não é necessário contador e nem a condicional SE. A estrutura Enquanto tem o teste condicional então é só colocar o critério, p.ex,

 

Var
    Ni, Nf: Inteiro
Inicio
    EscrevaL("Inicio: ")
    Leia (Ni)
    EscrevaL("Fim: ")
    Leia (Nf)
   
    Enquanto Ni < Nf Faca
        EscrevaL(Ni)
        Ni <- Ni + 1
    FimEnquanto
   
    Enquanto Ni >= Nf Faca
        EscrevaL(Ni)
        Ni <- Ni - 1
    FimEnquanto
FimAlgoritmo

 

[Luanfranca]

1 minuto atrás, Midori disse:

@Luanfranca Se entendi o que quer fazer é mostrar a contagem crescente caso o valor inicial seja menor e descrescente se maior. Para isso não é necessário contador e nem a condicional SE. A estrutura Enquanto tem o teste condicional então é só colocar o critério, p.ex,

 

Var
    Ni, Nf: Inteiro
Inicio
    EscrevaL("Inicio: ")
    Leia (Ni)
    EscrevaL("Fim: ")
    Leia (Nf)
   
    Enquanto Ni < Nf Faca
        EscrevaL(Ni)
        Ni <- Ni + 1
    FimEnquanto
   
    Enquanto Ni >= Nf Faca
        EscrevaL(Ni)
        Ni <- Ni - 1
    FimEnquanto
FimAlgoritmo

 

Tmj irmão, obrigado