Lógica

[recapi 0]

Faça Um programa no visual g que Informe a hora ,dia ,mes ,ano e minutos em tempo real , e toda fez que o enter é apertado ele grava uma hora q o botao foi apertado, e o programa continue marcando a hora o programa nao encerra

[Marcelo de Andrade 2]

Qual a dúvida? Poste o que já fez.

[recapi 0]

algoritmo "semnome"
// Função :
// Autor :
// Data : 04/05/2011
// Seção de Declarações 
var
Enter : Inteiro
Ano, Mes , Dia , Minutos, Hora : inteiro
inicio
leia (enter)
se (enter=1)entao
escreva ("Ano",Ano," : Mes",Mes," : Dia",Dia," : Hora",Hora," : Minutos",Minutos)
Fimse
fimalgoritmo

Nao Consegui Fazer ele pegar a hora do sistema

[LCS 0]

Até onde eu sei o visualg não dá suporte a esse tipo de fato. tipo quando se aperta o enter, o sistema interpreta algum valor.

[Marcelo de Andrade 2]

Pesquisei de forma superficial e vi que o visualg não dá suporte ao que você quer com o amigo LCS já mencionou. Mas você poderia tentar fazer algo genérico no visualg, tipo um loop com algum contador nas datas e ao apertar enter ele marcaria a data atual do loop.

[recapi 0]

Eu estava procurando e achei nos exemplos do visualg um cronometro , ele fica em um loop infinito nao tem como ele parar para marcar a hora

algoritmo "Cronometro"
// Autor : Wallace S. Maia
// Data : 02/04/2004
// Seção de Declarações 
var
  Hora, Minuto, Segundo: inteiro

funcao replicar(s : caracter ; n : inteiro ) : caracter
// Replica a cadeia de caracteres S, N vezes
var t : caracter
   J : inteiro
inicio
  t <- ""
  para j de 1 ate n faca
      t <- t + s
  fimpara
  retorne t
fimfuncao

funcao direita(s : caracter ; n : inteiro) : caracter
inicio
  retorne copia(s,compr(s)-n+1 ,n)
fimfuncao

funcao numpcaraczero( v, c : inteiro) : caracter
inicio
  retorne direita( replicar("0",c) + numpcarac(v),c)
fimfuncao


inicio
     Hora <- 0
     Minuto <- 0
     Segundo <- 0
     enquanto Hora < 25 faca
         timer 1000
         timer 0
         segundo <- segundo + 1
         se segundo > 59 entao
            Segundo <- 0
            Minuto <- Minuto + 1
            se Minuto > 59 entao
               Minuto <- 0
               Hora <- Hora + 1
               se Hora > 24 entao
                  Hora <- 0
               fimse
            fimse
         fimse
         limpatela
         escreva(numpcaraczero(Hora,2),":",numpcaraczero(Minuto,2),":",numpcaraczero(Segundo,2))
     fimenquanto
fimalgoritmo

ele fica em um loop infinito nao tem como ele parar

[quitZAUMMM 18]

Fez os testes de mesa para ver os resultados que estão aparecendo dentro desse loop?

só assim pra descobrir o pq dele entrar em loop infinito.

 

Observando mais ou menos digamos que em determinada iteração do seu loop a hora seja 24..

ai de acordo com um if lá ela vai incrementar e passar a ser 25, ai na linha de baixo você ve se for maior de 24 ela vai a 0, nunca vai sair msm!

 

[]s