mantasurnieza

Arba aš nesupratau arba suklydai tu. Aš sprendinio vertę apibrėžiau taip:
 
n - paskutinė nepanaudota slidė;
p - sudarytų porų skaičius;
 
k (n, p) = begalybe; , kai n < 2*p
k (n, p) = l[1] - l[2]....+ l[n - 1] - l[n]; , kai 2*p = n
k (n, p) = min (k(n-1, p), k(n-2, p-1) + l[n] - l[n-1]); , kitais atvejais.
 
sprendinio vertei rasti pasirašiau funkciją:
 

function l (n, p : integer; arg : arr) : longint; var i : integer; begin if n < 2*p then l := maxint; else if 2*p = n then begin l := 0; for i := 1 to n do if i mod 2 = 0 then l += arg[i].ilgis else l -= arg[i].ilgis; end else l := min(l(n-1, p, arg), l(n-2, p-1, arg) + arg[n].ilgis - arg[n-1].ilgis); end;
 
Lyg ir veikia. Jei gali, paaiškink smulkiau apie tą masyvą kur aiškinai ir kaip aš iš jo atrinksiu sprendinį? Kaip jį susidaryti?

Prieš porą metu esu daręs šitokį uždavinį:
 
Aritmetiniame reiškinyje a ™ b ™ c ™ d ™ e = r operacijų ženklai uždengti. Jame gali būti naudojamos sveikųjų skaičių operacijos +, –, *, div, mod.
 

Parašykite
a) šio uždavinio sprendimo idėją ir
b) programą, kuri rastų, kokie turėtų būti operacijų ženklai, kad lygybė būtų teisinga.
Jei galimi keli variantai, pakanka rasti vieną.


Pradiniai duomenys įrašyti faile duom.txt. Vienintelėje failo eilutėje įrašyti šeši tarpais atskirti sveiki neneigiami skaičiai a, b, c, d, e, r (a, b, c, d, e, r ≤ 3000).
 
Rezultatas – gautas reiškinys arba žodis negalima – įrašomas į failą rez.txt. Reiškinio elementai tarpusavyje atskiriami vienu tarpu.
 
Pastaba. Tarpiniai skaičiavimo rezultatai neperžengia tipo int64 rėžių.
 
Pradinių duomenų ir rezultatų pavyzdys
 
Pradiniai duomenys
 
4 3 2 3 1 6
 
Rezultatas
 
 
4 mod 3 + 2 * 3 – 1 = 6
 
 
 
Vietoj brutinim'o pasirinkau backtracking'ą. Va dar turiu savo programą, gal kils kokia idėja žiūrint.
 

