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
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}
Zarejestruj się i dołącz do największej społeczności programistów w Polsce.
Otrzymaj wsparcie, dziel się wiedzą i rozwijaj swoje umiejętności z najlepszymi.