manex

Permečiau dali akimis, atrodo tikrai neblogas straipsnis, būtinai reikės perskaityti vėliau :) Šaunuolis.

http://www.autoline.lt/
http://www.alloywheels.com/

program Kioskas; Const Cduom = 'kioskas.txt'; Crez = 'Rez.txt'; Cmax = 100; Type Prekes = Record pavadinimas : string[20]; kiekis, kaina, sum : real; End; Mas = Array[1..Cmax] of Prekes; Var B, F : text; n : integer; A : Mas; {--------------------------Funkcijos ir procedûros----------------------------} Function Suma : real; var i : integer; Begin For i := 1 to n do Suma := Suma + A[i].sum; End; Procedure Skaiciuoti; Var i, vieta : integer; max : real; Begin max := A[1].sum; vieta := 1; For i := 2 to n do If A[i].sum > max then begin max := A[i].sum; vieta := i; end; Assign(F, Crez); ReWrite(F); WriteLn(F, A[vieta].pavadinimas,' ',A[vieta].kiekis:0:2,' ',A[vieta].kaina:0:2,' ',A[vieta].sum:0:2); WriteLn(F, Suma:0:2); Close(F); End; Procedure Duomenys; Var i : integer; Begin Assign(B, Cduom); Reset(B); ReadLn(B, n); For i := 1 to n do Begin ReadLn(B, A[i].pavadinimas, A[i].kiekis, A[i].kaina); A[i].sum := A[i].kiekis * A[i].kaina; End; Close(B); End; {----------------------------Pagrindinë programa------------------------------} begin Duomenys; Skaiciuoti; end.

taip tas += čia jau įkišta iš C++, bet kadangi tai nieko nekeičia skaičiavime, tai ir naudoju :rolleyes: dėl 28 tai pas mane klaida, pasitaisyk jei gali, jei ne pataisysiu, bet pamėgink tai padaryti pats ;)

program bulviakasis; type maisai = array [1..100] of integer; var A : maisai; n, nr, m, maxkr : integer; //n - ukininku skaicius, m - kiek telpa maisu {---------------procedura failo nuskaitmui-------------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'Duom1.txt'); reset(fd); readln(fd, n, m); for i := 1 to n do readln(fd, A[i]); close(fd); end; {------------Skaičiavimas, kiek kartų Petras važiavo į laukus------------------} function kartai (mais : integer) : integer; var i : integer; begin kartai:=mais div m; if mais mod m <> 0 then kartai:=kartai+1; end; {----kiek kartų važiavo Petras į daugiausia bulvių prikasusio ūkininko lauką---} procedure Daugiausia (var nr : integer; var maxkr : integer); var i, max : integer; begin max:=A[1]; {Nustatoma pradine max reiksme} for i:=2 to n do begin If A[i] > max then begin max:=A[i]; nr:=i; {Ukininko numeris} end; end; maxkr:=max div m; If max mod m <> 0 then maxkr:=maxkr+1; end; {---------rezultatu spausdinimas-----------------------------------------------} procedure spausdinimas; var fr : text; i, kiek : integer; begin assign(fr, 'Rez1.txt'); rewrite(fr); for i := 1 to n do kiek += kartai(A[i]); writeln(fr, kiek); writeln(fr, A[nr], ' ', maxkr); close(fr); end; begin skaitymas; Daugiausia(nr, maxkr); spausdinimas; end.
patikrink ar veikia nežėjau dabar, šiaip gal dar yra klaidų, nes kodas prieš dagiau nei metus rašytas. Išsitaisyk jei yra. Na bet esmę turėtum suprast.