{ Visas reiškinys saugomas masyve. Kiekvienas skaičius ir operatorius sudaro atskirą elementą. Iš viso yra 11 elementų. Grįžimo metodu išbandomi visi galimi operacijų ženklų variantai, arba kol randamas sprendinys. Funkcija, kuri tikrina ar reiškinys teisingas, tikrina iš eilės visus masyvo elementus ir kai randa aritmetinę operaciją ją atlieka. Iš pradžių atliekama daugyba ir dalyba. Kai reiškinyje nebelieka daugybos ir dalybos operatorių, atliekama sudėtis ir atimtis. Atlikus visus veiksmus, lyginama kairė ir dešinė pusės nuo lygybes. Atliekant aritmetinę operaciją, pirmojo operando vietoje įrašomas operacijos rezultatas, ženklo ir antro operando vieta užpildoma dešinėje esančiais elementais. Visi kiti likę dešinieji elementai perstumiami per 2 vietas į kairę. } program urnie126; type masyvas = record ilgis : longint; x : array[1..11] of string; end; //////////////////////////////////// function tikrinti (sk : masyvas) : boolean; var i, j, indeksas : integer; a, b : int64; ats : string; begin tikrinti := false; //Daugyba, dalyba for i := 1 to sk.ilgis do begin // * if sk.x[i] = '*' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a * b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end else // div if (sk.x[i] = 'div') then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a div b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end else // mod if (sk.x[i] = 'mod') then begin val (sk.x[i - 1], a); val (sk.x[i + 1], b); str (a mod b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end; end; // Sudetis, atimtis for i := 1 to sk.ilgis do begin if sk.x[i] = '+' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a + b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end // - else if sk.x[i] = '-' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a - b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end; end; tikrinti := sk.x[1] = sk.x[3]; end; ////////////////////////////////// procedure spręsti (var arg, ats : masyvas; žingsnis : integer; var rasta : boolean); var i : integer; begin if žingsnis = 5 then begin if tikrinti(arg) then begin rasta := true; ats := arg; end; end else begin if not rasta then begin arg.x[žingsnis * 2] := '*'; spręsti(arg, ats, žingsnis + 1, rasta); if arg.x[žingsnis*2+1] <> '0' then arg.x[žingsnis * 2] := 'div'; spręsti(arg, ats, žingsnis + 1, rasta); if arg.x[žingsnis*2+1] <> '0' then arg.x[žingsnis * 2] := 'mod'; spręsti(arg, ats, žingsnis + 1, rasta); arg.x[žingsnis * 2] := '+'; spręsti(arg, ats, žingsnis + 1, rasta); arg.x[žingsnis * 2] := '-'; spręsti(arg, ats, žingsnis + 1, rasta); end; end; end; //////////////////////////////////// var fin, fout : text; ats, skaičiai : masyvas; i, skaitmenų : integer; eilė, sk : string; rasta : boolean; begin assign (fin, 'duom.txt'); reset (fin); assign (fout, 'rez.txt'); rewrite (fout); ReadLn (fin, eilė); skaitmenų := 1; for i := 1 to length(eilė) do begin if eilė[i] <> ' ' then sk := sk + eilė[i] else begin skaičiai.x[skaitmenų] := sk; sk := ''; skaitmenų := skaitmenų + 2; end; end; skaičiai.x[11] := sk; skaičiai.x[10] := '='; skaičiai.ilgis := 11; spręsti (skaičiai, ats, 1, rasta); if rasta then for i := 1 to 11 do Write (fout, ats.x[i], ' ') else Write (fout, 'negalima'); close(fin); close(fout); end.

Prieš porą metu esu daręs šitokį uždavinį:
 
Aritmetiniame reiškinyje a ™ b ™ c ™ d ™ e = r operacijų ženklai uždengti. Jame gali būti naudojamos sveikųjų skaičių operacijos +, –, *, div, mod.
 

Parašykite
a) šio uždavinio sprendimo idėją ir
b) programą, kuri rastų, kokie turėtų būti operacijų ženklai, kad lygybė būtų teisinga.
Jei galimi keli variantai, pakanka rasti vieną.


Pradiniai duomenys įrašyti faile duom.txt. Vienintelėje failo eilutėje įrašyti šeši tarpais atskirti sveiki neneigiami skaičiai a, b, c, d, e, r (a, b, c, d, e, r ≤ 3000).
 
Rezultatas – gautas reiškinys arba žodis negalima – įrašomas į failą rez.txt. Reiškinio elementai tarpusavyje atskiriami vienu tarpu.
 
Pastaba. Tarpiniai skaičiavimo rezultatai neperžengia tipo int64 rėžių.
 
Pradinių duomenų ir rezultatų pavyzdys
 
Pradiniai duomenys
 
4 3 2 3 1 6
 
Rezultatas
 
 
4 mod 3 + 2 * 3 – 1 = 6
 
 
 
Vietoj brutinim'o pasirinkau backtracking'ą. Va dar turiu savo programą, gal kils kokia idėja žiūrint.
 

