Andrius.

radau žiauru buga jeigu visi sužinotu i nostoli nuvarytu bet aišku jie patis sužinotu ir panaikintu
 
tai va matete turbut senesne tema norejau buga parduot ai kam čia reik aišku niekam neidomu :)
 
tai va mirma paprašiau 100k tesiog kaškaip notaika buvo gera tesiog ir prašiau
nesutiko pasiule man 10k
ir leidausi leidaisi iki 20k
šendien sakau ai px 10k bus gerai tai saka 5k nedaugiau pasiunčiau ten kur ilgai ir t.t. nesulystu ta prasme (ate) :P
 
ka manote apie tukius žmones
plius nei ji nuvarytu i nostoli nei ka isivaikšiotu tie kreditai greit nu kol pradžia dar tik adcenter tai negreit delto ir usiprašiau 100k i greit augs ir augs :)
 
nu pakomentokite apie tokius žmones ar jums pasitaiko
 
sorry už klaidas PC gramatika nekoke :)

Nu va bankai vėl dirba

Padalino Karalius prieš mirtį savo trims sūnums visą turtą.
Zjb pasakė ketvirtas. :)

Kaip užaugsi tada paskaityk ir turėtum suprasti... tokia lengva tematika

Būtų ir likęs 0, bet juk turistas paskui atsiėmė savo pinigus. :) Tai reiškias savininkas suėjo į minusą. :)

Būtų ir likęs 0, bet juk turistas paskui atsiėmė savo pinigus. :) Tai reiškias savininkas suėjo į minusą. :)

Būtų ir likęs 0, bet juk turistas paskui atsiėmė savo pinigus. :) Tai reiškias savininkas suėjo į minusą. :)

Aš pritariu 1arunas. Man irgi atrodo, kad savininkas pralošė. :)

Aš pritariu 1arunas. Man irgi atrodo, kad savininkas pralošė. :)

Padarei klaidą, kad užpylęs bandei įjungti. Galėjo užsitrumpint kur nors. Bet šiaip tai pabandyk atsukt jį visą išdžiovink, tada gal dar su spiritu gali visas mikroschemas pravalyt.

Padarei klaidą, kad užpylęs bandei įjungti. Galėjo užsitrumpint kur nors. Bet šiaip tai pabandyk atsukt jį visą išdžiovink, tada gal dar su spiritu gali visas mikroschemas pravalyt.

zelionke čia labai protingai parašė. :D Bet tau kaip pradedančiajam, siūlyčiau pasižiūrėti šitokią skaitymo procedūrą, gal šiek tiek aiškiau bus.

program lankomumas; type pamokos = array[1..100] of integer; mokinys = record vardas : string[15]; pavarde : string[15]; p : pamokos; s : integer; end; mokiniai = array[1..30] of mokinys; var A : mokiniai; n : integer; {-------------------------------------------} procedure skaitymas; var fd : text; i, j : integer; begin assign(fd, 'lankomumas.dat'); reset(fd); readln(fd, n); for i:=1 to n do begin read(fd, A[i].pavarde, A[i].vardas); for j:=1 to 9 do begin read(fd, A[i].p[j]); A[i].s:=A[i].s + A[i].p[j]; end; readln(fd); end; close(fd); end; {-------------------------------------------} //IŠKIRPTOS KELIOS PROCEDŪROS {-------------------------------------------} procedure rasymas; var i, j : integer; fr : text; begin assign(fr, 'lankomumas.rez'); rewrite(fr); for i:=1 to n do begin if A[i].s <= 15 then writeln(fr, A[i].pavarde, A[i].vardas, A[i].s); end; writeln(fr, 'Per mokslo metus praleistos pamokos: ', viso); writeln(fr, 'Daugiausiai pamokø praleido:'); if kiek_daugiausiai = 1 then writeln(fr, A[i].vardas, A[i].s) else begin for i:=1 to n do if A[daugiausiai].s = A[i].s then writeln(fr, A[i].pavarde, A[i].s); end; close(fr); end; {-------------------------------------------} begin skaitymas; rikiavimas; rasymas; end. //O čia pats lankomumas.dat failas 6 Jonaitis Jonas 1 1 1 3 3 6 1 0 1 Petraitis Petras 3 3 3 3 8 8 4 1 0 Antanaitis Antanas 0 0 0 5 0 0 2 1 0 Saulaitis Saulius 1 1 0 10 0 0 7 7 7 Vidaitis Vidas 0 0 0 0 5 1 1 1 0 Romaitis Romas 1 0 0 0 8 1 2 1 1
Čia šitokią programą kažkada klasėj sprendėm, tai va ir pakopinau jos dalį. Dar ir rašymą į failą palikau (gal pravers). :D

Suprasciau jog mergina, bet dabar vaikinas :) :) :D :D
 
