ik had nog een vraag.
ik ben nu bezig met programmeren, om eerste paasdag te berekenen.
Dit is wat ik heb gemaakt.
Code: Selecteer alles
function pasen (n: integer): string; {de functie pasen}
Var jaartal, i, a, b, m, q, w,d :integer;
Begin
jaartal:= StrToInt(form1.Edit1.text); {het jaartal dat wordt ingevuld}
i:= jaartal + 9;
while jaartal <= i do {herhaling met while...do}
begin
n := (jaartal - 1900);
a := n MOD 19;
b := (7*a+1) DIV 19;
m := (11*a+4-b) MOD 29;
q := n DIV 4;
w := (n+q+31-m) MOD 7;
d := 25-m-w;
jaartal:= jaartal + 1; {voor de herhaling}
if d>0 then
Result:= Form1.memo1.lines.add(IntToStr(d) + ' april ' + IntToStr(1900+n)) {antwoord als d>0}
else
Result:= Form1.Memo1.lines.add(IntToStr(31+d) + ' maart ' + IntToStr(1900+n));
end;
End;
procedure TForm1.Button1Click(Sender: TObject);
Var jaartal : integer;
begin
jaartal:= StrToInt(edit1.text); {het jaartal dat wordt ingevuld}
memo1.clear;
if (edit1.text >= '0') then
begin
IntToStr(jaartal);
Memo1.text:= Pasen(jaartal); {het aanroepen van de functie pasen}
end;
end;
end.
Ik denk echt dat het heel makkelijk is, maar kan gewoon niet bedenken hoe het anders moet.
Dit is de fout die het programma geeft. Links onderin staan de fouten weergegeven, het gaat om de bovenste 2. De eerste fout is rood gemarkeerd in het programma en de tweede fout gaat over de regel eronder.
Hopelijk kunnen jullie mij helpen!
Bedankt