program kolekcija; const duom = 'U1duom.txt'; rez = 'U1rez.txt'; max = 100; type masyvas = array[1..100] of integer; var L, J, Lm, Jm : masyvas; n, m : integer; {-------------------procedura failo nuskaitymui--------------------------------} procedure skaitymas; var fd : text; i, nr, mr : integer; begin assign(fd, duom); reset(fd); readln(fd, n, m); for i := 1 to n do // nuskaitoma linos kolekcija begin read(fd, nr); L[nr] += 1; end; readln(fd); for i := 1 to m do // nuskaitoma jurgio kolekcija begin read(fd, mr); J[mr] += 1; end; close(fd); end; {--------------mainu procedura-------------------------------------------------} procedure mainai; var i, nr, yra : integer; begin for i := 1 to max do begin if (L[i] > 1) and (J[i] = 0) then begin nr := i; Lm[nr] := 1; end; if (J[i] > 1) and (L[i] = 0) then begin nr := i; Jm[nr] := 1; end; end; end; {---------------------procedura failo spausdinimui-----------------------------} procedure spausdinimas; var fr : text; i : integer; jt, lt : boolean; begin assign(fr, rez); rewrite(fr); jt := false; lt := false; for i := 1 to max do if Lm[i] = 1 then begin write(fr, i, ' '); lt := true; // ar lina turi zaisliuku mainymuisi end; if not lt then write(fr, '0'); writeln(fr); for i := 1 to max do if Jm[i] = 1 then begin write(fr, i, ' '); jt := true; // ar lina turi zaisliuku mainymuisi end; if not jt then write(fr, '0'); writeln(fr); for i := 1 to max do if (L[i] > 0) or (J[i] > 0) then write(fr, i, ' '); close(fr); end; begin skaitymas; mainai; spausdinimas; end.

// elektros grandines varzos skaiciavimas. program Varza; const CDuom = 'Duom1.txt'; CRez = 'Rez1.txt'; //------------------------------------------------------------------------------ // vienos grandies varza function RGrandies(var F : text) : real; var n, i : integer; sk : real; L : real; begin L := 0; // laidumas read(F, n); // nuosekliai sujungtu visos grandines daliu skaicius for i := 1 to n do begin read(F, sk); // skaitoma viena varza L := L + 1 / sk; // vienos grandies laidumu sumavimas end; readln(F); // vienos grandines dalies varzu saraso pabaiga RGrandies := 1 / L // grandines dalies varza end; //------------------------------------------------------------------------------ var n, i : integer; R : real; // laidininko varza F : text; // kintamasis darbui su failais begin R := 0; assign(F, CDuom); reset(F); readln(F, n); // nuosekliai sujungtu visos grandines daliu skaicius for i := 1 to n do R := R + RGrandies(F); // grandines daliu varzu suma close(F); assign(F, CRez); Rewrite(F); writeln(F, R:8:2); close(F); // grandines varza Readln; end.

tokie treneriai dazniausiai ir buna visokiuose prestiziniuose sporto klubuose, kurie ima pinigus uz beleka ir primeta guru su savo pavirsutiniskom ziniom. Ne viena mates toki, tarp kitko impulse tas pats, treneris vaiksto po ta sale (tikrai nesakau, kad visi tokie), puse neteisingai daro veiksmus, o tas tik aki uzmetes praeina pro sali, nors mato kokia situacija... O paklausus jo ko nors, parodo pirstu i kainorasti ir tik sumokejus tam tikra suma sudaro tau koki nors su logika prasilenkianti mitybos plana ar treniruociu programa. Taip buvo ne man, bet uztenka pasiklausyt trenerio "patarimu" draugui ar tiesiog pamatyt tai gyvai paciam. :)
 
O siaip jo, tokie treneriai ir turi but, kaip minejo kolega. Sklepukuose dazniausiai viskas paprasciau, tie patys treneriai paprastesni buna ir neima pinigu uz kiekviena patarima, treniruociu programa ar siaip kazkokias tai konsultacijas. Pats sportuoju sklepuke, turiu gera treneri, kuris visada pades ir labai juo dziaugiuos.

