new_one

Tame puslapyje tai taip yra:

box-shadow: 0 0 5px 0 rgba(0, 0, 0, 0.15);

Tai vat, pastebėjau, kad scamai išaugo iki neįtikėtino lygio.
Žinoma, apsisaugoti nuo patikimų narių, kurie sumąsto 'pasidaryt litų' neįmanoma, bet kas liečia apsimetinėjimus:
Prieš kuriant temą ar atsakinėjant ar šiaip turėtų būti būtina įvesti savo vardą ir pirmą pavardės raidę, kadangi tikrai mažas šansas, kad scamerio inicialai bus tokie patys, kaip ir normalaus žmogaus (t.y. tikrinant su banko sąskaita, į kurią vedami pinigai). Nežinau, ar suprasit mane, kadangi kažkaip nesiseka šiandien reikšt minčių (visgi, už rašinį gavau 5).
 
 
Pasiūlymas nr.2
Su telefonų saskaitomis susijusios temos
Kas lankosi 'Kitos paslaugos' skyriuje pastebi, kad atsiranda pardavinėjančių numerius, perlaidas, padidinto tarifo SMS, bonus, TEO taškus ar dar ką.
Argi ne tvarkingiau ir patogiau būtų, jeigu viskas būtų rašoma į vieną temą (t.y. visi numeriu pardavinėjimai - į vieną temą, bonų - į kitą). Nu padaryt kaip linkomanijos pakvietimų temą.
Žinoma, ten padaryt kokias nors taisykles, kaip pvz.: pranešimą kartoti būtų galima tik kas kokias 48h ir tik tuo atveju, jei tavo pranešimą 'pakasė' po kokiais 7 postais. Ir t.t.
 
WIN? FAIL?

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.

Užduotis ne iš lengvųjų taigi ir kodas bus ne iš lengvųjų :/
 

program Progrrrama; var i, j, k, l : integer; skc : integer; skaiciai : array[0..100] of integer; function suma(skc_f : integer) : integer; var temp : integer; begin temp := 0; j := 1; while skc_f div j > 0 do begin temp := temp + skc_f div j mod 10; j := j * 10; end; suma := temp; end; function kvadratas(skc_f : integer) : integer; var temps : integer; begin temps := 0; j := 1; if skc_f mod 2 > 0 then begin //Nelyginis ;] while skc_f div j > 0 do begin temps := temps + ((skc_f div j mod 10) * (skc_f div j mod 10)); j := j * 10; end; end; kvadratas := temps; end; function lyginiai(skc_f : integer) : integer; begin j := 1; if skc_f mod 2 <= 0 then lyginiai := skc_f else lyginiai := 0; end; function did_skc(skc_f : integer) : integer; var did : integer; begin //tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; j := 1; did := 0; while skc_f div j > 0 do begin if skc_f div j mod 10 > did then did := skc_f div j mod 10; j := j * 10; end; if suma(skc_f) - did < did then did_skc := skc_f else did_skc := 0; end; function atbulai(skc_f : integer) : integer; var temp, ilgis : integer; begin //skaičius perrašytus atbulai; j := 1; temp := 0; // Kolkas dirbs tik su mažesniais nei 10000 skaičiais if skc_f > 999 then ilgis := 1000 else if skc_f > 99 then ilgis := 100 else if skc_f > 9 then ilgis := 10 else if skc_f < 10 then ilgis := 1; // while skc_f div j > 0 do begin temp := temp + (skc_f div j mod 10) * ilgis; ilgis := ilgis div 10; j := j * 10; end; if temp > 0 then atbulai := temp else atbulai := 0; end; procedure spausdinti(); begin //kiekvieno skaičiaus skaitmenų sumą; l := 0; WriteLn; WriteLn('-------------------------Skaitmenų sumos-------------------------'); for k := 0 to i do WriteLn(suma(skaiciai[k])); //nelyginių skaičiaus skaitmenų kvadratų sumą; WriteLn; WriteLn('-----------------Nelyginių skaičių kvadratų suma-----------------'); for k := 0 to i do if kvadratas(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(kvadratas(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų; WriteLn; WriteLn('------------------------Lyginiai skaičiai------------------------'); for k := 0 to i do if lyginiai(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(lyginiai(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; WriteLn; WriteLn('-Skaičiai kurių did. skaitmuo didesnis nei skaitemnų suma be jo-'); for k := 0 to i do if did_skc(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(did_skc(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //skaičius perrašytus atbulai; WriteLn; WriteLn('-------------------------Atbuli skaičiai-------------------------'); for k := 0 to i do if atbulai(skaiciai[k]) <> 0 then WriteLn(atbulai(skaiciai[k])); end; begin i := 0; skc := 1; WriteLn('Labas, įvesk skaičių arba nieko nedarysiu >:|'); while skc <> 0 do begin ReadLn(skc); skaiciai[i] := skc; i := i + 1; end; i := i - 2; // Taip jau reikia... spausdinti(); Readln; // Kad neišsijungtų end.