{ Visas reiškinys saugomas masyve. Kiekvienas skaičius ir operatorius sudaro atskirą elementą. Iš viso yra 11 elementų. Grįžimo metodu išbandomi visi galimi operacijų ženklų variantai, arba kol randamas sprendinys. Funkcija, kuri tikrina ar reiškinys teisingas, tikrina iš eilės visus masyvo elementus ir kai randa aritmetinę operaciją ją atlieka. Iš pradžių atliekama daugyba ir dalyba. Kai reiškinyje nebelieka daugybos ir dalybos operatorių, atliekama sudėtis ir atimtis. Atlikus visus veiksmus, lyginama kairė ir dešinė pusės nuo lygybes. Atliekant aritmetinę operaciją, pirmojo operando vietoje įrašomas operacijos rezultatas, ženklo ir antro operando vieta užpildoma dešinėje esančiais elementais. Visi kiti likę dešinieji elementai perstumiami per 2 vietas į kairę. } program urnie126; type masyvas = record ilgis : longint; x : array[1..11] of string; end; //////////////////////////////////// function tikrinti (sk : masyvas) : boolean; var i, j, indeksas : integer; a, b : int64; ats : string; begin tikrinti := false; //Daugyba, dalyba for i := 1 to sk.ilgis do begin // * if sk.x[i] = '*' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a * b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end else // div if (sk.x[i] = 'div') then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a div b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end else // mod if (sk.x[i] = 'mod') then begin val (sk.x[i - 1], a); val (sk.x[i + 1], b); str (a mod b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end; end; // Sudetis, atimtis for i := 1 to sk.ilgis do begin if sk.x[i] = '+' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a + b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end // - else if sk.x[i] = '-' then begin val (sk.x[i-1], a); val (sk.x[i+1], b); str (a - b, ats); sk.x[i-1] := ats; indeksas := i - 1; for j := i + 2 to sk.ilgis do begin inc(indeksas); sk.x[indeksas] := sk.x[j]; end; sk.ilgis := sk.ilgis - 2; i := i - 1; sk.x[sk.ilgis + 2] := ''; sk.x[sk.ilgis + 1] := ''; end; end; tikrinti := sk.x[1] = sk.x[3]; end; ////////////////////////////////// procedure spręsti (var arg, ats : masyvas; žingsnis : integer; var rasta : boolean); var i : integer; begin if žingsnis = 5 then begin if tikrinti(arg) then begin rasta := true; ats := arg; end; end else begin if not rasta then begin arg.x[žingsnis * 2] := '*'; spręsti(arg, ats, žingsnis + 1, rasta); if arg.x[žingsnis*2+1] <> '0' then arg.x[žingsnis * 2] := 'div'; spręsti(arg, ats, žingsnis + 1, rasta); if arg.x[žingsnis*2+1] <> '0' then arg.x[žingsnis * 2] := 'mod'; spręsti(arg, ats, žingsnis + 1, rasta); arg.x[žingsnis * 2] := '+'; spręsti(arg, ats, žingsnis + 1, rasta); arg.x[žingsnis * 2] := '-'; spręsti(arg, ats, žingsnis + 1, rasta); end; end; end; //////////////////////////////////// var fin, fout : text; ats, skaičiai : masyvas; i, skaitmenų : integer; eilė, sk : string; rasta : boolean; begin assign (fin, 'duom.txt'); reset (fin); assign (fout, 'rez.txt'); rewrite (fout); ReadLn (fin, eilė); skaitmenų := 1; for i := 1 to length(eilė) do begin if eilė[i] <> ' ' then sk := sk + eilė[i] else begin skaičiai.x[skaitmenų] := sk; sk := ''; skaitmenų := skaitmenų + 2; end; end; skaičiai.x[11] := sk; skaičiai.x[10] := '='; skaičiai.ilgis := 11; spręsti (skaičiai, ats, 1, rasta); if rasta then for i := 1 to 11 do Write (fout, ats.x[i], ' ') else Write (fout, 'negalima'); close(fin); close(fout); end.

Jei vienas iš daugiklių yra nulis, visa sandauga lygi nuliui. Kadangi nulis yra sveikasis skaičius, jis irgi įtraukiamas į sandaugą.
-9*(-8)*(-7)...*0*1*2*3...

Sveiki,
 
gal žinot kokių naudingų tutorialų apie wap svetainių kūrima? Arba gali duot baigto web source pastudijuot? :)

Jeigu turi nuotrauka parodyk gal rasiu mieste pirkti pas save, sumokesi uz siuntima,stikline + keli litai man uz pasivaiksciojima po miesta ir atsiusiu :)