program pelnas; type masyvas = array[1..12] of integer; var p, r, z : masyvas; i, n, suma, max, min, s, ma, m : longint; fd, fr : text; begin assign(fd, 'firma.txt'); reset(fd); readln(fd, n); s := 0; suma := 0; max := 0; min := 100000; for i := 1 to n do begin readln(fd, r[i], p[i]); suma += p[i] - r[i]; if max < (p[i] - r[i]) then begin ma := i; max := p[i] - r[i]; end; if (min > p[i] -r[i]) and (p[i] - r[i] > 0) then begin m := i; min := p[i] - r[i]; end; if (p[i] - r[i]) > 0 then s += 1; end; assign(fr, 'Pelnas.txt'); rewrite(fr); writeln(fr, suma); writeln(fr, ma, ' ', max); writeln(fr, m, ' ', min); writeln(fr, s); close(fr); close(fd); end.

program Pirkejas; type masyvas = array[1..100] of integer; var A : masyvas; t1, t2, N : integer; {------------------procedūra failo nuskaitymui---------------------------------} procedure skaitymas; var i : integer; fd : text; begin assign(fd, 'DUOM.TXT'); reset(fd); readln(fd, t1, t2, N); for i := 1to N do readln(fd, A[i]); close(fd); end; {-------funkcija rasti daugiausia prekiu turincio eiles numeriui nustatyti-----} function didpirk : integer; var i, max : integer; begin max := 0; for i := 1 to N do if max < A[i] then begin max := A[i]; didpirk := i; end; end; {F-ja, kuri skaičiuoja, po kiek sekundžių nurodytas pirkėjas atsiskaito kasoje-} function laikas (eilnr : integer) : integer; var i : integer; begin laikas := 0; for i := 1 to eilnr do laikas := laikas + A[i] * t1 + t2; end; {--------f-ja skaicuojanti kiek laiko sugaiš kasininkė su tuo pirkėju----------} function pardlaik (eilnr : integer) : integer; begin pardlaik := A[eilnr] * t1 + t2; end; {----------procedura rasymui i faila-------------------------------------------} procedure rasymas; var i : integer; fr : text; begin assign (fr, 'REZ.TXT'); rewrite(fr); write(fr, didpirk,' ', A[didpirk],' ', laikas(didpirk), ' ',pardlaik(didpirk)); close(fr); end; begin skaitymas; rasymas; end.

Kas gali būti vairuotojų mokytoju ar (ir) vairavimo instruktoriumi?
 
Vairuotojų mokytoju gali būti asmuo, turintis ne žemesnį kaip aukštesnįjį (apimantį techninių mokslų ir automobilizmo studijas) išsilavinimą, ne žemesnės kaip rengiamos transporto priemonių kategorijos vairavimo teisę bei sėkmingai baigęs pirminius specialius kursus aukštojoje mokykloje pagal Susisiekimo ministerijos patvirtintas mokymo dalykų programas ir gavęs įskaitų ir egzaminų kortelę.
 
Vairavimo instruktoriumi gali būti asmuo, turintis ne žemesnį kaip aukštesnįjį išsilavinimą, visų transporto priemonių kategorijų (išskyrus T kategoriją) vairavimo teisę, trejų metų vairavimo patirtį su tos kategorijos transporto priemone, kurią vairuoti rengia vairuotojus bei sėkmingai baigęs pirminius specialius kursus aukštojoje mokykloje pagal Susisiekimo ministerijos patvirtintas mokymo dalykų programas bei gavęs įskaitų ir egzaminų kortelę.
 
http://www.kvk.lt/index.php/lt/suaugusij-mokymas

Lietuvoje apsivagia, išvažiuoja į Užsienį ir kas tad? Užsienį irgi voks?

Ko Jūs tikitės, vieta yra skirta narkomanų pavogtų telefonų supirkinėjimui.

Turiu ir as toki sereri, openvz gliuchina kaip reikia kai pats host node isnaudoja ar per daug CPU ar IO per didelis.
 
Java serveriui reikia 30% cpu, taigi ir 0.3 load is procesu matosi apie stabilu darba. Na o paziurejus IO tai iskarto matosi, kad host node springsta karts nuo karto, taip ir podo tokia netikra aprokrova.
 
http://screensnapr.com/v/VjfPmK.png
http://screensnapr.com/v/Mhy1Ae.png
 
 
Tau cia tik fake load'as, nieko gero nepadarysi. Svarbiausiai kad butum pats veikla patenkitas.

