robertasb

iš adsense pagalbos:
 
Kaip prie paskyros pridėti daugiau svetainių?
 
Paskyroje sugeneruotas kodas galioja bet kuriame bet kurios svetainės puslapyje, kuriame norite pateikti skelbimus. Tiesiog pridėkite kodą prie puslapio šaltinio ir automatiškai aptiksime naują svetainę.

iš adsense pagalbos:
 
Kaip prie paskyros pridėti daugiau svetainių?
 
Paskyroje sugeneruotas kodas galioja bet kuriame bet kurios svetainės puslapyje, kuriame norite pateikti skelbimus. Tiesiog pridėkite kodą prie puslapio šaltinio ir automatiškai aptiksime naują svetainę.

Benaršydamas internete radau puslapi,kuriame galima siųsti nemokamai sms i visas šalis,gal kam prireiks :)
 
http://www.uthsms.net/

su paieška mėgink folderyje ieškoti failus su tomis galūnemis.o kai ras ištrinti

Nutariau pasidalinti visai sauniu puslapiu arba kitaip - youtube channel'iu is kurio mokausi programavimo pradmenu.
 
http://www.thenewboston.com
 
Aisku viskas anglu kalba, bet vis idomiau ziuret kaip daro ir komentuoja nei skaityt nuobodzia literatura.

Prašau
 
program Pavasaris;
const CMax = 31; // Geguzes menesio dienu skaicius
C20 = 20; // Lyginimo kriterijus
CDuom = 'U1.txt';
CRez = 'U1rez.txt';
type
mas = array[1..CMax] of integer;
 
var
n:integer; // Temperaturos matavimo dienu skaicius
Rytas, // Temperaturos ryte
Vidurdienis, // Temperaturos per pietus
Vakaras:mas; // Temperaturos vakare
 
procedure Skaityti;
var i:integer;
F:text;
dn, // Geguzes menesio diena
ryt, // Temperatura ryte
vidurd, // Temperatura per pietus
vak:integer; // Temperatura vakare
Begin
Assign(F,Cduom);
Reset(F);
ReadLn(F,n);
for i := 1 to n do
Begin
ReadLn(F,dn,ryt,vidurd,vak);
// Pildome temperaturu duomenis ryte
Rytas[dn] := Rytas[dn] + ryt;
// Pildome temperaturu duomenis per pietus
Vidurdienis[dn] := Vidurdienis[dn] + vidurd;
Vakaras[dn] := Vakaras[dn] + vak;
end;
Close(F);
end;
 
function MaksimaliTemperatura(DienosMetas:Mas):integer;
var i,max:integer;
Begin
max := DienosMetas[1];
for i := 1 to CMax do
if DienosMetas > max then max := DienosMetas;
MaksimaliTemperatura := max;
end;
 
procedure Rasyti;
var i:integer;
F:text;
Begin
Assign(F,CRez);
Rewrite(F);
for i:= 1 to CMax do
// Tikrinti kuria diena buvo maksimali temperatura
if ((Rytas = MaksimaliTemperatura(Rytas)) or
(Vidurdienis = MaksimaliTemperatura(Vidurdienis)) or
(Vakaras = MaksimaliTemperatura(Vakaras))) then
write(F,' ',i);
Writeln(F);
Close(F);
end;
 
procedure PildytiFaila;
var i:integer;
t:boolean; // Pozymis, kad visa geguzes menesio diena buvo daugiau nei 20
F:text;
Begin
Assign(F,CRez);
Append(F);
t := false;
for i:= 1 to CMax do
// Tikrinti kuria diena buvo maksimali temperatura
if ((Rytas >= C20) and
(Vidurdienis >= C20 ) and
(Vakaras >= C20 )) then
Begin
write(F,' ',i);
t := true;
end;
if t = false then write(F,' ',0);
Close(F);
end;
 
 
{--------------------------------Pagrindine programa---------------------------}
 
begin
Skaityti;
Rasyti;
PildytiFaila;
end.

Įdėja gera daugiau nieko gero nematau :)

