Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
kira911

[Resolvido] Duvida (Pascal)

Recommended Posts

Por favor pessoal me ajudem ! Revirei a net atrás de algo para resolver meu problema e não achei. Estou querendo que um programa meu leia a data do PC. Achei um comando chamado "getdate" mas não consegui executa-lo. O codigo que estou usando esta ai logo abaixo, o que ha de errado nele ?

Desde ja muito obrigadoO !

program ler_data_do_pc;

uses dos, crt;

var dia_da_semana,dia_mes,mes,ano:word;

begin

GetDate(dia_da_semana,dia_mes,mes,ano);

writeln(dia_da_semana,dia_mes,mes,ano);

end.

Compartilhar este post


Link para o post
Compartilhar em outros sites

Olá!

A ordem do GetDate está errada. O correto é:

[color=#228b22]GetDate[/color][color=#a52a2a][b]([/b][/color]ano[color=#a52a2a][b],[/b][/color] mes[color=#a52a2a][b],[/b][/color] dia_mes[color=#a52a2a][b],[/b][/color] dia_da_semana[color=#a52a2a][b]);[/b][/color]

Além disso, fica melhor se imprimir os dados separadamente:

[color=#000000][b]program[/b][/color] ler_data_do_pc[color=#a52a2a][b];[/b][/color]
[color=#000000][b]uses[/b][/color]
dos[color=#a52a2a][b],[/b][/color] crt[color=#a52a2a][b];[/b][/color]
[color=#000000][b]const[/b][/color]
nome_dias[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color][color=#a52a2a][b][[/b][/color][color=#000000]0[/color][color=#a52a2a][b].[/b][/color][color=#000000].6[/color][color=#a52a2a][b]][/b][/color] [color=#000000][b]of string[/b][/color] [color=#a52a2a][b]= ([/b][/color][color=#ff4500]'Domingo'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Segunda-feira'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Ter'[/color][color=#a52a2a][b]+[/b][/color] #[color=#000000]135[/color] [color=#a52a2a][b]+[/b][/color] [color=#ff4500]'a-feira'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Quarta-feira'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Quinta-feira'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Sexta-feira'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'S'[/color] [color=#a52a2a][b]+[/b][/color] #[color=#000000]160[/color] [color=#a52a2a][b]+[/b][/color] [color=#ff4500]'bado'[/color][color=#a52a2a][b]);[/b][/color]
nome_meses[color=#a52a2a][b]:[/b][/color] [color=#000000][b]array[/b][/color][color=#a52a2a][b][[/b][/color][color=#000000]1[/color][color=#a52a2a][b].[/b][/color][color=#000000].12[/color][color=#a52a2a][b]][/b][/color] [color=#000000][b]of string[/b][/color] [color=#a52a2a][b]= ([/b][/color][color=#ff4500]'Janeiro'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Fevereiro'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Mar'[/color] [color=#a52a2a][b]+[/b][/color] #[color=#000000]135[/color] [color=#a52a2a][b]+[/b][/color] [color=#ff4500]'o'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Abril'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Maio'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Junho'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Julho'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Agosto'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Setembro'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Outubro'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Novembro'[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'Dezembro'[/color][color=#a52a2a][b]);[/b][/color]
[color=#000000][b]var[/b][/color]
dia_da_semana[color=#a52a2a][b],[/b][/color] dia_mes[color=#a52a2a][b],[/b][/color] mes[color=#a52a2a][b],[/b][/color] ano[color=#a52a2a][b]:[/b][/color] [color=#0000cd][b]word[/b][/color][color=#a52a2a][b];[/b][/color]
[color=#000000][b]begin[/b][/color]
[color=#228b22]GetDate[/color][color=#a52a2a][b]([/b][/color]ano[color=#a52a2a][b],[/b][/color] mes[color=#a52a2a][b],[/b][/color] dia_mes[color=#a52a2a][b],[/b][/color] dia_da_semana[color=#a52a2a][b]);[/b][/color]
[color=#228b22]writeln[/color][color=#a52a2a][b]([/b][/color]nome_dias[color=#a52a2a][b][[/b][/color]dia_da_semana[color=#a52a2a][b]],[/b][/color] [color=#ff4500]', '[/color][color=#a52a2a][b],[/b][/color] dia_mes[color=#a52a2a][b]:[/b][/color][color=#000000]0[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]' de '[/color][color=#a52a2a][b],[/b][/color] nome_meses[color=#a52a2a][b][[/b][/color]mes[color=#a52a2a][b]],[/b][/color] [color=#ff4500]' de '[/color][color=#a52a2a][b],[/b][/color] ano[color=#a52a2a][b]:[/b][/color][color=#000000]0[/color][color=#a52a2a][b],[/b][/color] [color=#ff4500]'.'[/color][color=#a52a2a][b]);[/b][/color]
readkey[color=#a52a2a][b];[/b][/color]
[color=#000000][b]end[/b][/color][color=#a52a2a][b].[/b][/color]

Compartilhar este post


Link para o post
Compartilhar em outros sites
  • Autor do tópico
  • Vinicius muito obrigado cara ! Me diz uma coisa qual compilador você usa para linguagem pascal ?

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites

    Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.

    Compartilhar este post


    Link para o post
    Compartilhar em outros sites
    Visitante
    Este tópico está impedido de receber novos posts.
    Entre para seguir isso  





    Sobre o Clube do Hardware

    No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

    Direitos autorais

    Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

    ×