MiniPixeL

Visiškai paprasti uždavinukai, jei "neikerti" sakyčiau daugiau mokytis reikia. :) Bandžiau padaryt kuo paprasčiau ir su visais paaiškinimais. Jei kas neaišku, klausk.
1.
program seka; var a,sk:integer; begin a:=1; sk:=0; while a<>0 do //kol skaičius nelygus nuliui vykdome begin ReadLn(a); if (a>9) and (a<100) then //jei įvestas skaičius dviženklis sk:=sk+1; //kaupiame dviženklių skaičių kiekį end; WriteLn('Dviženklių skaičių:',sk); Readln; end.
2.
program sandauga; var n,i,s:integer; begin ReadLn(n); s:=1; while n>9 do //kol skaičius netampa vienženklis vykdome begin i:=n mod 10; //atskiriame paskutinį skaitmenį naudojimui if i<>0 then //jei jis nelygus nuliui s:=i*s; //kaupiam sandaugą n:=(n-i) div 10; //atskiriame paskutinį skaitmenį nuo skaičiaus end; s:=n*s; //priskaičiuojam paskutinį skaitmenį prie sandaugos WriteLn(s); Readln;
3.
program atv; var n,s,i:integer; begin s:=0; ReadLn(n); while n>9 do //kol skaičius netampa vienženklis vykdome begin i:=n mod 10; //atskiriame paskutinį skaitmenį naudojimui n:=(n-i) div 10; //atskiriam paskutinį skaitmenį nuo skaičiaus s:=(i+s)*10; //kuriam atvirkštinį skaičių end; s:=s+n; //užbaigiam atvirkštinį skaičių WriteLn('Atvirkščias skaičius:',s); Readln; end.

Amm, jūs man chebryte sudėjot minusus pirmam poste, gal nesupratot minties.
Sakydamas, kad žostkumui nėra ribų aš turėjau omeny ne kompaniją (nors ji tėra klonas, iš kurio kažin kas bus), bet temos autorių.
 
Leiskite pacituosiu:
"Man jis pasirodė tikrai rimtas (išmokantis) ir gan gerai mokantis už atsiuntimus."
 
Taigi, temos autorius užėjo į kompanijos tinklapį, ir jam pasirodė, kad ji yra RIMTA, patikslinsiu, TIKRAI RIMTA (IŠMOKANTI) na ždž ir taip toliau.. Anekdotų kampelis, interpretuok kaip nori.

Taip sakant ant greitųjų parašiau, tad gali būt klaidų. :lol:

program masyvai; type mas = array[1..100000] of integer; var X,Z:mas; k,i,n,t,xi,A,B,C,D,E,F:integer; zi:real; begin xi:=1; for i:=1 to n do begin if (X[i]>=A) and (X[i]<=B) then xi:=X[i]*xi; end; zi:=0; k:=0; for i:=1 to t do begin if (Z[i]<=C) and (Z[i]>=D) and (Z[i]<=E) and (Z[i]>=F) then begin zi:=Z[i]+zi; k:=k+1; end; end; zi:=zi/k; if xi<zi then begin X[1]:=xi; Z[1]:=xi; end; end.

Taip sakant ant greitųjų parašiau, tad gali būt klaidų. :lol:

program masyvai; type mas = array[1..100000] of integer; var X,Z:mas; k,i,n,t,xi,A,B,C,D,E,F:integer; zi:real; begin xi:=1; for i:=1 to n do begin if (X[i]>=A) and (X[i]<=B) then xi:=X[i]*xi; end; zi:=0; k:=0; for i:=1 to t do begin if (Z[i]<=C) and (Z[i]>=D) and (Z[i]<=E) and (Z[i]>=F) then begin zi:=Z[i]+zi; k:=k+1; end; end; zi:=zi/k; if xi<zi then begin X[1]:=xi; Z[1]:=xi; end; end.

Taip sakant ant greitųjų parašiau, tad gali būt klaidų. :lol:

program masyvai; type mas = array[1..100000] of integer; var X,Z:mas; k,i,n,t,xi,A,B,C,D,E,F:integer; zi:real; begin xi:=1; for i:=1 to n do begin if (X[i]>=A) and (X[i]<=B) then xi:=X[i]*xi; end; zi:=0; k:=0; for i:=1 to t do begin if (Z[i]<=C) and (Z[i]>=D) and (Z[i]<=E) and (Z[i]>=F) then begin zi:=Z[i]+zi; k:=k+1; end; end; zi:=zi/k; if xi<zi then begin X[1]:=xi; Z[1]:=xi; end; end.

Taip sakant ant greitųjų parašiau, tad gali būt klaidų. :lol:

program masyvai; type mas = array[1..100000] of integer; var X,Z:mas; k,i,n,t,xi,A,B,C,D,E,F:integer; zi:real; begin xi:=1; for i:=1 to n do begin if (X[i]>=A) and (X[i]<=B) then xi:=X[i]*xi; end; zi:=0; k:=0; for i:=1 to t do begin if (Z[i]<=C) and (Z[i]>=D) and (Z[i]<=E) and (Z[i]>=F) then begin zi:=Z[i]+zi; k:=k+1; end; end; zi:=zi/k; if xi<zi then begin X[1]:=xi; Z[1]:=xi; end; end.