Man minusiukus dekit tie kurie, tai patys darot :DD
Vienas jau yra toks forume :) nesigedinkit liksit anonimais :)

taigi idomumo deliai, kiek teko wirsyti greiti ir buti nusautam? ir kaip baigesi situacija su kiek litu praslydot? :) :)
 
asmeniskai pries dwi sawaites autostrodawo buwo apribojimas iki 70km/h nusowe 176km/h zinoma buwo waziuota greiciau bet pamacius apribojima dar prisitabdziau (mintyse dar spejau pagalwoti begti ar ne, bet sakau geriau nebegsiu ir susitarsiu, wistiek walgyt reikia wisiems), taigi ant wisko galo issisukau su 500lt ir pora skambuciu :)

http://video.rutube.ru/58e163622361083c8a770b11aafa8384

Sveiki,
noriu padaryti savo puslapyje, kad parašius kokį nors straipsnį automatiškai susigeneruotų adresas, kuriuo nuėjus iš karto parodytų tą straipsnį. Url'as turėtų atrodyti maždaug taip: http://www.manopuslapis.lt/straipsnis.php?id=15
Kaip tą url sugeneruot moku. Id bus priskiriamas iš mysql duomenų bazės.
Nesugalvoju kaip padaryti, kad nuėjus tuo adresu atidarytų reikiamą straipsnį. :)
 
Ir dar galvoju kaip padaryti, kad pvz. yra meniu:
Pirmas
Antras
Trečias
Ir pvz.paspaudus 'Antras' url'u persineštu tokia nuoroda: http://www.manopuslapis.lt/index.php?meniu=antras
Ir tada atsidarytų antro meniu subkategorijos:
Sub1
Sub2
Sub3
Ir paspaudus tarkim ant 'Sub3' vėl url'u persineštų tokia nuoroda: http://www.manopuslapis.lt/index.php?meniu...kategorija=sub3
Ir ten jau iš url'o(?) pasiėmus kintamuosius atspausdinti tą ką reikia...
Na gal supratote mane. ;) Jei galite, labai prašau padėkite, bent jau užveskite ant kelio. :)

Na idėja tikrai puiki. Šiaip, kaip jau minėjo, trūksta pavyzdžių. Aš jums siūlyčiau paimti kokio nors įžymaus žmogaus (aktoriaus ar pan.) nuotrauką ir ją nupiešti ir įdėti į savo tinklalapį. Juk vistiek aktorių nuotraukos yra visur laisvai publikuojamos, tai nemanau, jog kas supyks. ;)

Na idėja tikrai puiki. Šiaip, kaip jau minėjo, trūksta pavyzdžių. Aš jums siūlyčiau paimti kokio nors įžymaus žmogaus (aktoriaus ar pan.) nuotrauką ir ją nupiešti ir įdėti į savo tinklalapį. Juk vistiek aktorių nuotraukos yra visur laisvai publikuojamos, tai nemanau, jog kas supyks. ;)

:) Jau geriau būtų sexy užpakaliukų konkursas... Nebalsuosiu...
 
P.S. Temos autoriau, prašau sukurk dar 5 tokias pat temas. ;)

:) Jau geriau būtų sexy užpakaliukų konkursas... Nebalsuosiu...
 
P.S. Temos autoriau, prašau sukurk dar 5 tokias pat temas. ;)

:) Jau geriau būtų sexy užpakaliukų konkursas... Nebalsuosiu...
 
P.S. Temos autoriau, prašau sukurk dar 5 tokias pat temas. ;)

Na aš tau gal tiesiog siūlyčiau susirast senesnių metų visus vbe ir bandyk visus išsispręst, o jei nesigaus kas tai klausk forume arba panaršyk nete ir tikrai rasi sprendimus. ;)

program issipertimas; var a, b, c, maciausias : integer; begin ReadLn(a, b, c); if (a < b) and (a < c) then maciausias := a else if (b < a) and (b < c) then maciausias := b else maciausias := c; writeln('MAČIAUSIAS skaičius yra: ', maciausias); end.
 
P.S. Kaip paklausei, taip ir atsakiau. ;) (turiu galvoj prašymą IŠSIPERTI (?) uždavinį ir rasti MAČIAUSIĄ skaičių ;)).

program issipertimas; var a, b, c, maciausias : integer; begin ReadLn(a, b, c); if (a < b) and (a < c) then maciausias := a else if (b < a) and (b < c) then maciausias := b else maciausias := c; writeln('MAČIAUSIAS skaičius yra: ', maciausias); end.
 
P.S. Kaip paklausei, taip ir atsakiau. ;) (turiu galvoj prašymą IŠSIPERTI (?) uždavinį ir rasti MAČIAUSIĄ skaičių ;)).