Lietuvoje apsivagia, išvažiuoja į Užsienį ir kas tad? Užsienį irgi voks?

Tai kad kaži ar čia rasčiau kas padės atspenduoti, duočiau kad ir 100eurų

Užsiregistruoji kita šalimi, užpildai payout informaciją (pinigus išsiimi kur tik nori tik ne į lietuvišką banką), susikuri lietuviškus raktažodžius ir džiaugiesi pilnavertėmis paslaugomis :)

Redaguota: šis straipsnis buvo ne kartą papildytas ir redaguotas. Naujausia jo versija: http://kernius.net/k...inams-vbe-gidas

Augink kanapes,tikrai bus pelnas :lol:

ne čia temą sukūrei.Yra tam skirtas sub-forumas: domenų vertinimai.
o pats domenas nevykęs

Ka tu čia nusišneki žmogau..Koks dar emigravimo sugundymas? Aš ir db škotijoj sėdžiu,nu ir kas?Kas diena skaitau delfi,domiuos savo šalim..Buvau istojęs į ktu,į metus 8 gabalai vien tik už mokslą,aš ne koks tau piniguočius,kad tokiais pinigais taškyčiaus..O dirbt šūdsiurbiu už minimumą,kai plius benzas tuoj 5 lt pasieks tai yra visiškas debilizmas..Aš ir patariu emigruot,aišku,kas ne durnas tas emigruos..Čia uždirbu 1000 £ (nieko nebaigęs),benzinas čia 1.2£..padaryk kad ir paprasta išvada,prilygink lita su svaru (nors svaras aisku yra 4lt),bet as čia jų neverčiu..Lietuvoj dirbsi už minimumą ir mokesi už benza 4.5lt,škotijoj aš dirbsiu už minimuma,bet mokėsiu 1.2...Tau yra biški skirtumas?Lietuvoj norėdamas studijuoti,turėsi nama parduoti,čia tau dar padės kitos kompanijos susimokėti,tave finansuos,tau padės..Tai biški pagalvok ką šneki kartais..

Lietuvoje apsivagia, išvažiuoja į Užsienį ir kas tad? Užsienį irgi voks?

Tame ir slypi, kad serveriai.lt neinformuoja apie tokius dalykus, tiesiog nutyli, o vartotojas tegul sukasi kaip tik nori.

Sveiki,
 
po serveriai.lt paslaugų perleidimo paslaugos gavėjas metams netenka galimybės pratęsti paslaugą SMS žinute.
 
 
Šią temą sukūriau norėdamas pranešti forumiečiams apie paslaugų perleidimą.

Siuo metu domenu puslapis xc.lt visai nerodo karantine esanciu domenu - bet tai laikinai, tyla pries audra :)
Iki puslapio atnaujinimo karantine esancius domenus galesite stebeti programos pagalba - neprisijungusiems nariams bus rodomi domenai, kurie atsilaisvins per ateinancias 2d. Tie, kurie pas mane uzsakinejate domenus pagavimui - susisiekite, priklausomai nuo jusu aktyvumo jums bus sugeneruotas prisijungimas, kad galetumete matyti didesni sarasa - net iki menesio i prieki. Tikiuosi, kad bugu nepalikau, jei rasite, butu malonu, kad pranestumete.
.COM, .NET, .ORG, .INFO, .MOBI .DE, .US ir pan sarasai taip pat gali buti pateikiami - BE JOKIU APRIBOJIMU, bet su specialiais nustatymais:
 
.COM: Domenu saltinis: http://xc.lt/a/kiti/com Portas: 43 WHOIS Serveris:whois.internic.net
ir t.t.
 
Uzdarbis.lt nariams sugeneruotas prisijungimas, su kuriuo galima bus matyti domenus, kurie atsilaisvnins per ateinancias 5dienas.
 
Vartotojo ID:uzdarbis.lt
Slaptazodis:xc.lt
 
Bandom, testuojam, lauksiu jusu komentaru :)

domenai.rar