Witam, potrzebuje aby pętla "for" w pascalu nie zwięszała i o 1 co każdy przebieg tylko o 7. Przypisanie i:=i+7 na końcu pętli nie działa. W jaki sposób rozwiązać ten problem?
Wygląda to tak:
for i:=1 to sumadni do
begin
szukaj[i]:='sroda';
szukaj[i+1]:='czwartek';
szukaj[i+2]:='piatek';
szukaj[i+3]:='sobota';
szukaj[i+4]:='niedziela';
szukaj[i+5]:='poniedzialek';
szukaj[i+6]:='wtorek';
i:=i+7;
end;
Pętla repeat.
Albo dodatkowa zmienna, którą "ręcznie" będziesz powiększał o 7 ;)
Naprawdę, nie potrzebujesz tego co wydaje ci się że potrzebujesz, patrz:
const DNI:array[0..6]of String=('poniedzialek','wtorek','sroda','czwartek','piatek','sobota','niedziela');
K:=3; // zaczynamy od 3-go dnia (środa) dal i=1
for i:=1 to sumadni do szukaj[i]:=DNI[(i+K+5)mod(7)];
Albo oszukanie kompilatora:
Var I: Integer;
A: PInteger=@I;
Begin
For I := 0 To 50 Do
Begin
Writeln(I);
A^ += 9;
End;
Readln;
End.