Heroix

http://nec.lt/naujienos/190/

http://www.millionreasonswhylithuaniaisthebestcountryintheworld.com/im/lt_l_2010060502000914552.jpg
 
Nežinau ar buvo bet nesusivaldžiau neidėjas ;))

failai.lt
talpykla.com
4shared.com
rapidshare.com
gigasize.com
dropbox.com
filefactory.com
ziddu.com

failai.lt
talpykla.com
4shared.com
rapidshare.com
gigasize.com
dropbox.com
filefactory.com
ziddu.com

failai.lt
talpykla.com
4shared.com
rapidshare.com
gigasize.com
dropbox.com
filefactory.com
ziddu.com

a ir b išvis yra procedūros argumentai, nemanau ar juos kas skirsto į globalius ir lokalius.
O šiaip kintamieji į šiuos tipus skirstomi pagal jų galiojimo sritį. Jei kintamasis galioja tik pagrindinėje programoje ar (tik) kitoje programos dalyje (procedūroje ar funkcijoje), jis vadinamas lokaliuoju. O jei kintamasis galioja visoje programoje (ir funkcijose bei procedūrose), jis vadinamas globaliu.
Ar globalus, ar lokalus kintamasis priklauso nuo to kurioje vietoje jis aprašomas:
 

program var g; function var l; begin end; var l; begin end;
kur l, tan lokalūs, kur g - globalūs.

"two in the pink, one in the stink" :)

Pagilinti žinias: http://en.wikipedia.org/wiki/Shocker_%28hand_gesture%29

Du pirštai į ..., pirštas į ... :)

Sveiki ka reiskia vaiko rodomas zenklas , kad mergina taip nustemba?
http://www.demotyvacija.lt/media/demotivators/demotyvacija.lt_Vaikai-Ir-jie-mus-kartais-nustebina-savo-ziniomis.jpg
 
Buciau dekingas jei paaiskintu kas nors paaiskintu

Olimpiadoi trumpos, mažai paaiškintos užduotys, tačiau labai klaidingos ir verčiančios pamastyti. VBE jos ilgai aprašomos, kad nekitlų jokių klausimų ką daryti - belieka parodyti savo žinias. Galvot laiko, gaila, nepaliekama, bet ten ir nėra ką daug galvot - tereik rašyt.

Olimpiadoi trumpos, mažai paaiškintos užduotys, tačiau labai klaidingos ir verčiančios pamastyti. VBE jos ilgai aprašomos, kad nekitlų jokių klausimų ką daryti - belieka parodyti savo žinias. Galvot laiko, gaila, nepaliekama, bet ten ir nėra ką daug galvot - tereik rašyt.

Olimpiadoi trumpos, mažai paaiškintos užduotys, tačiau labai klaidingos ir verčiančios pamastyti. VBE jos ilgai aprašomos, kad nekitlų jokių klausimų ką daryti - belieka parodyti savo žinias. Galvot laiko, gaila, nepaliekama, bet ten ir nėra ką daug galvot - tereik rašyt.

Olimpiadoi trumpos, mažai paaiškintos užduotys, tačiau labai klaidingos ir verčiančios pamastyti. VBE jos ilgai aprašomos, kad nekitlų jokių klausimų ką daryti - belieka parodyti savo žinias. Galvot laiko, gaila, nepaliekama, bet ten ir nėra ką daug galvot - tereik rašyt.

Jei duomenys skaitomi/rašomi į failą, tuomet ne.
Jei išmeta tokį juodą langą ir jame rodo rezultatą arba prašo ką nors įvesti, tuomet taip.
 
Read/ReadLn/Write/WriteLn yra funkcijos.

http://www.millionreasonswhylithuaniaisthe...ld.com/lt/4439/

http://www.smashingmagazine.com/2010/06/03...n-in-lithuania/
 
 
Labai maloniai nustebino. :)))

Turbūt geriausias sprendimas būtų uždėti paragrafui margin nuostatas. p { margin-botttom: 15px; } reikiamoje vietoje padės.

2010
 

