Wybrane liczby z tablicy (PASCAL)

2012-02-17T18:11:17+01:00

Rejestracja: dni
Ostatnio: dni

Witam mam pewien problem. Muszę napisać pewien program-już go prawie napisałem ale nie mogę sobie poradzić z jednym problemem.
Chodzi o to że muszę do odpowiedniego elementu tablicy dodać jakąś wartość.

Chodzi mi o coś takiego:

Kopiuj

 
tablica[1]:=tablica[1]+2;
tablica[2]:=tablica[1]+4;
tablica[3]:=tablica[1]+1;
tablica[4]:=tablica[1]+2;
tablica[5]:=tablica[1]+4;
tablica[6]:=tablica[1]+1;
itd

Oczywiście nie mogę tak robić ponieważ tablica zawiera ok 100 elementów.

Jeszcze inny przykład o co mi chodzi:

Kopiuj

 
a b c d e f g h  //elementy w tablicy
2 4 1 2 4 1 2 4  //to co muszę dodać

Wiem że typy zmiennych się nie zgadzają ale to tylko przykład

I tak ma się wykonywać do końca tablicy.

Mam nadzieję że wiecie o co chodzi i mi pomożecie ;)

2012-02-17T18:13:40+01:00

Rejestracja: dni
Ostatnio: dni

Sorry że drugi post pod postem ale wkradł się błąd.

W tym przykładzie ma być tak:

Kopiuj

 
tablica[1]:=tablica[1]+2;
tablica[2]:=tablica[2]+4;
tablica[3]:=tablica[3]+1;
tablica[4]:=tablica[4]+2;
tablica[5]:=tablica[5]+4;
tablica[6]:=tablica[6]+1;
itd

A nie tak jak w poście pierwszym

2012-02-17T18:19:11+01:00

Rejestracja: dni
Ostatnio: dni

temat do przerobienia - pętla for

simplex

2012-02-17T20:31:43+01:00

Rejestracja: dni
Ostatnio: dni
Postów: 184

Kopiuj

for i:= 1 to 100 do
  case (i-1) mod 3 of
    0: Inc(Tablica[i], 2);
    1: Inc(Tablica[i], 4);
    2: Inc(Tablica[i]);
  end;

2012-02-18T08:30:10+01:00

Rejestracja: dni
Ostatnio: dni

To ja to skomplikuję ;)

Kopiuj

 
for i:= Low(Tablica) to High(Tablica) do
// reszta jak wyżej

2012-02-18T08:33:43+01:00

Rejestracja: dni
Ostatnio: dni

mea culpa

Kopiuj

for i:= 1 to High(Tablica) do

flowCRANE

2012-02-18T14:37:17+01:00

Rejestracja: dni
Ostatnio: dni
Lokalizacja: Tuchów
Postów: 12270

Kopiuj

type
  TTab: array [0 .. 99] of Byte;

{...}

procedure AddModResult(var Tab: TTab);
const
  TModResult: array [0 .. 2] of 1 .. 4 = (2, 4, 1);
var
  I: Byte;
begin
  for I := Low(Tab) to High(Tab) do
    Inc(Tab[I], TModResult[I mod 3]);
end;

Krótsze, prostsze i szybsze rozwiązanie;