V.Mykolaitis-Putinas. „Altorių šešėly“ I dalis. S.Nėris. „Anksti rytą“, „Diedmedžiu žydėsiu“, „Prie didelio kelio“. A.Vaičiulaitis. „Valentina“ ir 5 novelės (pasirinktinai). H. Radauskas. „Strėlė danguje“. E. Hemingvėjus. „Senis ir jūra“ arba „Kam skambina varpai“. M.Remarkas. „Juodasis Obeliskas“, „Vakarų fronte nieko naujo“, „Trys draugai“, „Triumfo arka“ (vienas romanas pasirinktinai). F.Kafka. „Metamorfozė“. A.Kamiu. „Kaligula“ arba „Svetimas“. V.Mačernis. „Vizijos“, „Sonetai“ (rinktinė „Po ūkanotu nežinios dangum“). B.Sruoga. „Dievų miškas“. A.Škėma. „Balta drobulė“ ir 3 novelės (pasirinktinai). J.Grušas. „Barbora Radvilaitė“ arba „Meilė, džiazas ir velnias“. Just.Marcinkevičius. „Mažvydas“. R.Granauskas „Gyvenimas po klevu“, „Jaunučio aukojimas“, „Gyvulėlių dainavimas“, „Duonos valgytojai“. J.Aputis. 5-7 novelės (pasirinktinai); „Vargonų balsas skalbykloje“ arba „Skruzdėlynas Prūsijoje“. V.Juknaitė. „Išsiduosi.Balsu“, „Stiklo šalis“. B.Vilimaitė. 5 novelės (pasirinktinai). S.Šaltenis. „Kalės vaikai“ arba „Duokiškio baladės“. M.Martinaitis. „Kukučio baladės“, „Atmintys“, „Prilenktas prie savo gyvenimo“. J.Vaičiūnaitė. „Nemigos aitvaras“, „Neužmirštuolių mėnesį“, „Debesų arka“ (rinkinys pasirinktinai). S.Geda. „Žalio gintaro vėriniai“ arba kitas rinkinys. N.Miliauskaitė. „Uždraustas įeiti kambarys“, „Sielos labirintas“. T.Venclova. Pasirinktas kūrinys. D.Kajokas. „Dykinėjimai“ (3-5 esė). S.Parulskis. „Nuogi drabužiai“ (3-5 esė), „Trys sekundės dangaus“. Just.Marcinkevičius. „Gyvenimo švelnus prisigaudimas“. A.Marčėnas. „Dulkės“, „Dėvėti“, „Vargšas Jorikas“ (pasirinktinai). Vaižgantas. „Pragiedruliai“(Gondingos kraštas) II. Knygos apie autorius, memuarai, kritikos straipsniai, dienoraščiai J.Vaičiūnaitė. „Vaikystės veidrody“. J.Aistis. „Milfordo gatvės elegijos“. V.Daujotytiė. „Moters dalis ir dalia“. A.Vaičiulaitis. „Knygos ir žmonės“. „Moteris su lauko gėlėmis“ (apie N.Miliauskaitę) S.Matulaitienė.“Poezijos gramatika“. R.Tutlytė. „Eilėraščio skaitymas“. „Skaitome novelę“. J. Marcinkevičius. „Dienoraštis be datų“. V.Kubilius. „XX a. Lietuvių literatūra“. A.Nyka-Niliūnas. „Dienoraščio fragmentai“ (I-II d.). III. Rekomenduotina literatūra A.Kamiu. „Sizifo mitas“. A.Burgess. „Prisukamas apelsinas“. I.Martel. „Pi gyvenimas“. A.Baricco. „City“, „Be kraujo“. S.Germain. „Naktų knyga“. I.Bachmann. „Malina“. „Kitoks Vilius Orvidas“. D.Malauf. „Įsivaizduojamas gyvenimas“. G.Radvilavičiūtė. „Suplanuotos akimirkos“.
 
http://www.daukantas.lt/rlit/rl12kl.pdf
 
Prašom :)

Ignoruok

Ignoruok

Ignoruok

