tablice

Czy:

a[1]:=1;
a[2]:=1;
a[3]:=2;

mozna zapisac jakos krocej?

chodzi mi o cos takiego:

a:=//i tutaj jakies magiczne polecenie
// np. a:=(1,1,2) - to oczywiscie nie dziala

Cześć :)

Można zapisywać w takiej postaci jak przedstawiłeś , ale z wykorzystaniem procedury przykładowo takiej:

Procedure Zapisz(a1,b,c :String);
Begin
 a[1]:=a1;
 a[2]:=b;
 a[3]:=c;
End;

Tak dla ort! :
tablicę dla zmiennej "a" zadeklaruj na zewnątrz procedury
(jako zmienną globalną)

dzieki

Ale to mi duzo nie daje.
Ja chcialem to zrobic bez procedur i funkcji.
Jak nikt nic nie wymysli to zostaje tylko to...

// np. a:=(1,1,2) - to oczywiscie nie dziala

Takie coś jest oczywiście niedozwolone, ale możesz zrobić coś podobnego przy deklaracji tablicy np:

var
  tab:array[1..3] of integer = (7,5,9);

Tablicę możesz też wypełniać w pętli np:

randomize;
for i:=1 to 3 do
  tab[i]:=random(100);

Można to zrobić używając writeable constants które są tak naprawdę zmiennymi statycznymi

{$WRITEABLECONST ON}
const
 a: array[1..3] of integer=(1,2,3);
begin
 a[1]:=15;
end;
{$WRITEABLECONST OFF}