Lekce 1.05
Pou₧φvßnφ prom∞nn²ch

p°edchozφ lekce (1.04) obsah kurzu nßsledujφcφ lekce (1.06)
Kdy₧ jsme si ukazovali v minulΘ lekci, jak vypsat p°φkazem Writeln Φφslo do v²stupnφho textovΘho okna, bylo uvedeno, ₧e nenφ mo₧nΘ jednoduch²m zp∙sobem ulo₧it v²sledek v²poΦtu z p°φkazovΘho °ßdku do pam∞ti. Je to proto, ₧e je k tomu nutnΘ pou₧φt nov² p°φkaz SysVarSet. Ten umo₧≥uje deklarovat v pam∞ti mφsto pro ulo₧enφ hodnoty. N∞co jako pam∞¥ na kalkulaΦce. V naÜem p°φpad∞ ale musφte na rozdφl od kalkulaΦky pam∞¥ovΘ mφsto pojmenovat. Proto₧e je mo₧nΘ takto uklßdat hodnoty, kterΘ je mo₧nΘ v dalÜφch v²poΦtech zm∞nit, naz²vajφ se uvedenΘ pam∞ti äprom∞nnΘô. Proto se musφ p°i zadßvßnφ novΘ prom∞nnΘ uvßd∞t mimo jejφho nßzvu i poΦßteΦnφ hodnota. Zkuste si nadefinovat prom∞nnou pro ulo₧enφ ceny a poΦtu kus∙: 

SysVarSet('cena', 123.45);
SysVarSet('pocet', 10);
Pro zjiÜt∞nφ hodnoty definovanΘ systΘmovΘ prom∞nnΘ z p°φkazovΘho okna m∙₧ete nßsledn∞ pou₧φt bu∩ p°φmo jejφ nßzev, nebo je mo₧nΘ pou₧φt p°φkaz SysVarGet. 

Writeln(SysVarGet('cena'));
Writeln(SysVarGet(cena)* SysVarGet(poΦet));
Je ji₧ takΘ mo₧nΘ p°i°adit prom∞nnΘ novou hodnotu: 

cena := 999;
Prom∞nnΘ deklarovanΘ p°φkazem SysVarSet z∙stßvajφ v pam∞ti a₧ do ukonΦenφ systΘmu. Je mo₧nΘ je proto pou₧φvat pro vÜechny nßsledujφcφ v²poΦty. Pro zobrazenφ hodnot systΘmov²ch prom∞nn²ch je mo₧nΘ pou₧φt p°φkazu SysVarShow. Kompletnφ v²maz vÜech systΘmov²ch prom∞nn²ch se provede p°φkazem SysVarClear.

Na pou₧φvßnφ prom∞nn²ch je zalo₧ena i mo₧nost programovßnφ. V n∞kterΘ z dalÜφch lekcφ se seznßmφte s tφm, ₧e prom∞nnΘ mohou b²t urΦitΘho typu pro ulo₧enφ r∙zn²ch hodnot. Prom∞nnΘ bude takΘ mo₧nΘ pou₧φvat pro p°edßvßnφ hodnot mezi programy. SystΘmovΘ prom∞nnΘ budete takΘ moci pou₧φvat pro ulo₧enφ v²sledk∙ v²poΦt∙ i po ukonΦenφ programu. Se vÜemi uveden²mi mo₧nostmi se podrobn∞ji seznßmφte v dalÜφch lekcφch pou₧φvßnφ programu.

p°edchozφ lekce (1.04) obsah kurzu nßsledujφcφ lekce (1.06)
OZOGAN, 1 Mßje 97, 460 01 Liberec
tel.,fax: (048) 52 28 338, e-mail: info@ozogan.cz