1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

[Dúdiva] Pascal com Calendário?

Discussão em 'Programação' iniciada por Borgas, 24 de Novembro de 2008. (Respostas: 3; Visualizações: 976)

  1. Borgas

    Borgas Suspenso

    Boas pessoal, então é assim eu estou num curso profissional de gestão e programação informática e para a disciplina de Programação tenho de apresentar um programa elaborado em pascal com tudo o que aprendi até agora, a minha dúvida é:
    Eu estou a pensar em fazer um gestor de despesas, mas para tal eu tinha de trabalhar com um, ou uma espécie de calendário.
    por exemplo: Se abrir o programa no dia 24 e escolher a opção Adicionar Nova Despesa, convinha que ele adiciona-se no dia 24 (reconhecendo o dia automaticamente), se o abrir no dia 25 adiciona no dia 25 .. etc..

    Há alguma forma de meter o pascal a ir buscar a data do PC ou alguma forma de gerar um calendário no pascal?

    PS: Já dei basicamente tudo o que há para dar em pascal, ficheiros, estruturas de repetição, arrays, matrizes, records etc.. etc.. penso que a única coisa com que ainda não trabalhei e nem aprendi a trabalhar foi com modo gráfico.

    thx pela ajuda :joker:
     
  2. Borgas

    Borgas Suspenso

    Bem já descobri a resolução, para irmos buscar a data ao PC basta fazermos um Getdate(a,m,d,ds);
    sendo que:
    a -> ano
    m -> mês
    d -> dia
    ds -> dia da semana

    Num procedimento seria algo como isto...

    Procedure data;

    const dias: array[0..6] of string[15] =
    ('Domingo','Segunda-Feira','Terça-Feira','Quarta-Feira','Quinta-Feira',
    'Sexta-Feira','Sábado');

    var a,m,d,ds : Word;

    Begin
    Clrscr;
    GetDate(a,m,d,ds);
    Writeln(dias[ds],', ',d:0,'-',m:0,'-',a:0); {output de: Terça-Feira, 25-11-2008}
    readln; {Para conseguirem ver o output}
    end;


    PS: Devem usar a biblioteca de dados Windos e o Crt(para o clrscr);

    thats all :003:
     
    Última edição: 25 de Novembro de 2008
  3. Suck Me A Beer

    Suck Me A Beer Power Member

    tenho uma dúvida.
    Ao correr o turbo pascal quando uso o "uses crt" ou wincrt, o programa dá me erro.
    Alguém sabe como corrigir isto?
    thx
     
  4. Borgas

    Borgas Suspenso

    As bibliotecas de dados têm de ser declaradas desta forma:

    Program nome_programa;
    uses biblioteca_de_dados, biblioteca_de_dados2;
    var...


    Pro exemplo:

    Program biblioteca_de_dados;
    uses crt, windos; --> aqui tens de separar as bibliotecas por virgulas e só no fim pões ;
    var..

    Espero ter ajudado :001:
     

Partilhar esta Página