Užduotis ne iš lengvųjų taigi ir kodas bus ne iš lengvųjų :/
 

program Progrrrama; var i, j, k, l : integer; skc : integer; skaiciai : array[0..100] of integer; function suma(skc_f : integer) : integer; var temp : integer; begin temp := 0; j := 1; while skc_f div j > 0 do begin temp := temp + skc_f div j mod 10; j := j * 10; end; suma := temp; end; function kvadratas(skc_f : integer) : integer; var temps : integer; begin temps := 0; j := 1; if skc_f mod 2 > 0 then begin //Nelyginis ;] while skc_f div j > 0 do begin temps := temps + ((skc_f div j mod 10) * (skc_f div j mod 10)); j := j * 10; end; end; kvadratas := temps; end; function lyginiai(skc_f : integer) : integer; begin j := 1; if skc_f mod 2 <= 0 then lyginiai := skc_f else lyginiai := 0; end; function did_skc(skc_f : integer) : integer; var did : integer; begin //tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; j := 1; did := 0; while skc_f div j > 0 do begin if skc_f div j mod 10 > did then did := skc_f div j mod 10; j := j * 10; end; if suma(skc_f) - did < did then did_skc := skc_f else did_skc := 0; end; function atbulai(skc_f : integer) : integer; var temp, ilgis : integer; begin //skaičius perrašytus atbulai; j := 1; temp := 0; // Kolkas dirbs tik su mažesniais nei 10000 skaičiais if skc_f > 999 then ilgis := 1000 else if skc_f > 99 then ilgis := 100 else if skc_f > 9 then ilgis := 10 else if skc_f < 10 then ilgis := 1; // while skc_f div j > 0 do begin temp := temp + (skc_f div j mod 10) * ilgis; ilgis := ilgis div 10; j := j * 10; end; if temp > 0 then atbulai := temp else atbulai := 0; end; procedure spausdinti(); begin //kiekvieno skaičiaus skaitmenų sumą; l := 0; WriteLn; WriteLn('-------------------------Skaitmenų sumos-------------------------'); for k := 0 to i do WriteLn(suma(skaiciai[k])); //nelyginių skaičiaus skaitmenų kvadratų sumą; WriteLn; WriteLn('-----------------Nelyginių skaičių kvadratų suma-----------------'); for k := 0 to i do if kvadratas(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(kvadratas(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //tik tuos skaičius, kurie sudaryti iš lyginių skaitmenų; WriteLn; WriteLn('------------------------Lyginiai skaičiai------------------------'); for k := 0 to i do if lyginiai(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(lyginiai(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //tik tuos skaičius, kurių didžiausias skaitmuo didesnis už skaičiaus skaitmenų sumą be jo; WriteLn; WriteLn('-Skaičiai kurių did. skaitmuo didesnis nei skaitemnų suma be jo-'); for k := 0 to i do if did_skc(skaiciai[k]) <> 0 then begin l := l + 1; WriteLn(did_skc(skaiciai[k])); end; if l = 0 then WriteLn('Tokių skaičių nėra.'); l := 0; //skaičius perrašytus atbulai; WriteLn; WriteLn('-------------------------Atbuli skaičiai-------------------------'); for k := 0 to i do if atbulai(skaiciai[k]) <> 0 then WriteLn(atbulai(skaiciai[k])); end; begin i := 0; skc := 1; WriteLn('Labas, įvesk skaičių arba nieko nedarysiu >:|'); while skc <> 0 do begin ReadLn(skc); skaiciai[i] := skc; i := i + 1; end; i := i - 2; // Taip jau reikia... spausdinti(); Readln; // Kad neišsijungtų end.

Sveiki forumiečiai!
 
Norėčiau prisistatyti, taigi esu Giedrius, man 17-metų, duomiuosi IT, programavimu, web kūrimu.
Kolkas mokausi gimnazijoje, bet baigęs ją žadu stoti į programavimo mokyklą užsienyje.
 
Į šį forumą užklydau draugo pasiūlymu, kolkas dar sunkiai gaudausi bet pradėdu suprasti kur čia kas :)
Apie save : dažniau mėgstu skaityti forumą, nei rašyti jame, nors jei turiu ką rimto parašyti tai būtinai parašau, taipogi mėgstu laisvalaikiu programuoti, moku C#/php/sql, esu labai darbštus, žingeidus, mėgstu mokytis savarankiškai. Dabar mokausi html/xhtml/css/js, sekasi gan gerai!
 