Sveiki uždarbis.lt dalyviai!!!1!!vienasvienas
 
Prikaupiau šiek tiek Hostex nuolaidų kuponų. Norėčiau padovanoti juos sąžiningiems bei pilnų idėjomis žmonėms :)

 
 
Hosting'ų kainos ir užsakymai:
http://www.hostex.lt/hostingas
 
Trumpai apie nuolaidos kodą:
Nuolaida yra pirmam shared hosting'o užsakymui hostex'e, max metams. Paslaugų pratęsimui jis negalioja. Taip pat, jei užsisakysite planą trims mėnesiams, vėliau tęsti reikės už įprastą kainą.
Iš karto atsakau į klausimus:
1. VPS'ams negalioja,
2. Domeno užsakymui taip pat negalioja,
 
 
Kas nori gauti nuolaidos kodus, parašykit šitoj temoj. JOKIŲ PM NESIŲSKIT!!!
Kiekvienam žmogui kodą atsiųsiu į PM.
Nuolaidos kodų yra ~150 :)

$duomenys=fopen("failas.txt", "a"); fwrite($duomenys, "".date("Y-m-d H:i:s")."\n"); fclose($duomenys); header("Location: http://www.redirectas.com"); exit;

Na kad zmogus daro, kaip ir gerai, bet kai pamatai toki dizaina, tai kaip gali pasitiketi jo vertinimais del el. parduotuviu patikimumo. Plius jis raso, kad si puslapi kure 3 menesius, ale kaip koki "kosmini projekta". Net neisivaizduoju, kas jame lankysis.
Tad vienintelis pagirimas,tik del bandymo kazka daryti, bet daugiau, tai beprasmis, su tikrai baisu dizainu puslapis.
 
Tiesa dar pastebejau, kad cia atseit elektroniniu parduotuviu katalogas, tik uzejes matau avalyne.info , tai kokia cia el. parduotuve, ji nieko nepardavineja, o tik nukreipineja i vulcan.lt puslapi ir ten vyksta visa prekyba. Tai koks cia gaunasi el. parduotuviu katalogas?

delete

Teisingai Leader sako. Žmogus pats bando kažka darytis.
Vertas daugiau demesio nei eilinis instaliuotas wordpressas ar joomla.

Šiaip spalvų derinimas jau toks dalykas, kurį pačiam reiktų jaust pamėgink tą raudoną spalvą į rudą pakeist, o tas žalias tamsesnes padaryt, maždaug miško - haki spalvos.
O šiaip idėja gera. E parduotuvių katalogas. Pridėsiu ir savo :)

delete

Na bent matosi, kad žmogus pats stengiasi kurti, o ne plagijuot. Pirmas blynas gal ir ne koks, tikiu ateityje jis bus geresnis. Sėkmės.

kreipkis į skype: sexiux.net jis prekiauja vcc,pirkau pats du kartus patikimas

kreipkis į skype: sexiux.net jis prekiauja vcc,pirkau pats du kartus patikimas

Sprendimas:
 
x - pirmojo krastines ilgis
y - antrojo sklypo ilgis
z - antrojo sklypo plotis
t - trecio sklypo tiesios krastines ilgis
l - tinklo 1m. kaina.
 
m - is viso reikes tinklo
k - tinklas kainuos
 
m = 4x + 2y + 2z + t + pi*t/4
k = m*l

apačioje juk yra rašomas žodžių skaičius

Taigi pasiūlysiu tiek pagalbą tiek sprendimą, jei nori tik pagalbos tai neleisk šio puslapio žemyn :)
 
Iš pradžių tau reikėtų patikrinti tą eilutę ar turimas skaičius yra mažiausias ('praleidžiant' su `for` funkcija)
Kai surandi mažiausią tikrini ar tame stulpelyje jis didžiausias (būtina išsaugoti `x` koordinates kai surandi mažiausią skaičių eilutėje)
 
Na o toliau sprendimas:
|
|
|
|
|
\/
 