Prisegiau du rar'us. Medžiaga berods visa iš KTU.
CPP.rar
c.rar

ir nešvies

Jaunas bibliotekininkes :)

15 ;)

Sveiki,
Noriu pakviesti visus išbandyti naują Live For Speed žaidimo cruise serverį. Esu jame vienas iš 8 administratorių, serveris neseniai atsinaujino, be administratorių priežiūros lieko retai.
Live Cruise — tai Live For Speed privatus serveris. Serveryje tikslas yra važinėtis ir taip važinėjant rinkti licenzijas (taškus) , pinigus, bei bonusus. Prieš pradedant žaisti Live Cruise serveryje būtinai persiskaityti serverio taisykles bei DUK skyrelį.
 
Serverio puslapis -> Informacija, komanda, forumas, D.U.K.,
Kaip įsirašyti bei nulaužti žaidimą skaitykite DUK skiltyje. Jei kils klausimų dėl prisijungimo - ieškokite administratorių NiEkSaS bei Lenco , mielai Jums padės. Tikiuosi tai nesugadins Jūsų būsimų pažimių ;) P.S. labai smagu lošti su klasės draugais. Pats buvau pasiūlės 3ims klasiokams, keturiese vakarais žiemą važinėjom kartu, emocijų tiek kad sekančią dieną visas pertraukas prašnekėjom dėl pasivažinėjimo. Na žodžių, laukiu. Peace

Sveiki visi uždarbio lankytojai.
 
Taigi norėčiau jums pasiūlyti savo atliekamas paslaugas, šiuo metu ką aš galiu atlikti
 
*Žaidimų serverių diegimas:. (Counter-Strike 1.6 ; Counter-Strike Source ; Lineage 2 ; SA-MP).
*Automatinių sistemų diegimas į serverius. (Labiausiai asocijuojasi Counter-Strike 1.6 serveriams.)
*Dizaino sukodavimas, pritaikymas TVS. (PHP-Fusion V6, V7, WordPress, DLE)
*Informacijos pildymas jūsų tinklapyje:. (Straipsniai, siuntiniai, naujienos)
*Mokėjimai.lt sistemų perašymas į naują specifikaciją.
*Sistemos perašymas iš mokėjimai.lt į fortumo.com arba atvirkčiai
*El. parduotuvių kūrimas
 
Mūsų tinklalapis: www.kurkim.lt
Skype: wypukas
E. paštas: [email protected]

Kartuves

Kaip reikia mokintis kad 9 klasei dėl matematiko paliktų antrais metais? ;) įdėk bent truputį pastangų ir 4 turėt tikrai bus juokas... Ypač 9 klasei...

Sveiki, truputi nusimokiau... ;) Zodziu, su matematika prastai truputi, gavau pataisu, tai sakykit kaip yra, nemanau, kad as cia vienintelis toks. Reiks eit atsiskaityt, nu nemoku tos matematikos ir viskas. Busiu 10-tokas (tikiuosi) :(, pataisos uz 9kl. Tai ar gali taip but, kad del vieninteles matematikos paliktu antriem metam? Seip nesu tas mokyklos "vierchas", su mokytojom sutariu gerai, viskas neblogai, tik vat, matematika :/ Pasisakykit, kaip ten kas?
 
P.S. Dekit minusu kiek norit, delto nuo galvos plauku nesirausiu, tik prasau nepradekit rasinet, kad reik mokytis ir panasiai. Pats zinau.

scamas.

1. "Brolis broliui tuoj padės, kibt į mokslus iš peties!"
2. "Mokytis niekada nebūna per daug"
3. "Jei mokslai tau vienam sunku, kibkime į juos kartu!"
4. "Net ir mokytis gali būti smagu"

Dar, dar, dar kuo daugiau tuo geriau. Kas parašys geriausią šūkį laimės 3USD į PP.

1. "Čia renkasi protingi"
 
2. "Pagalba visiems moksliukams ir ne tik.. "
 
3. "Jei mokytis tai mokytis!"
 
:) :)

Neikit vaikai i mokykla! :)

Žmogus rastas.