Datas No Pascal

[Alpha-X]

Olá pessoal, estou aprendendo a programar agora e estou na parte de funções em Pascal. Estou tentando fazer um programa pra mostrar o dia da semana que caiu determinada data, mas sozinho não consegui desenvolver essa função, será que alguém pode me dar uma ajudinha ?

Comecei assim:

program datas;

function DiaSemana (DiaF,MesF,AnoF:Integer):String;
begin



end;

    {Programa principal}
var
   Dia,Mes,Ano:Integer;
begin
     write ('Digite o dia: ');
     readln (Dia);
     write ('Digite o mês: ');
     readln (Mes);
     write ('Digite o ano: ');
     readln (Ano);
     writeln;




end.

Sei que pode ser muito simples pra quem manja, mas eu sou iniciante, hehehe

Grato

Alpha-X

[Graymalkin]

Se você usa o FreePascal, dê uma olhada aqui: http://www.nl.freepascal.org/lists/fpc-pas...ril/001314.html

Abraços,

Graymalkin

[Alpha-X]

Não, eu não uso o FreePascal, eu uso o Turbo Pascal 7 mesmo. Mas valeu a intenção.

[Graymalkin]

Então, dê uma olhada neste outro endereço aqui: http://borlpasc.narod.ru/english/faqs/iscode.htm

Abraços,

Graymalkin

[Alpha-X]

Eu pesquisei e consegui elaborar o programa, mas estou com alguns problemas...

program testdata;
var
D,M,A,S,DS:Integer;
DiaSemana: String;
begin
     write ('Digite o dia: ');
     readln (D);
     write ('Digite o mes: ');
     readln (M);
     write ('Digite o ano(primeiros algarismos): ');
     readln (S);
     write ('Digite o ano(ultimos algarismos):');
     readln (A);
     case M of
          1: M:=11;
          2: M:=12;
          else M:=M-2;
     end;
     DS:= ((2.6*M-0.1)/1+D+A+A/4+S/4-2*5)/7;
     case DS of
          0: DiaSemana:='Domingo';
          1: DiaSemana:='Segunda-Feira';
          2: DiaSemana:='Terça-Feira';
          3: DiaSemana:='Quarta-Feira';
          4: DiaSemana:='Quinta-Feira';
          5: DiaSemana:='Sexta-Feira';
          6: DiaSemana:='Sábado';
     end;
     writeln ('Dia ',D,'/',M,'/',S,A,' é ',DiaSemana);
end.

M - representa o número do mes, Janero e fevereiro são os meses 11 e 12 do ano precedente, março é o mes 1 e dezembro é o mes 10

D - Representa o dia do mes

A - Representa o numero formado pelo dois ultimos algarimos do ano

S - Representa o numero formado pelo dois primeiros algarismos do ano

O problema é que se eu coloco as variáveis como Integer ele não aceita divisão na fórmula e se poe Real da problema no case. Talvez tenha um meio mais facil, é que eu to começando a programar agora ainda nem sei muito, só to fazendo isso de curioso rsrsrs

[]s

[Graymalkin]

Não olhei bem o código, mas tente converter de real para inteiro (na fórmula).

Abraços,

Graymalkin

[Alpha-X]

Não olhei bem o código, mas tente converter de real para inteiro (na fórmula).

Abraços,

Graymalkin

Desculpe, mas como eu faço isso?

[Graymalkin]

Com a função Trunc(), se não me engano.

Abraços,

Graymalkin

[Ø£¡vë¡®'§®]

Amigo tenta na divisão ao invés de por a "/ "poem "DIV" assim:

    DS:= ((2.6*M-0.1) DIV (1+D+A+A) DIV (4+S) DIV (4-2*5)) DIV 7;

não sei se vai dar certo mais tenta ae ...depois você postapara mim saber se deu certo..

abraços amigo.

[Alpha-X]

Amigo tenta na divisão ao invés de por a "/ "poem "DIV" assim:

    DS:= ((2.6*M-0.1) DIV (1+D+A+A) DIV (4+S) DIV (4-2*5)) DIV 7;

não sei se vai dar certo mais tenta ae ...depois você postapara mim saber se deu certo..

abraços amigo.

Valeu amigo, mas ele tb não aceitou o DIV

[Ø£¡vë¡®'§®]

Valeu amigo, mas ele tb não aceitou o DIV

Tenta usar MOD no lugar de DIV quem sabe não de certo!

abraços....