Tai aš dabar kaltas likau, kad tu klaidas darai. Okay, whatever.
Užstumia ant manęs, o po to kaip niekur nieko.
 
Bet tikrai reiktų garso kontrolavimo galimybės.
Kolonėlių nėra ant laptopo. O sukinėt nepatogu, nes po to kita muzika groja per tyliai. Čia jūs turit sukurt patogų tinklapį, o ne mes taikytis prie jūsų :D
 
Baikit minusus dėti. Gi negražu. Arba bent jau prisipažinkit, kuris čia toks :D

Galvoji kad niekas nesupranta, kad referalą idėjęs? :D Šiaip tai čia kaip loterija, kažkokia tikimybė kad laimėsi visada yra. :D

Galvoji kad niekas nesupranta, kad referalą idėjęs? :D Šiaip tai čia kaip loterija, kažkokia tikimybė kad laimėsi visada yra. :D

.

Pyzdec, metu ivykis!!!

Labiau nervina tokios nesamoningos temos.

Išsiaiškinau pats. Iš pliuso supratau, kad kažkam taip pat to reikėjo, tai prašau.
 

program laikas; uses sysutils; begin Writeln (DateTimeToStr(Now)); end.

Tu geriau lietuvių kalbos mokytojos ir visos Lietuvos atsiprašyk, kad rašyt neišmokai.
Akis bado Tavo neraštingumas :)

rasyt moki taisiklingai?

Dėkoju už suteiktą privilegiją.
Su ja stengsiuosi išnaudoti visas galimybes, kad būtų patenkinti forumo nariai, sumažėtų scamerių skaičius, bei kelti forumo statusą :)

Ačiū už suteiktą galimybę prižiūrėti šį forumą, šis forumas man tikrai daug reiškia. Stengsiuosi savo pareigas atlikti, kaip galima geriau, taip pat iškilus klausimams, prašom kreiptis, bandysiu pagelbėti.
 
Beje, kenkėjai, kadangi prižiūrėtojų dabar tiek daug, tai tikrai neliksit nepastebėti.

Kaip ziuriu as cia protingiausias 128 iq :)

o blemba, tik 180, mazokai ..
http://www.ipix.lt/images/46939075.gif

Štai pagaliau pasibaigė metų forumietis 2009 rinkimai
Rinkimai buvo labai nenuspėjami ir netikėti, bet galiausiai 33 taškų persvara laimėjo dealeris
Sveikinimai :D
 
Štai trumpas interviu, kad geriau susipažintumėt su laimėtoju:
 
Trumpai prisistatyk šio forumo lankytojams.
Esu Linas iš Kauno, man 21m. IT biznyje praleidau gal 6 metus.
 
Kaip įvertintum šių metų rinkimus ir varžovus, kaip jauties tapęs metų forumiečiu?
Nežinau kaip vertinti rinkimus, varžovai manau kaip ir kiekvienais metais buvo gana stiprūs, džiaugiuosiu tapęs metų forumiečiu :D didelė garbė ir pasiekimas.
 
Kada pradėjai domėtis internetiniu verslu?
Gal 14 metų, pradėjau mokintis programuoti, freelancinti wap svetaines, web svetaines, poto pamenu supratau, kad labiau apsimoka daryti sau, negu kitiems, paleidau heads tailsus egoldinius ir pamačiau perspektyvą daryti pinigus internetu.
 
Gal prisimeni kaip atradai šį forumą?
Lankiau jaunųjų kompiuterininkų mokyklą, kur "mokinausi" programuoti ir turėjau grupioką Omą, kadangi mes ten beveik nieko nesimokėm tai jis užrodė man šitą forumą, taip ir pradėjau čia lankytis.
 
Kokia tavo nuomonė apie uždarbį iš lošimų? Ar pats domiesi tuo?
Bloga nuomonė, perėjau labai nemažai internetinio uždarbiavimo sričių, lošimų sritį gal ir kokius 10 kartų jeigu nedaugiau, tai neperspektyvu žiūrint į ilgalaikę perspektyvą ir nėra rimtas verslas, nebent pats organizuoji.
 
Kokius uždarbio internete būdus esi išbandęs, ties kuriais iš jų pasilikai?
Išbandžiau freelancinimą, hyipus, contento rašymą, backlinkų pardavinėjimą. dizaineriavimą, seo, elektroninių valiutų keitimus, affiliate'inimą paslaugų įvairiausiose srityse, reklamos pardavinėjimą, domainingą, forexą, akcijų biržas, hostingo paslaugas ir dar daug visokiausių kitų būdų kurių taip lengvai neatsiminsiu.
Pasilikau prie backlinkų pardavinėjimo, seo, elektroninių valiutų keitimo. affiliate'inimo, reklamos pardavinėjimo, darbo organizavimo, mokausi su forexu ir turiu kelis projektus kuriuos populiarinu po truputį, visos perspektyviausios sritys užsienyje. (papildyta)
 
Ar savo ateiti sieji su IT verslu?
Žinoma, nematau prasmės dirbti tiems, kurie man už tai nėra dėkingi.
 