program Arrrghhh; const CFailasIn = 'duom.txt'; CFailasOut = 'rez.txt'; var failasIn, failasOut : text; plotis, aukstis : integer; i, j, k, l, temp : integer; x, y : integer; duomenys : array[1..30,1..30] of integer; procedure nuskaityti(); begin //Nuskaitom failą assign(failasIn, CFailasIn); reset(failasIn); Read(failasIn, plotis, aukstis); //Gali būti ir aukštis, plotis...Neaiški sąlyga :) for i := 1 to aukstis do for j := 1 to plotis do Read(failasIn, duomenys[i][j]); close(failasIn); end; procedure rasyti(ka, y, x : integer); begin //Rašom failą assign(failasOut, CFailasOut); rewrite(failasOut); Write(failasOut, ka, ' ', y, ' ', x); close(failasOut); end; procedure ieskoti(); begin //Bandom ieškoti to ko nori sąlyga //kurie kartu yra mažiausias tos eilutės ir didžiausias to stulpelio elementas. for i := 1 to aukstis do begin l := 0; temp := duomenys[i][1]; x := 1; //Tuo atveju jei pirmas skaitmuo ir yra tai ko mum reikia y := i; for j := 1 to plotis-1 do //Tikrinam sekantį narį ar jis nėra mažesnis už priešais esantį if temp > duomenys[i][j+1] then begin temp := duomenys[i][j+1]; //Yra, rašom į kintamajį y := i; x := j+1; end; //Radome toje eilutėje esantį mažiausią skaičių // jis yra `temp`, beje kordinatės `x` ir `y` taipogi padės for k := 1 to aukstis do //Tikrinam ar tame stulpelyje mūsų rastas skaičius yra didžiausias if temp >= duomenys[k][x] then l := l + 1; if l = aukstis then rasyti(temp, y, x); end; end; begin nuskaityti(); ieskoti(); end.

Per pirmą pusdienį atnaujinus forumą galiausiai nutarėme priimti insaider pasiūlymą dėl neigiamų įvertinimų panaikinimo.
 
Turbūt nemažai kas gali nesuprasti šio "nuomonės laisvės suvaržymo" priežasčių, tad pamėginsiu paaiškinti, kodėl taip nusprendėme.
 
Nemaža dalis narių vertina kitų žinutes neobjektyviai. Dalis deda minusą pranešimui tik todėl, jog, pavyzdžiui, jo autorius buvo kažkada jį sukritikavęs. Kiti šiandien tiesiog neturi nuotaikos ir atsidarę temą deda minusus visiems pranešimams joje iš eilės (teko tai ne kartą pastebėti). Normalu, jog kiekvieną žmogų minusai veikia neigiamai, o jeigu tu dar gauni juos už nieką, tai gali apskritai numušti norą diskutuoti forume. Be to, ko tada verta reputacijos sistema, jei vos parašęs: "Man nepatinka šis forumo dizainas" žmogus netenka beveik 30 savo reputacijos taškų? Galiausiai, esant ir pliusams, ir minusams tu nematai, kiek žmonių iš tikrųjų tave palaiko: kartais pranešimo įvertinimas būna -1, o už jo iš tikrųjų slepiasi 10 teigiamų įvertinimų (ir 11 neigiamų, žinoma), apie kuriuos tu net neįtari.
 
Ką tuomet daryti, jei nesutinki su perskaitytu pranešimu? Skaityk temą toliau, ir duok pliusą žmogui, kuris išreiškė tai, ką tu galvoji. Jeigu tokio nėra - pats argumentuotai išdėstyk savo nuomonę, kodėl nesutinki su tuo pranešimu. Viskas. Galbūt žmogus, parašęs kvailą žinutę, gaus 3 savo bendraminčių pliusus, bet tas, kuris paaiškins jam, kodėl jo žinutė kvaila, sulauks kelis kartus didesnio palaikymo - ir pranešimo autoriui bus aišku, jog dauguma su juo nesutinka. Tokiu būdu neigiami vertinimai gali būti pakeisti į teigiamą formą ir tuo pačiu skatinti argumentuotas diskusijas, o ne minusiukų spaudymą. Galiausiai - tiesiog suteikti daugiau pozityvumo, daugiau geros nuotaikos (tai ir yra priežastis, kodėl Facebook turi tik "Like" mygtuką).
 
