Ir para conteúdo
Fórum Script Brasil
  • 0

Datas No Pascal


Alpha-X

Pergunta

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

Link para o comentário
Compartilhar em outros sites

10 respostass a esta questão

Posts Recomendados

  • 0

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

Link para o comentário
Compartilhar em outros sites

  • 0

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.. wink.gif

abraços amigo.

Link para o comentário
Compartilhar em outros sites

  • 0
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.. wink.gif

abraços amigo.

Valeu amigo, mas ele tb não aceitou o DIV sad.gif

Link para o comentário
Compartilhar em outros sites

  • 0

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....

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...