Luanfranca

Tmj irmão, obrigado

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

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

O que pode se fazer é também adicionar um novo caso com os números negativos, ele usaria no "EscrevaL" a diferença como negativa ainda, porém o status da partida seria corrigido. inicio Escreval("-----------------------") Escreval(" BANGU X MADUREIRA ") Escreval("-----------------------") Escreva("Quantos Gols do BANGU? ") leia(bang) Escreva("Quantos Gols do MADUREIRA? ") leia(madur) placar <- (bang - madur) Escreval("-----------------------") Escreval(" DIFERENCA:", dif) Escolha dif Caso 0 Escreval(" STATUS: EMPATE") Caso 1, 2 ,3 ,4 Escreval(" STATUS: PARTIDA NORMAL") Caso -1, -2, -3, -4 Escreval(" STATUS: PARTIDA NORMAL") OutroCaso Escreval(" STATUS: GOLEADA") FimEscolha Escreval("-----------------------") fimalgoritmo