Reputacijos sistema nuo to visiškai nenukentės. Taip, nariai nebegalės gauti neigiamų taškų, bet, jei tu neparašai nieko protingo, - liksi su nuliu. Lygiai taip atsiradus poreikiui reikalavimas patekti į rimtesnius forumus galės būti keli šimtai reputacijos taškų. Be to, reputacijos taškai galės būti vienas iš kriterijų plečiant VIP narių grupę.
 
Palikimas tik teigiamų atsiliepimų leidžia įjungti papildomą funkciją - nuo šiol galėsite matyti tuos, kas vertino pranešimus, paspaudę ant įvertinimų skaičiaus. Anksčiau duotų neigiamų įvertinimų autoriai nebus rodomi.
 
Dar papildyta: į naujai perskaičiuotą reputacijos balą neįtraukti neigiami pranešimų įvertinimai, todėl jis išaugo, bet dėsningumo neiškreipė (top10 beveik nepasikeitė).
 
Taigi tiesiog šiek tiek daugiau pozityvumo forume :)

Turime Tau stulbinantį pasiūlymą!
 
Pasiimk 5 Lt teleMAXIMOS papildymą tik prisijungęs prie teleMAXIMOS draugų facebook‘e.
 
 
 
Pasiimti papildymą paprasta:
 
Nueini į facebook.com (http://www.facebook.com/Telemaxima.lt), prisijungi, atsiduri teleMAXIMOS profilyje, paspaudi „patinka/like“, o ant sienos parašai „Labas/sveiki/aloha etc.“, tada spaudi „Atsakyti/Reply“ į šį el. laišką ir rašai mums, kad „prisijungiau ir pasisveikinau, noriu 5 Lt į 8 6XX XXXXX numerį“. Ir tavo sąskaita bus papildyta 5 Lt pokalbiams Lietuvoje J
 
 
 
Paprasta kaip 2 x 2, ar ne?
 
 
 
Laukiam tavęs facebook‘e J
 
Nepamiršk, kad ten nuolat vyksta įvairūs konkursai, kuriuose gali laimėti dar daugiau prizų ir sąskaitos papildymų!
 
Sėkmės J
 
 
 
 
 
Kas nesnaudžia, “patinka” paspaudžia,
 
Jam neskauda, jis papildymą gauna.
 
 
 
 
 
 
 
 
 
Tavo teleMAXIMA
 
 
 
EL.pastas [email protected]

Turime Tau stulbinantį pasiūlymą!
 
Pasiimk 5 Lt teleMAXIMOS papildymą tik prisijungęs prie teleMAXIMOS draugų facebook‘e.
 
 
 
Pasiimti papildymą paprasta:
 
Nueini į facebook.com (http://www.facebook.com/Telemaxima.lt), prisijungi, atsiduri teleMAXIMOS profilyje, paspaudi „patinka/like“, o ant sienos parašai „Labas/sveiki/aloha etc.“, tada spaudi „Atsakyti/Reply“ į šį el. laišką ir rašai mums, kad „prisijungiau ir pasisveikinau, noriu 5 Lt į 8 6XX XXXXX numerį“. Ir tavo sąskaita bus papildyta 5 Lt pokalbiams Lietuvoje J
 
 
 
Paprasta kaip 2 x 2, ar ne?
 
 
 
Laukiam tavęs facebook‘e J
 
Nepamiršk, kad ten nuolat vyksta įvairūs konkursai, kuriuose gali laimėti dar daugiau prizų ir sąskaitos papildymų!
 
Sėkmės J
 
 
 
 
 
Kas nesnaudžia, “patinka” paspaudžia,
 
Jam neskauda, jis papildymą gauna.
 
 
 
 
 
 
 
 
 
Tavo teleMAXIMA
 
 
 
EL.pastas [email protected]