Skocz do zawartości


Zdjęcie

[PASCAL] Algorytm Gaussa


  • Zamknięty Temat jest zamknięty
Brak odpowiedzi do tego tematu

#1 Iss66

Iss66

    Początkujący

  • 11 postów

Napisano 26 05 2009 - 14:26

Mam do napisania program w pascalu, który określi kiedy wypada Wielkanoc na podstawie znajomości algorytmu Gaussa.

Mam swoje wypociny, które niby działają, ale ciągle wypisuje mi 22 kwietnia i poprzedza to errorem.
Proszę o pomoc, bo niestety jestem noga w programowaniu ;)

Program:
CODE-BOX
program wielkanoc;
uses crt;

function Sm(rok,i:longint):longint; {wyznaczenie m }
var m:integer;


begin
i:=(rok div 100);
if (i=17) then m:=23;
if (i=18) then m:=23;
if (i=19) then m:=24;
if (i=20) then m:=24;
if (i=21) then m:=24 else write('error');

end;

function Sn(rok,i:longint):longint; {wyznaczenie n }
var n:integer;

begin
i:=(rok div 100);
if (i=17) then n:=3;
if (i=18) then n:=4;
if (i=19) then n:=5;
if (i=20) then n:=5;
if (i=21) then n:=6 else write('error');

end;

var a,b,c,d,e,rok,m,n,i:longint;

begin

writeln('Podaj rok');
readln(rok);
n:=Sn(rok,i);
m:=Sm(rok,i);
a:=rok mod 19;
b:=rok mod 4;
c:=rok mod 7;
d:=((19*a+m) mod 30);
e:=(2*b+4*c+6*d+n)mod 7;
writeln('n ',n, 'm ',m);

if (22+d+e<=31) then writeln('Dzien wielkanocy bedzie 22 marca');
if (d+e-9<=31) then writeln('Dzien wielkanocy bedzie 22 kwietnia');




readln;
end.


Dobra, zrobione, wiem gdzie był błąd. ;D
Do zamknięcia.

  • 0

Zobacz więcej tematów z tagiem: Turbo Pascal



Użytkownicy przeglądający ten temat: 0

0 użytkowników, 0 gości, 0 anonimowych