Pascal – O básico – Mais biblioteca DOS

22, abril 2007 at 7:47 pm 5 comentários

Seguindo mais um exercício com funções da biblioteca DOS. Desta vez, além de motrar a hora do sistema, também apresentaremos data completa.

=============código fonte=============

Program BibliotecaDos2;

Uses  

    crt, dos;  

Var  

   ano, mes, dia, diaDaSemana, horas, minutos, segundos, centesimos : word;  

Begin  

     ClrScr;  

     TextBackground(Blue);  

     TextColor(Black);  

     GetDate(ano,mes,dia,diaDaSemana);  

     Write('Hoje e: ');  

     Case diaDaSemana of  

          0: Write('Domingo, ');  

          1: Write('Segunda, ');  

          2: Write('Ter‡a, ');  

          3: Write('Quarta, ');  

          4: Write('Quinta, ');  

          5: Write('Sexta, ');  

          6: Write('Sabado, ');  

     End;  

     Write(dia);  

     Case mes of  

          1: Write(' de Janeiro de ');  

          2: Write(' de Fevereiro de ');  

          3: Write(' de Mar‡o de ');  

          4: Write(' de Abril de ');  

          5: Write(' de Maio de ');  

          6: Write(' de Junho de ');  

          7: Write(' de Julho de ');  

          8: Write(' de Agosto de ');  

          9: Write(' de Setembro de ');  

          10: Write(' de Outubro de ');  

          11: Write(' de Novembro de ');  

          12: Write(' de Dezembro de ');  

     End;  

     WriteLn(ano);  

     GetTime(horas,minutos,segundos,centesimos);  

     Write('Sao ',horas,' horas, ',minutos,' minutos, ',segundos,' segundos e ',centesimos,' centesimos.');  

     ReadKey;  

End.

=============código fonte=============

Bom estudos galera! Estou aberto a melhores resoluções e novos exercícios!

Até mais.

Anúncios

Entry filed under: CEFET, Estudos, FATEC, Pascal, Software, Tecnologia.

Obrigado pela sua visita! Pascal – O básico – Desafio Fibonacci

5 Comentários Add your own

  • 1. Victor de Souza Couto  |  22, abril 2007 às 7:53 pm

    Exercíccio testado e aprovado

    Vai aparecer no prompt MS-DOS, com fundo azul e letra preta, o seguinte texto:

    Hoje é Domingo, 22 de Abril de 2007
    São 16 horas, 52 minutos, 47 segundos e 76 centésimos.

    😉

    Até mais!

    Responder
  • 2. Rafael  |  27, abril 2007 às 2:36 pm

    Gostaria que vc me desse uma sugestao de como medir o tempo de execucao de uma procedure.
    Tentei usar o GetTime, capturando o tempo no inicio da procedure e no final e depois subtraindo-os. mas como o tempo eh muito curto não capturei nenhuma alteracao na escala dos centesimos.

    Rafael

    Responder
  • 3. Victor de Souza Couto  |  27, abril 2007 às 4:28 pm

    Rafael,

    eu ia lhe dar a mesma sugestão. Eu vou pesquisar algo, sobre algum funtion mais especifica, para pegar até os milésimos por exemplo.
    Mas esse é o caminho.
    Entro em contato, sobre qualquer descoberta.
    E se você também discobrir algo, por favor me manda um recado! hahaha

    Abraços, obrigado pela visita.

    Responder
  • 4. Byto  |  2, março 2009 às 10:53 am

    Queria saber como faço uma função que m devolva a diferença entre uma hora inicial e uma hora final….

    Quem me puder ajudar, agradeço muito…

    Em primeiro tenho que passar horas, minutos, segundos, tudo para centesimas de segundo, e depois tenho que aplicar a função para me devolver a diferença entre as duas horas…

    AGRADEÇO RESPOSTA…..

    Cumps

    Responder
  • 5. eduardo modesto  |  14, julho 2009 às 12:12 pm

    meu pascal nao pega no meu computador quando eu tento copilar a operção ele acusa q a biblioteca no esta na tpu alguem sabe outra biblioteca diferente da crt?

    Responder

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Trackback this post  |  Subscribe to the comments via RSS Feed


Agenda

abril 2007
S T Q Q S S D
« mar   maio »
 1
2345678
9101112131415
16171819202122
23242526272829
30  

Most Recent Posts


%d blogueiros gostam disto: