Duvida (Pascal)

kira911 · 27 de dezembro de 2010

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.

viniciusbmatos · 27 de dezembro de 2010

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]