Pętla for w Pascalu. Zwiększanie i o 7.

0

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;  
0

Pętla repeat.

0

Albo dodatkowa zmienna, którą "ręcznie" będziesz powiększał o 7 ;)

0

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)];
0

Albo oszukanie kompilatora:

Var I: Integer;
    A: PInteger=@I;
Begin
 For I := 0 To 50 Do
 Begin
  Writeln(I);
  A^ += 9;
 End;
 Readln;
End.

http://ideone.com/Gh9pxi
:P

1 użytkowników online, w tym zalogowanych: 0, gości: 1