Ką galėtum patarti pradedančiajam domėtis uždarbiu internete?
Patarčiau išjungti naivumą ir neieškoti, kad kas pasakytų kaip užsidirbti, o galvoti patiems, nes dažniausiai kas skamba per gerai, kad būtų tiesa taip ir būna, o tokiems dalykams gali sugaišti ir visą gyvenimą.
 
Ar esi kada nukentėjes nuo internetiniu sukčiu, kaip to išvengti?
Esu, bet palyginus kiek visko teko daryti tai mano nuojauta mane stipriai gelbėjo, užsirovimas ant sukčių ~0,5% ir iš tų 0,5% 75% atvejų išsiaiškinta ir nepatirta nuostolio, neskaitant laiko. Aš nematau problemos nukentėjime nuo sukčių, jeigu elgiesi protingai, nukenti nestipriai ir galima sakyt nusiperki patirties. Kaip sakoma kas nedirba tas neklysta.
 
Tavo palinkėjimas forumiečiams.
Linkiu viską kas susiję su darbu ir materialiu gyvenimu skaičiuoti ne tik pinigais, o įgūdžiais, patirtimi, įspūdžiais ir žiniomis.

Labas

Norėčiau pamatyti dizainerį su 10' laptopu.
 
Rimti dizaineriai naudoja TIK MAC dėl spalvų paletės, atvaizdavimo (ekrano kokybės) ir kitų niuansų. Kaip tu 10' ekrane įžiūrėsi įvairius pikselių lygumus ir kitus niuansus, nesąmonė. :)
 
Rimtose dizainerių kontorose išvis dizaineriai jungia laptopus prie dviejų MAC ekranų, kad kuo geriau ir tiksliau viską nupiešti, bei būtų paprasčiau dirbti. To nesupranti tol kol su tuom nepadirbi, o kartą padirbus prie paprastų niekada negrįžtama. ;)

Suprantama, lyg ir VIP skiltis kurioje renkasi geriausi dizaineriai, bet jūs pabandykit apibrėžti kas yra geras dizaineris? Tas kuris puikiai moka elgtis su soft'u? Nemanau. Labiau tas, kuris turi originalią idėją. Dabar įsivaizduokit, paskelbiamas konkursas, visi VIP dizaineriai sukelia savo originalius profesionalius darbus, viskas puiku švaru gražu, jokių "pirmų prisvilusių blynų", jokio flood'o ir nereikia darbų ieškot tik nuo 3 puslapio. Tačiau, kas gali garantuoti, kad kažkokiam naujai iškeptam ar ką tik užsiregistravusiam uždarbyje dizaineriukščiui nekils itin originali ir puiki idėja, kuri užkart nurungtų visus "profesionalus", nes tai paprasčiausiai labai patiktų užsakovui? O jei netyčia kiltų, jis negalėtų jos realizuoti, nes negalėtų patekti į Premium skiltį ir liktų nieko nepešęs. Kaip supratote, nepritariu siūlymui.

Suprantama, lyg ir VIP skiltis kurioje renkasi geriausi dizaineriai, bet jūs pabandykit apibrėžti kas yra geras dizaineris? Tas kuris puikiai moka elgtis su soft'u? Nemanau. Labiau tas, kuris turi originalią idėją. Dabar įsivaizduokit, paskelbiamas konkursas, visi VIP dizaineriai sukelia savo originalius profesionalius darbus, viskas puiku švaru gražu, jokių "pirmų prisvilusių blynų", jokio flood'o ir nereikia darbų ieškot tik nuo 3 puslapio. Tačiau, kas gali garantuoti, kad kažkokiam naujai iškeptam ar ką tik užsiregistravusiam uždarbyje dizaineriukščiui nekils itin originali ir puiki idėja, kuri užkart nurungtų visus "profesionalus", nes tai paprasčiausiai labai patiktų užsakovui? O jei netyčia kiltų, jis negalėtų jos realizuoti, nes negalėtų patekti į Premium skiltį ir liktų nieko nepešęs. Kaip supratote, nepritariu siūlymui.

Sveiki visi, (atsižvelgiant į padėti, gal ir nelabai tinkamas pasisveikinimas :) ). Taigi mano vardas Dainius, esu 17-metis abiturientas. Dėl ateities planų nesu tikras. Šiaip domiuosi matematika, fizika, netingiu ir papaišyt ar pasijaust poetu. Atėjau čia netyčia nukreiptas vieno draugo, sudomino, pasilikau. Žinoma noriu pabandyti užsidirbti internetu ( čia esu visiškai žalias), reikia pinigų ( kam jų nereikia?). Po truputį domiuosi dizainų,logotipų kūrimu, kažkiek gaudaus PhotoShop'e ir CorelDraw'e. Tikiuosi čia rasti bendraminčių ir sulaukti pagalbos, o ir pats, žinoma, kuo tik galėsiu tuo padėsiu. Žinoma esu tik naujokas ir daug ko nežinau tad per daug nesmerkit jei kur suklysiu, tobulėti tikrai turiu kur. Sėkmės visiems. :lol: