VisualG - Erro fimse

[Isaias17]

Olá a todos, como podem ver eu sou novo aqui no fórum e preciso de ajuda para resolver este erro.

Erro na linha 24 - "Esperava encontrar FIMSE."

algoritmo "Partida_Xadrez"
// Função : Calcular o tempo de duração de uma partida de xadrez que dura 
// menos de 24h e que pode começar em um dia e terminar no dia seguinte.

var
h1, m1, h2, m2:inteiro

inicio
// Dados
escreva("Digite a hora inicial: ")
leia(h1)
escreva("Digite os minutos iniciais: ")
leia(m1)
escreva("Digite a hora final: ")
leia(h2)
escreva("Digite os minutos finais: ")
leia(m2)

// Condições
se(h2>=h1)e(m2>=m1)então
   escreva("A partida durou", h2-h1, "h e", m2-m1, "min.")
senao se(h2>h1)e(m2<m1)então
   escreva("A partida durou", h2-h1-1,"h e", m2+60-m1, "min.")
senao se(h1>h2)e(m2>=m1)então
   escreva("A partida durou", h2+24-h1, "h e", m2-m1, "min.")
senao (h1>=h2)e(m2<m1)então
   escreva("A partida durou", h2+23-h1, "h e", m2+60-m1, "min.")
fimse

fimalgoritmo

Fiz também dessa outra forma no VisualG, mas creio que a forma acima é melhor por deixar o programa menor.

algoritmo "Partida_Xadrez"

var
h1, h2, m1, m2:inteiro

inicio
//Dados
escreva("Digite a hora inicial: ")
leia(h1)
escreva("Digite os minutos iniciais: ")
leia(m1)
escreva("Digite a hora final: ")
leia(h2)
escreva("Digite os minutos finais: ")
leia(m2)

//Condições
se(h2>=h1)e(m2>=m1)então
escreva("A partida durou:", h2-h1, "h e", m2-m1, "min.")
fimse
se(h2>h1)e(m2<m1)então
escreva("A partida durou:", h2-1-h1, "h e", m2+60-m1, "min.")
fimse
se(h1>h2)e(m2>=m1)então
escreva("A partida durou:", h2+24-h1, "h e", m2-m1, "min.")
fimse
se(h1>=h2)e(m2<m1)então
escreva("A partida durou:", h2+23-h1, "h e", m2+60-m1, "min.")
fimse

fimalgoritmo

(Preferi não editar como no primeiro código.)

Fiz também em Pascal (compilador Pascalzim) das duas formas e deu tudo certo. Se possível peço que me ajudem

a fazer usando caso em portugol e Pascal.

Agradeço desde já.

[Fabricio Dias]

Tente Ctrl+G na tela do Visualg, ele faz a formatação automatica. talvez resolva.

[CiD182]

a sintaxe do "se....senao" no visualg fica assim:

se (h2>=h1) e (m2>=m1) então

escreva("A partida durou", h2-h1, "h e", m2-m1, "mim.")

senao

se (h2>h1) e (m2<m1) então

escreva("A partida durou", h2-h1-1,"h e", m2+60-m1, "mim.")

senao

se(h1>h2) e (m2>=m1) então

escreva("A partida durou", h2+24-h1, "h e", m2-m1, "mim.")

senao (h1>=h2) e (m2<m1) então

escreva("A partida durou", h2+23-h1, "h e", m2+60-m1, "mim.")

fimse

fimse

fimse

Como eu nao sei postar com os espaçoes da margem esquerda aqui vai ficar estranho mas no visualg você da um ctrl+g q ele arruma la. Espero que ajude.