Pagrindinė bėda mokyklos informatikoj kosminiai terminai, ir gasdinančios užduotys... kuris jeigu nesupranta ima depresuoti, isterikuoti... nusiramink, internete pilna informacijos. Žinau tą jausmą, bet svarbiausia, ne tai ar sekasi ar ne bet kad patiktų. :) Vistiek turi vadovėlį kažkokį po ranka, bandyk pavartyti, ir pagooglinti daugiau informacijos. Nes internete visomis pasaulio kalbomis turbut rasi to paties... :)
dar tik prasidejo mokslo metai ir visiskai neskirti laiko mokymuisi, o tiesiai sviesiai prasyti uz tave padaryti? tai kam isvis tada mokintis ir koks specialistas ruosiesi buti? :D
Kokią problemą sprendžia tavo produktas? Ar ištestavai? Ar turi vartotojų, pasiruošusių mokėti pinigus? Koks rinkos potencialas? Ir apskritai apie ką čia eina kalba? Kokios investicijos reikia? Kam naudosi tuos pinigus? Kokią grąžą projektuoji?
Kol neatsakysi į šiuos klausimus aiškiai, tol niekas iš rimtų investuotojų nešvaistys laiko susitikinėjimams su tavim.
"Genialios idėjos, apie kurią niekam nepasakosiu, nebent privačiai" savininkai yra laiko gaišintojai. Nebūk toks, savo paties labui :)
Sveikas, dekui uz protingą komentarą. Visus rinkoje esančius simuliatorius išanalyzavome ir nei vienas neturi visų aspektų kuriuos galime pasiulyti mes ;) Todėl manome jog konkurentai prieš mus neatsilaikys :)
Pasigendu dedikuotos zonos diskusijoms apie krypto valiutas. Manau krypto valiutos yra ganetinai plati tema ir turetu nusipelnyti savo sekcijos uzdarbis.lt forume. Nesu tikras kur labiau tiktu iterpti "Krypto Valiutos" sekcija. Is vienos puses manau, kad galetu buti "Technologijos" poteme arba prie Investuotoju Forumo kaip poteme.
Kas jums žmonės darosi??? Ką jūs veikiat gyvenime, jei net tokių elementarių dalyk negalit susirasti?? Kokį fondą nusižiūrėjai? Ir kaip jį nusižiūrėjai? Pagal pavadinimo grožį? Pagal pažystamas raides pavadinime?
Kaip planuoji rinktis investicijas jei net nežinai ką sakyti nuėjus į banką, arba kur rasti reikiamų dokumentų sąrašą?
O jei esi visai žalias, gal geriau tuos eurus panaudok švietimui, seminarams. Užsiprenumeruok "Investuok" gausi porą seminarų nemokamų ir žurnalą visiems metams.
Ir kai jau nekils klausimas "Ką sakyti?" tada galėsi drąsiai eiti į banką.
Perskaičiau jau gan nemažai knygų Asmeninio tobulėjimo tematika ir iš esmės visos jos persipina viena su kita, žinoma, nepasitaikė nei viena knyga, kurioje nerasčiau praktiško patarimo ar negalėčiau pasinaudoti knygoje pateikta medžiaga, tačiau dauguma knygų tai „mix'as“ su papildomais autoriaus pastebėjimais/pamąstymais/jo filosofija ir praktiniais pavyzdžiais. Keletas knygų kurias perskaičiau ne kartą ir kartais tenka grįžti:
1. 7 efektyviai veikiančių žmonių įpročiai. Galingos asmenybės pokyčių pamokos, Stephen R. Covey; 2. Pažadinkite savyje milžiną, Anthony Robbins; 3. Kaip įsigyti draugų ir daryti įtaką žmonėms, Dale Carnegie; 4. Įtakos galia. Kaip pasiekti savo tikslus, Robert B. Cialdini; 5. The One Thing, Gary Keller;
Taip pat rekomenduoju:
6. Mąstymas, greitas ir lėtas, Daniel Kahneman; 7. Virsmo taškas. Kaip maži dalykai daro didelę įtaką, Malcolm Gladwell. (p.s. labai patogus kišeninis formatas). 8. Mirksnis. Gebėjimas mąstyti nemąstant, Malcolm Gladwell. (p.s. labai patogus kišeninis formatas).
Žinoma kaip be:
9. Mąstyk ir būk turtingas. Kaip pasiekti finansinį saugumą, valdžią ir įtaką, darnius santykius, Napoleon Hill. 10. Turtingas tėtis, vargšas tėtis, Robert T. Kiyosaki.
Pradžiai užteks šio dešimtuko. Produktyvaus skaitymo :) p.s. knygą skaitydami antrą kartą ir daugiau - pastebite tai į ką anksčiau nekreipėte dėmesio.
Dirbu dėl ramios galvos. Stengiuosi susikurti kuo pasyvesnes pajamas, ir turėti kuo daugiau pinigų, kad kai renkantis prekes, nereikėtų galvoti apie kainą, galėčiau viską sau leisti, bet kur keliauti ir iš bet kur dirbti, o pinigai būtų uždirbami kuo lengviau ir kaip minėjau pasyviau. Man 27 metai ir dar Lietuvoje nesu dirbęs oficialaus darbo, mane net nupurto mintis, kad rektų kiekvieną dieną keltis, važiuoti į kažkokį darbą ir klausyti kitų nurodymų. Laisvė man yra viskas.
Bleee tai cia nesamoniu klausineji o sveicarai jau sveicarai, australai, kanadieciai geri? ten ir yra zudinku,prievartautoju manijaku, bet kuriam uzsienieciui parodyk farus tai sakys ,kad lietuviai irgi degradai, prasigerusiu, kriminalu salis, visur visokiu yra tai jau ne nuo tautybes o nuo zmogaus priklauso geras/blogas jis taip ,kad jeigu gera proga bandyk , pats dirbau ukuose tai lenkai labiau padejo negu lietuviai taip ,kad...
Forex'e negalima uzdirbti, forex'as - kazino.... Ai.... Gal tu nebesvaik... :) Sorry, bet rimtai... :) Forex'as - ganetinai sudetingas darbas, jei skiri daug laiko, pastangu ir kitu resursu - labai dideles grazos galima tiketis. Bet tu pabandei viena, du, tris kartus - sudegei, nepadarei isvadu jau po pirmo karto, todel tu esi ne traderis, tu esi losejas. Lygiai toks pat, kaip sedi kiekviena nakti kazino... :)
Pavyzdys. Asmuo 2017 m. pardavė bitkoinų už 2000 Eur ir Dash kriptovaliutos už 1000 Eur. Bitkoinai buvo įsigyti už 500 Eur, o Dash – už 600 Eur. Taigi gyventojo pajamos iš šių kriptovaliutų pardavimo sudarė 3000 Eur (2000+1000). Įsigijimo kaina sudarė 1100 Eur (500+600). Šių kriptovaliutų pardavimo ir įsigijimo kainos skirtumas sudaro 1900 Eur (3000-1100). Kadangi ši suma neviršija 2500 Eur, todėl pajamų mokesčio mokėti nereikia.
Jei gavote daugiau nei 2500 Eur. Tokiu atveju, jei per metus gaunamas pardavimo pelnas (t. y. skirtumas tarp pardavimo ir įsigijimo kainos) viršija 2500 Eur, viršijanti dalis apmokestinama taikant 15 proc. pajamų mokesčio tarifą.
program a;
var n, m,
k, s:integer;
begin
writeln('Ivesti m ir n: ');
readln(m, n);
k := n - m + 1; //skaiciu kiekis intervale [m, n]
s := (m+n)*k div 2; //skaiciu suma intervale [m, n]
writeln(' Kiekis: ', k,
' Suma: ', s,
' Vidurkis: ', (s/k):2:2);
readln();
end.
Per savo ilgą amželį mačiau visko - kaip susikūrė uždarbis.lt, kaip tobulėjo elektronika, kaip gimė sesutė, kaip Gedimino prospektu žygiavo gėjai. Net kaip šuniukas tvarkė katytę - ir tą mačiau... Bet nemačiau, tiksliau sunkiai įžlibinau vieną dalyką - mąstantį jaunimą: =Jaunimą, kuris žinotų, kad egzistuoja temų paieškos funkcija uždarbyje. =Jaunimą, kuris prieš kurdamas tas pačias temas paskaitytų jau sukurtas. =Jaunimą, kuris būtų labiau apsisprendęs. =Jaunimą... =Jaunimą... =Jaunimą...
Kalbu aš apie uždarbio jaunimą, kuris kiekvieną dieną išstenėja po temą "kur stoti būsimam programuotojui?" arba "nafik man tas diplomas, bet gal rimtai studijuoti?". Nusiraminkit, jaunimas, aš jums padėsiu. Net šrifto pakeisti nepatingėjau dėl jūsų, reiškia tikrai padėsiu.
Studijų privalumai: 1. Studijuodamas būsite studentas ir turėsite valstybės nustatytą statusą, kuris jums bus naudingas tuo, kad kol studijuosite, tol būsite atleistas nuo įvairių prievolių, pavyzdžiui, karinės tarnybos, kuri šių dienų aktualija. 2. Valstybė yra nustačiusi tam tikras sąlygas tik jums. Kol esate studentas, jums nereikia mokėti privalomojo socialinio draudimo mokesčio (PSD). Jeigu norėtumėte kurti savo verslą būdami studentai (tai tikrai sveikintina), PSD mokesčiais rūpintis nereikėtų - tai valstybės iniciatyva. Taip pat lankantis poliklinikoje ar kitose valstybinėse gydymo įstaigose neprivalėsite susimokėti. 3. Valstybė jums, mielieji, suteikia daug nuolaidų, pavyzdžiui, transporto. Būdami studentais galėsite už mažą fiksuotą mokestį miesto transportu važinėti pas savo grupiokų merginas ir jas palinksminti (guci guci). Apskritai, valstybė investuoja į jus (finansuoja studijas). 4. Prie jūsų išlaikymo, mielieji, prisideda ne tik valstybė, bet ir šimtai bendrovių, kurios suteikia nuolaidų tik jums. Viena iš tokių bendrovių ir Tele2, studentams paruošusi net specialų mob. ryšio planą. 5. Studijuodami turėsite 4 metus arba 48 mėnesius, arba apie 200 savaičių, per kurias galėsite papildomai tobulėti. Ar įsivaizduojate, kiek per šį laikotarpį galima perskaityti knygų? Būtent - perskaityti knygų, o ne išdulkinti panų. Jeigu studijų laikotarpį skaičiuosite išdulkintų panų ar išgertų alaus butelių skaičiumi, iš jūsų bus specialistai tokie, kaip iš Upelio turinio valdymo sistemos - rimtas Wordpress konkurentas. 6. Kadangi būsite studentai, jūs vis dar skaitysitės kaip mokinai, išlaikomi ne tik valstybės, bet ir tėvų (bent jau galinčių tai leisti ir suprantančių, kad mokslas svarbiau už darbą spaudos kioske). Jeigu tėvai nepasiturintys ir pinigų reikia taip pat kaip ir žinių, galima teikti specialybines paslaugas (bent jau kažką minimaliai), bet jokiu būdu ne dirbti darbą kokiu padavėju - juk jūs ne koks medikas, negalintis teikti paslaugų be diplomo. Iškart patariu nesusigundyti lengvu uždarbiu kokiam gėlių turguje, nes taip tik darysite sau meškos paslaugą. Jeigu tikrai reikia pinigų, stenkitės naudoti savo specialybės žinias ir tik tuomet, jeigu jų visiškai neturite, dirbkite kažkokį kitą darbą. 7. Studijos pagerins jūsų valią ir suteiks disciplinuotumo. Keltis anksti ryte, naudotis bendrabučio "privilegijomis" (jeigu ten gyvensite), kasdien mokytis net nebūtinai tai, kas jums visiškai reikalinga, kęsti kandžius dėstytojų komentarus (retai taip nutinka) - to jums reikia, kad išugdytumėte pakantumą, disciplinuotumą ir įgautumėte valios. Būdamas atsakingas ir pareigingas studentas jūs išmoksite planuoti savo laiką ir darbus (prioritetais) - ne tik tam, kad laiku atsiskaitytumėte darbus, bet ir tam, kad pradėtumėte sau - atrastumėte laiko kokybiškam poilsiui, pramogoms. Juk geras specialistas niekada nekels šiknos nuo kėdės kai jam paskambins pusgirtis draugelis ir pasiūlys pasivažinėti naujutėlaičiu Škoda Šikoktavia. Antraip jis nebus geras specialistas - kas per kompetencija, jei svarbius darbus spontaniškai iškeičia į draugeliu įšikius. 8. Studijuodami susirasite naujų pažinčų. Ne tik draugų. Šiais laikais dėstytojai ne visi sovieticus stiliaus, kuomet juos net pakalbinti baisu. Yra ir tokių, kurie gali būti puikūs draugai neperžengiant tam tikrų ribų. Jie gali jus ne tik mokyti ir įvertinti, bet ir nukreipti tinkamu keliu - siųsti į renginius, rasti darbą ir panašiai. Apie pažintis su bendrakursiais, kurie galbūt kada nors taps jūsų kolegomis, jau net nekalbu. Kiek žinau, po kai kuriuos universitetus vaikšto įmonių atstovai ir tiesiog griebte graibsto darbuotojus. Be to, studijų metų teks praktikuotis, todėl pažintys su įmonėmis bus neišvengiamos. Taigi, sąžiningai mokantis gali pasisekti dvigubai - įgausite ne tik žinių, bet ir pažinčių. Dėstytojams tikrai patinka geri studentai, nors nemuša ir blogų. 9. Pamiršau paminėti, kad jeigu gerai mokysitės, periodiškai gausite ir stipendiją, kuri ypatingais atvejais gali siekti net kokį 100 eurų ar daugiau. 10. Studijuodami galėsite naudotis įvairia literatūra, kadangi kiekvienas universitetas jų turi labai daug. Tai jums nieko nekainuos. Ir patikėkite, ten yra tokių knygų, kokių nerasite internete. 11. Studijų programos yra paruoštos kažkokios tai ministerijos, kur dėdės ir tetos sėdi. Paruoštos jos taip, kad per 4 metus taptumėte ne siauro profilio specialistai. Tai reiškia, kad į jūsų galveles su kateteriu pumpuos ne tik specialybės žinias, bet ir kitokias. Pripažįstu, kad visos jos nebus naudingos, bet kai kurios tikrai pravers gyvenime ir galbūt praplės jūsų akiratį (tiksliau, jeigu nesate išsigimęs genijus, tai tikrai turėtų praplėsti). 12. Pagalba - visada online. Kartais gi būna, kad googlini googlini, bet nerandi to, ko ieškai. Atrodo užduodi paprastą klausimą tai mašinai, bet ji vis tiek spardosi. Štai dėstytojai nesispardys - užduosi jiems klausimą, kuris susijęs su einamuoju dalyku, tai jie ims ir atsakys - nereikės nei googlinti. Geras, ar ne? Kitaip tariant, sutaupysite daug laiko. Be to, internete sunku atsirinkti informaciją gerą nuo blogos, juk jame gali rašyti bet kas - ir ką tik gimęs kūdikis, ir Ostapenko. O atsakymą į užduotą klausimą išgirsite tiesiai iš kompetetingo specialisto lūpų. 13. Studijų programos paruoštos taip, kad nereikėtų mėtytis. Įgausite įvairiapusiškų pagrindų, ne tik specialybinių. Programuos paruoštos taip, kad iš jūsų išaugtų tikrai geri specialistai (iš dalies todėl lietuviai garsėja kaip geri IT specialistai). O dabar įsivaizduoktie, kad mokytumėtės savarankiškai. Ir kaip tai darytumėt? Kurtumėte muzikos svetainę su plain PHP? Ir ką jūs išmoktumėte? Gerai, nieko nesakau, gal ir taptumėte geri programuotojai, bet vargu ar mokėtumėte dirbti su kokiu Office paketu, nes jūs jo paprasčiausiai nepaliestumėte. Sakysite man, kam jo reikia? Pasakykite tai savo būsimam darbdaviui. 14. Universitetas jums suteiks ne tik žinių, bet ir resursų. Pavyzdžiui, turėtumėte gauti galimybę naudotis el. paštu, hostingu, galbūt net serveriu. Apie naudojimąsi kompiuteriais jau net nekalbu. Taip pat yra galimybė gauti pigiai arba net nemokamai tam tikras programas, kadangi universitetai su daug kuo būna pasirašę bendradarbiavimo sutartį. Apskritai, jūs kaip studentai turėsite daug privilegijų. 15. Išmoksite gyventi savarankiškai. Jeigu jums teks studijuoti kitame mieste, tai gyvensite naujame būste. Gyvensite savarankiškai, todėl tikrai šmoksite daugiau nei mokėjote iki tol. Tai puiki gyvenimo mokykla, nors su posakiu, kad studentui privalu pagyventi bendrabutyje, nesutinku. 16. Gausite diplomą, kuris įrodys jūsų žinias ir su kuriuo galėsite įsidarbinti į įstaigas, kurios jo prašo (dažniausiai tai valstybinės įstaigos - Blackbeard papildymas).
Studijuojami dalykai: Šiek tiek paanalizuosiu, ką studijuoja programuotojai. Turbūt jau visi žino, kad programuotojams rengti yra programų sistemų studijų programa. Vienur ji gali vadintis vienaip, kitur kitaip. Dėstomi dalykai kaip diena ir naktis tikrai nesiskiria, skirtis gali tik kokybė (kur studijuoti - čia jau atskira tema). Pažvelkime į VU programų sistemos dalykėlius.
Aprašas:
Kiekviename semestre mokysitės 6 dalykų. Beveik visi jie - specialybiniai.
1 semestras: =Matematika programų sistemoms. Visokios matricos ir panašiai. Dalykas labai svarbus nėra, bet turėti algebrines žinias bent minimaliai programuotojams reikia - su matricomis jie susiduria tikrai. =Diskrečioji matematika. Tai naudinga matematikos šaka, kuri tikrai reikalinga programuotojui. Pradedant būlio funkcijomis, baigiant informologija. Iš visų matematikos šakų ši arčiausiai IT. =Kompiuterių architektūra. Sužinosite kaip veikia kompiuteris. Tiksliau, jo operacinė sistema ir panašiai. Šį dalyką galima mylėti arba nekęsti, kitaip nebūna. Arba galima suprasti, arba nesuprasti - bet jeigu nesuprasite, tai jokio malonumo. =Procedūrinis programavimas. Tai tokia kaip introdukcija į programavimą, panašiai kas ir mokykloje, tik aišku, užduotys gali skirtis. Vėliau pamažu atsisveikinsite su procedūromis ir turbūt, kad pereisite prie objektų. =IT ir komunikacijos įgūdžiai. Nuo Office pradmenų iki psichologinių aspektų. Šis dalykas iš esmės padeda lavinti save kaip asmenybę, ne tik kaip programuotoją. Aišku, galėtų būti ir nesujungta nemaža dalis dalykų į šią paskaitą, bet yra kaip yra. =Anglų kalba. Čia jau nėra ką komentuoti, tiesiog anglų kalba, susijusi su specialybe. Gali atrodyti nuobodu, gali atrodyti vieniems lengva, kitiems sunku.
2 semestras: =Matematika programų sistemoms. Matematika tęsiasi. =Algoritmų teorija. Dalykas gan rimtas ir svarbus, nes realizuoti algoritmą programavimo kalba - programuotojo uždavinys, o tam, kad kodą būtų lengviau parašyti, sugalvoti, ar išvis suvokti, reikia susipažinti su įvairiais jau egzistuojančiais algoritmais. Pats algoritmų kūrimas įprastai nėra programuotojo reikalas, tačiau pagrindus turėti svarbu. =Algoritmai ir duomenų struktūros. Kaip suprantu, čia tas pats kas ir aukščiau, tik prisideda duomenų struktūros. Nors galbūt šis dalykas grynai IT, o ankstesnis - matematinis. Ties šia vieta galėtų pataisyti studijuojantysis. =Objektinis programavimas. Štai čia prasideda tikrasis programavimas, kuris ir turėtų tapti jūsų kasdienybe =Anglų kalba. 1 semestro tęsinys.
3 semestras: =Programų sistemų inžinerija. Susipažinsite su programų kūrimo teorija nebūtinai iš programavimo pusės, juk reikia mokėti tinkamai struktūrizuoti produkto kūrimo darbus ar paruošti programą leidimui. =Duomenų bazių valdymo sistemos. Pavadinimas kalba už save. Šios paskaitos tikrai suteiks labai reikalingų žinių - duomenų bazės yra šiandienos IT pasaulio svarbi dalis. =Objektinis programavimas. Jis tęsiasi. =Matematinė logika. Iš tiesų tai 1 semestre pamatytos diskrečiosios matematikos dalis. Ji įterpiama kaip atskiras dalykas turbūt todėl, kad yra plati, pusiau filosofinė. Dalykas gali atrodyti rimtas ir užkabinantis ir įdomus, arba visiškai neįdomus ir nuobodus.
4 semestras: =Programų sistemų inžinerija. Mokomės ir toliau programų inžinerijos meno. =Matematika programų sistemoms. Matematika vis dar tęsiasi (bet jau ir baigiasi). =Kompiuterių tinklai. Kaip ir išmanyti kompiuterio veikimo bazinius principus, taip ir suprasti, kaip veikia ir kaip administruojami kompiuterių tinklai - programuotojui neturėtų būti bėda. Iš tikro, tai naudingas dalykas ir žinios tikrai nepakenks, nors tai ganėtinai plati sritis, bet gal ji jums taip patiks, kad nuspręsite tapti tinklų administratoriais (kuo dirbsite baigę šią studijų programą, priklauso tik nuo jūsų).
5 semestras: =Programų sistemų testavimas. Išmoksite testavimo teorijų. Juk reikia, kad sukurtas produktas veiktų, o jei nereikia, tai užleiskite studijų vietą labiau motyvuotam asmeniui. =Interneto technologijos. Kaip ir pavadinimas pasako, susipažinsite su interneto technologijomis. Šiuo atveju tai nebus kažkoks HTML (jis jau regimas 1 semestre). Čia susipažinsite su XML ir panašiomis sąvokomis, pažvelgsite į svetainių kūrimą-architektūrą giliau. =Žmogaus-kompiuterio sąveika. Šis dalykas padės suprasti, ko reikia vartotojams. Nors skambėti gali vienaip, bet susipažįstama labiau su grafinėmis subtilybėmis ir vartotojų poreikiais, iš ko suprasite, kaip geriausiai paruošti programos vaizdą vartotojui. =Programų sistemų projektavimas. Apie šį dalyką nepasakysiu nieko. Skamba panašiai kaip į programų sistemų inžineriją, bet skirtumų, matyt, yra.
6 semestras. =Programų sistemų kūrimas. Dar vienas kabliukas, kurio paaiškinti negaliu. =Profesionalumas ir etika. Labai vertingas dalykas yra ta etika, tik mažai kas supranta. Nespecialybinis dalykas, bet ir gerai, nes jų ir taip nėra daug.
Daugiau neberašau, nes pagrindas jau yra. Praleidau tokius dalykus kaip kursiniai ar praktiniai darbai, taip pat pasirenkamuosius modulius. Jų yra ne viena dešimtis, dalis specialybinių, dalis ne.
Taigi, kaip matote studijuodami susidursite su įvairaus plauko dalykais, kurių daugumos įprastame gyvenime bent jau plačiai tikrai nepaliestumėte. Įgausite svarbius pradmenis, kurie tikrai svarbūs tam, kad: =Susidomėtumėte ir turėtumėte norą tobulėti. =Taptumėte geri specialistai. =Rastumėte gerą darbą.
Studijos iš jūsų nepadarys specialistų, tačiau suteiks galimybę tokiais tapti tokiu atveju, jei dirbsite papildomai. Kitaip... Kas iš jūsų bus. Daugiausiai - vidutiniokai. Bet ir jie daug dirba, jeigu yra negabūs, nes sakoma, kad juodas darbas atsiperka ir kvailiui.
Įgavę studijų patirties jūs jau žinosite kur bazuotis ir manau, kad nesimėtysite prie nereikšmingų veiklų, kokiomis galbūt užsiėmėte iki tol. Geras specialistas gali diplomo ir neturėti, tačiau svarbiausia ne jis, svarbiausia - studijų procesas ir jo teikiami privalumai. Su pagrindiniais aspektais jūs jau susipažinote, dabar galite pagalvoti - gal visgi verta studijuoti?
program programa;
const //susikuriam masyva su 5 elementais sudaryta is sveikuju skaiciu
m:array[1..5] of integer = (1, 5, -2, 0, -3);
var i,
nk, //kintamasis kuris kaups neigiamu skaiciu kieki
tsum, //kintamasis kuris kaups teigiamu skaiciu suma
tsan:integer; //kintamasis kuris kaups teigiamu skaiciu sandauga
Begin
nk := 0; tsum := 0; tsan := 1; //priskiriam pradines reiksmes kintamiesiems
for i:=1 to 5 do
if m[i] > 0 then //tikrinam ar i-asis masyvo el yra >0 t.y. teigiamas
begin //jei teigiamas tai atliekam siuos veiksmus
tsum += m[i]; //kaupiam teigiamu suma
tsan *= m[i]; //kaupiam teigiamu sandauga
end else //jei neneigiamas tai
if m[i] <> 0 then //tikrinam ar elementas nera 0, jei ne 0 tai
nk += 1; //kaupiam neigiamu el kieki
{toliau rasom rezultatus ekrane}
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End. Prašom :)
program programa;
var i, k,
dt:integer;
Begin
k:=0;
for i:=1 to 7 do
begin
write(i, '-os dienos temp: '); readln(dt);
if (dt > 10) then k+=1;
end;
writeln('Siltu savaites dienu kiekis: ', k);
readln;
End.
program programa;
var i, k,
sk,
tk, nk:integer;
Begin
k:=0; i:=1; tk:=0; nk:=0;
while (true) do
begin
write(i, '-as skaicius: '); readln(sk);
i+=1;
if (sk <> 0) then
if (sk > 0) then tk += 1
else nk += 1
else break;
end;
writeln('Teigiamu kiekis: ', tk);
writeln('Neigiamu kiekis: ', nk);
readln;
End.
program programa;
const
m:array[1..5] of integer = (1, 5, -2, 0, -3);
var i, nk, tsum, tsan:integer;
Begin
nk := 0; tsum := 0; tsan := 1;
for i:=1 to 5 do
if m[i] > 0 then
begin
tsum += m[i];
tsan *= m[i];
end else
if m[i] <> 0 then
nk += 1;
writeln('Neigiamu kiekis: ', nk);
writeln('Teigiamu suma: ', tsum);
writeln('Teigiamu sandauga: ', tsan);
readln;
End.
program programa;
function keltiKubu(a:integer):integer;
begin
keltiKubu := a*a*a;
end;
function analize(a:integer):boolean;
var i, suma, laik:integer;
begin
suma := 0; laik := a;
while (a > 0) do
begin
suma += keltiKubu(a mod 10);
a := a div 10;
end;
analize := suma = laik;
end;
var i:integer;
Begin
for i:=100 to 1000 do
begin
if analize(i) then writeln(i);
end;
readln;
end.
#include <iostream>
using namespace std;
int main() {
int k = 0;
int s;
cin >> s;
while (s != 0) {
if (s < 0) k++;
cin >> s;
}
cout << "Neigiamu kiekis: " << k << endl;
system("pause");
return 0;
};
#include <iostream>
using namespace std;
int main() {
int s;
cin >> s;
int max = s;
int min = s;
while (s != 1) {
if (s>max) max = s; else
if (s<min) min = s;
cin >> s;
}
cout << "Max * Min = " << max * min << endl;
system("pause");
return 0;
};
#include <iostream>
using namespace std;
int main() {
int s;
int suma = 0;
cin >> s;
while (s != 9999) {
suma += s*s;
cin >> s;
}
cout << "Suma: " << suma << endl;
system("pause");
return 0;
};