algoritimo no portugol

[LuHciAno 0]

Na faculdade o professor passou o seguinte algoritimo.

 

São decorridos 58764 segundos do dia de hoje. Calcule e mostre a hora atual no formato HH:MM:SS(hora, minuto e segundo atual).

ele quer que faça isso em portugol usando o portugol studio.

Alguém poderia me da uma luz por onde começar?

[LuisVieira 1]

CODE

algoritimo "teste"
var
entrada:inteiro
h,m,s:real
inicio
escreval("Entre com os segundos: ")
leia(entrada)
h:= entrada div 3600
m:=(entrada mod 3600)/60
s:=(entrada mod 3600)mod 60
escreval(h ," : ",m," : ",s)

Faz muito tempo que não uso portugol mais é mais ou menos assim. Espero ter ajudado

[LuHciAno 0]

 

CODE

algoritimo "teste"

var

entrada:inteiro

h,m,s:real

inicio

escreval("Entre com os segundos: ")

leia(entrada)

h:= entrada div 3600

m:=(entrada mod 3600)/60

s:=(entrada mod 3600)mod 60

escreval(h ," : ",m," : ",s)

Faz muito tempo que não uso portugol mais é mais ou menos assim. Espero ter ajudado

 

Valeu Luis.. vou da uma estuda no seu codigo e ver se isso resolve meu problema.

[YumalaySc 2]

algoritmo "hh/mm/ss"
// Função : Calcular Hora minuto e segundo referente aos segundos do dia.
// Autor : Eduardo Cipriani
// Data : 26/04/2015
// Seção de Declarações
var
   segundos ,k ,h , m , s : inteiro
inicio
      leia(segundos)
      k <- 1
      h <- 0
      m <- 0
      s <- 0
      se(segundos > 86400) entao
                  escreval("Este algoritmo não calcula Dias, informe até 86400 Segundos.")
      fimse
      se(segundos < 86401) entao
         para k de 1 ate segundos faca
              s <- s + 1
              se(s = 60) entao
                   m <- m + 1
                   s <- 0
              fimse
              se(m = 60) entao
                   h <- h + 1
                   m <- 0
              fimse
         fimpara
      fimse
      escreval("A hora referente aos segundos informados é: ",h," /",m," /",s)
fimalgoritmo

Tente este, Não comentei, porem se precisar só pedir, também não utilizei os segundos que você passou, e sim os de um dia. Qualquer dúvida só falar.

[LuHciAno 0]

algoritmo "hh/mm/ss"
// Função : Calcular Hora minuto e segundo referente aos segundos do dia.
// Autor : Eduardo Cipriani
// Data : 26/04/2015
// Seção de Declarações
var
   segundos ,k ,h , m , s : inteiro
inicio
      leia(segundos)
      k <- 1
      h <- 0
      m <- 0
      s <- 0
      se(segundos > 86400) entao
                  escreval("Este algoritmo não calcula Dias, informe até 86400 Segundos.")
      fimse
      se(segundos < 86401) entao
         para k de 1 ate segundos faca
              s <- s + 1
              se(s = 60) entao
                   m <- m + 1
                   s <- 0
              fimse
              se(m = 60) entao
                   h <- h + 1
                   m <- 0
              fimse
         fimpara
      fimse
      escreval("A hora referente aos segundos informados é: ",h," /",m," /",s)
fimalgoritmo

Tente este, Não comentei, porem se precisar só pedir, também não utilizei os segundos que você passou, e sim os de um dia. Qualquer dúvida só falar.

 

 

algoritmo "hh/mm/ss"
// Função : Calcular Hora minuto e segundo referente aos segundos do dia.
// Autor : Eduardo Cipriani
// Data : 26/04/2015
// Seção de Declarações
var
   segundos ,k ,h , m , s : inteiro
inicio
      leia(segundos)
      k <- 1
      h <- 0
      m <- 0
      s <- 0
      se(segundos > 86400) entao
                  escreval("Este algoritmo não calcula Dias, informe até 86400 Segundos.")
      fimse
      se(segundos < 86401) entao
         para k de 1 ate segundos faca
              s <- s + 1
              se(s = 60) entao
                   m <- m + 1
                   s <- 0
              fimse
              se(m = 60) entao
                   h <- h + 1
                   m <- 0
              fimse
         fimpara
      fimse
      escreval("A hora referente aos segundos informados é: ",h," /",m," /",s)
fimalgoritmo

Tente este, Não comentei, porem se precisar só pedir, também não utilizei os segundos que você passou, e sim os de um dia. Qualquer dúvida só falar.

 

 

Teria como comentar por favor! pra melhor entendimento.

[YumalaySc 2]

algoritmo "hh/mm/ss"
// Função : Calcular Hora minuto e segundo referente aos segundos do dia.
// Autor : Eduardo Cipriani
// Data : 26/04/2015
// Seção de Declarações 
var
   segundos ,k ,h , m , s : inteiro
inicio
      leia(segundos) //lê os segundos que seram examinados
      k <- 1 // da um valor inicial para cada variavel
      h <- 0
      m <- 0
      s <- 0
      se(segundos > 86400) entao  // Se segundos foram maiores que os de um dia, exibira uma mensagem de erro. (o programa calcula no maximo 24h)
                  escreval("Este algoritmo não calcula Dias, informe até 58764 Segundos.")
      fimse
      se(segundos < 86401) entao // Se os segundos informados estiverem dentro de 24h (86400 Segundos) entao executara o laço abaixo
         para k de 1 ate segundos faca  // Fara o loop de 1 ate os segundos
              s <- s + 1 // A cada vez q passa aq S Recebe o seu valor +1
              se(s = 60) entao //se S for igual a 60 (60 é os segundos, 60 segundos é um minuto, portanto... )/
                   m <- m + 1  // m (de minuto) vai ser o seu valor e +1
                   s <- 0     // o segundos são zerados (pois você reinicia sempre que chega a 60)
              fimse
              se(m = 60) entao // o mesmo processo dos segundos acima, porem agora com minutos
                   h <- h + 1 // como nos minutos acima, porem agora passa a ser hora.
                   m <- 0
              fimse
         fimpara
      fimse
      escreval("A hora referente aos segundos informados é: ",h," /",m," /",s) // mostra a  hora , Minuto , Segundo.
      // Obs: Espero que ajude. Se precisar de mais alguma coisa só falar.
fimalgoritmo

Comentei, fiz o mais explicado que consegui. porem se mesmo assim precisar de ajuda. Peça sobre o ponto exato que esta com dúvida.