O dabar prie esmės, ko aš tikiuosi iš šio forumo ir šio forumo narių, taigi norėčiau surasti žmogų kuriam reiktų mano pagalbos, iškart pasakau - dizainas ne mano sritis, labiau esu algoritmeris (wtf?). Taigi, norėčiau padėti kam nors, bet tuo pačiu kai reiktų , kad tas žmogus užvestų mane ant kelio, kaip sakant paslauga už paslaugą. Na ir aišku kaip kiekvienas jaunas žmogus norėčiau uždirbti, kad ir nedaug, bet ir litas pinigas :)
Dėkoju, kad skaitėte, tai tiek.
 
Iki susitiko kitose temose! :)

Duota: rombas
a = 13,5
d1 : d2 = 3:4 Čia d tai įstrižainės
 
Rasti: d1, d2
Sprendimas:
 
pagal Pitagoro teoremą!
 
a2 = (1,5d)2 + (2d)2
13,52 = 2,25d2 + 4d2
6,25d2 = 182,25 / 6,25
d2 = 29,16
d = 5,4
 
Bet čia dar nepabaiga, nes d1 turi turėti 3 tokius vienetus, o d2 4, taigi:
d1 = 5,4 * 3 = 16,2
d2 = 5,4 * 4 = 21,6

Duota: rombas
a = 13,5
d1 : d2 = 3:4 Čia d tai įstrižainės
 
Rasti: d1, d2
Sprendimas:
 
pagal Pitagoro teoremą!
 
a2 = (1,5d)2 + (2d)2
13,52 = 2,25d2 + 4d2
6,25d2 = 182,25 / 6,25
d2 = 29,16
d = 5,4
 
Bet čia dar nepabaiga, nes d1 turi turėti 3 tokius vienetus, o d2 4, taigi:
d1 = 5,4 * 3 = 16,2
d2 = 5,4 * 4 = 21,6

Sveiki forumiečiai!
 
Norėčiau prisistatyti, taigi esu Giedrius, man 17-metų, duomiuosi IT, programavimu, web kūrimu.
Kolkas mokausi gimnazijoje, bet baigęs ją žadu stoti į programavimo mokyklą užsienyje.
 
Į šį forumą užklydau draugo pasiūlymu, kolkas dar sunkiai gaudausi bet pradėdu suprasti kur čia kas :)
Apie save : dažniau mėgstu skaityti forumą, nei rašyti jame, nors jei turiu ką rimto parašyti tai būtinai parašau, taipogi mėgstu laisvalaikiu programuoti, moku C#/php/sql, esu labai darbštus, žingeidus, mėgstu mokytis savarankiškai. Dabar mokausi html/xhtml/css/js, sekasi gan gerai!
 
O dabar prie esmės, ko aš tikiuosi iš šio forumo ir šio forumo narių, taigi norėčiau surasti žmogų kuriam reiktų mano pagalbos, iškart pasakau - dizainas ne mano sritis, labiau esu algoritmeris (wtf?). Taigi, norėčiau padėti kam nors, bet tuo pačiu kai reiktų , kad tas žmogus užvestų mane ant kelio, kaip sakant paslauga už paslaugą. Na ir aišku kaip kiekvienas jaunas žmogus norėčiau uždirbti, kad ir nedaug, bet ir litas pinigas :)
Dėkoju, kad skaitėte, tai tiek.
 
Iki susitiko kitose temose! :)

Sveiki forumiečiai!
 
Norėčiau prisistatyti, taigi esu Giedrius, man 17-metų, duomiuosi IT, programavimu, web kūrimu.
Kolkas mokausi gimnazijoje, bet baigęs ją žadu stoti į programavimo mokyklą užsienyje.
 
Į šį forumą užklydau draugo pasiūlymu, kolkas dar sunkiai gaudausi bet pradėdu suprasti kur čia kas :)
Apie save : dažniau mėgstu skaityti forumą, nei rašyti jame, nors jei turiu ką rimto parašyti tai būtinai parašau, taipogi mėgstu laisvalaikiu programuoti, moku C#/php/sql, esu labai darbštus, žingeidus, mėgstu mokytis savarankiškai. Dabar mokausi html/xhtml/css/js, sekasi gan gerai!
 
O dabar prie esmės, ko aš tikiuosi iš šio forumo ir šio forumo narių, taigi norėčiau surasti žmogų kuriam reiktų mano pagalbos, iškart pasakau - dizainas ne mano sritis, labiau esu algoritmeris (wtf?). Taigi, norėčiau padėti kam nors, bet tuo pačiu kai reiktų , kad tas žmogus užvestų mane ant kelio, kaip sakant paslauga už paslaugą. Na ir aišku kaip kiekvienas jaunas žmogus norėčiau uždirbti, kad ir nedaug, bet ir litas pinigas :)
Dėkoju, kad skaitėte, tai tiek.
 
Iki susitiko kitose temose! :)