• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Byto

Alguem que consiga ajudar...

2 mensagens neste tópico

Boas

Estou a tentar fazer um programa em pascal, para calcular em que dia é a Pascoa entre os anos 1900 e 2099...

Já tenho os seguintes passos:

program Domingo_Pascoa;

Uses crt;

Var

  ano:Integer;

Function DataPascoa(Ano:Integer):String;

Var

  a,b,c,d,e,x,y:Integer;

  dia: Integer;

  Mes: String;

Begin

a:=Ano MOD 19;

b:=Ano MOD 4;

c:=Ano MOD 7;

d:=((19*a)+X mod 30);

e:=(((2*:)+(4*c)+(6*d)+Y) mod 7);

IF (d+e)<10 then

Begin

dia := (d+e+22);

mes:='Mar‡o';

end

else

begin

dia:=(d+e-9);

mes:= 'Abril';

End;

DataPascoa:= 'domingo';

end;

Begin

clrscr;

Writeln('Qual o ano? (1900 a 2099)');

Readln(Ano);

Writeln('Data da Pascoa:',DataPascoa(Ano));

Readln;

End.

Ate agora isto está assim, alguem que me consiga ajudar a concluir este programa?

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora