Witam
Mam problem ze schematem blokowym mojej procedurki
czy ktoś mógł by mi pomóc to zrobić?
<Free Pascal>
Procedurka
procedure dzienplus(dzien,miesiac,rok,n:integer;var dzien1,miesiac1,rok1:integer);
var
i : integer;
begin
dzien1:=dzien;
miesiac1:=miesiac;
rok1:=rok;
for i:=1 to n do
begin
inc(dzien1);
case miesiac1 of
1,3,5,7,8,10,12 : if dzien1>31 then
begin
dzien1:=dzien1-31;
inc(miesiac1);
end;
2 : if ((rok1 mod 4=0) and (rok1 mod 100<>0)) or (rok1 mod 400=0) then
begin
if dzien1>29 then
begin
dzien1:=dzien1-29;
inc(miesiac1);
end;
end
else
if dzien1>28 then
begin
dzien1:=dzien1-28;
inc(miesiac1);
end;
4,6,9,11 : if dzien1>30 then
begin
dzien1:=dzien1-30;
inc(miesiac1);
end;
end;
if miesiac1>12 then
begin
inc(rok1);
miesiac1:=miesiac1-12;
end;
end;
end;