program test3; const dFile = 'data.txt'; rFile = 'result.txt'; dSize = 100; var kg1Sk, kg2Sk, {sk. pakuociu po 1 ir 2 kg} pkg1Sk, pkg2Sk, {parduotas sk. pakuociu po 1 ir 2 kg} pSk, {pirkeju sk.} pp, {paskutinis pirkejas} pkpa, {sk. pirkeju, kuriems pavyko apsipirkti} i : integer; pageidavimai : array[1..dSize] of integer; procedure readFile; var Df : text; begin Assign(Df, dFile); Reset(Df); ReadLn(Df, kg1Sk, kg2Sk); ReadLn(Df, pSk); for i := 1 to pSk do ReadLn(Df, pageidavimai[i]); Close(Df); end; procedure skaiciuokle; var noriPirkti : integer; {kiek klientas nori dar nusipirkti} begin pkpa := 0; for i := 1 to pSk do begin noriPirkti := pageidavimai[i]; while (kg2Sk <> 0) and (noriPirkti >= 2) do begin pkg2Sk := pkg2Sk + 1; kg2Sk := kg2Sk - 1; noriPirkti := noriPirkti - 2; end; while (kg1Sk <> 0) and (noriPirkti >= 1) do begin pkg1Sk := pkg1Sk + 1; kg1Sk := kg1Sk - 1; noriPirkti := noriPirkti - 1; end; if noriPirkti <> pageidavimai[i] then begin pp := pageidavimai[i] - noriPirkti; pkpa := pkpa + 1; end; end; end; begin readFile; skaiciuokle; WriteLn(pkg1Sk, ' ', pkg2Sk); WriteLn(pkpa); WriteLn(pp); Readln; end.

Visada

:)

Informatika http://www.vu.lt/site_files/SD/Programos/Informatika.pdf
 
Programų sistemos http://www.vu.lt/site_files/SD/Programos/P...mu_sistemos.pdf

sleep(2); //i skliaustus irasai kiek sekundziu nori palaukt, kad redirectintu header("location:http://tavo-svetaines-url.lt");

Matau, kad bendruomenėje nemoki būti, todėl neverta su tavimi pradėti rašinėtis, o nors jau 20 metų tau...
 
Aš nesakiau, kad pats neesu "piratas".
 
Todėl tavo paskutinė eilutė man visai netinka, angle.

Mokslo pasiekimai
1. Mokslo laimėjimai ir mūsų kasdienybė. Ką apie tai žinote ir manote?
2. Technologijų pasiekimų taikymas mokykloje. -"-
3. Mokslo laimėjimai ir moraliniai praradimai. -"-
4. Informacinių technologijų laimėjimai ir menas. -"-
5. Aukštesnė žmogaus pakoba - robotas. Ką apie tai manote
tikros
 
Aplinka
1.virtuolios aplinkos poveikis jaunam zmogui kapie tai zinote ir manote
2.namu puosmena jos lankantys draugai ka apie tai manote
3. jaunas zmogus tevineja ir svetur
4.mes perdaug stebime gamta ir per mazai gyvename su ja
5.seimos atmosfera ir jaunas zmogus
 
Knyga ir mes
1.knyga ir mes knygos padeda pazinti pasauli ir save.
2. skaityt. 2008m. akcija "skaitymo metai" siulo keisti skaitymo nera ka manote?
3. knygu skaitytoju budu yra yvairiu .nuomone
4. koks turetu buti moderniosios bibl. vaidmuo
5. seimos vaidmuo formuojant vaiko sant. su knyga.
 
Kultura ir jaunimas
1.Žmogus tuomet negali būti naudingas savo tėvynei, jei yra išaugę iš savo tautis kultūros. Pagrįsti arba paneigti.
2. Vykdomas projektas Vilnius 2009 europos kultūros sostinė. Kokia programą pasiūlytumėt jaunimui?
3. Vietos, kurioje gyvenate žymiausi kultūros objektai. Kokią tautos istorijos patirtį jie pasakoja jaunimui? Pagrįsti.
4. Kokias kultūros tradicijas puoselėjate šeimoje?
5.Jaunimo požiūris įvairias į įvairias lietuvių kultūros formas. Ką manote ir žinote apie tai?
Negarantuoju, per IRC zmones raso, kad tikros.