BlackJack

Pabandyk pačiame kodo viršuje įterpti eilutę:
 
<?php
 
ini_set('max_execution_time', 300); //300 seconds = 5 minutes
 
?>

Kadangi aiskus skaicius zenklu veiksmams atlikti, todel uztenka tik juos visus perrinkti.
 
Sprendimo ideja pateikta, vienintelis trukumas, kad atliekant dalybos veiksma imama sveika skaiciaus dalis, todel su dalyba ne visada pateikiamas teisingas rezultatas... Kam reikes, tas susitvarkys..
 

#include <iostream> // Spausdinti zenkla lygtyje char zenklas (int veiksmas) { char $r; $r='.'; switch(veiksmas) { case 1 : $r = '+'; break; case 2 : $r = '-'; break; case 3 : $r = '*'; break; case 4 : $r = '/'; break; } return $r; } // Atlikti veiksma su skaiciumi, 1 reiskia - prideti, 2 - atimti, 3 - padauginti, 4 - padalinti void atlikti_veiksma (int skaicius, int veiksmas, int &rezultatas) { switch(veiksmas) { case 1 : // std::cout << "1" << std::endl; rezultatas = rezultatas + skaicius; break; case 2 : // std::cout << "2" << std::endl; rezultatas = rezultatas - skaicius; break; case 3 : // std::cout << "3" << std::endl; rezultatas = rezultatas * skaicius; break; case 4 : // std::cout << "4" << std::endl; rezultatas = int (rezultatas / skaicius ); break; } } int main(int argc, const char * argv[]) { // insert code here... int $i, $j, $x, $y; int $a, $b, $c, $d, $e, $r, $rezultatas; // SKAICIAI PAVYZDZIUI $a = 5; $b = 3; $c = 4; $d = 3; $e = 1; $r = 10; for ($i=1; $i<=4; $i++) { for ($j=1; $j<=4; $j++) { for ($x=1; $x<=4; $x++) { for ($y=1; $y<=4; $y++) { $rezultatas = $a; atlikti_veiksma($b, $i, $rezultatas); atlikti_veiksma($c, $j, $rezultatas); atlikti_veiksma($d, $x, $rezultatas); atlikti_veiksma($e, $y, $rezultatas); if ($rezultatas == $r) { std::cout << $a << zenklas ($i) << $b << zenklas ($j) << $c << zenklas ($x) << $d << zenklas ($y) << $e << " = " << $r << std::endl; } } } } } return 0; }

Žydrūnas Sadauskas - turintis 7 metų rinkodaros ir internetinio marketingo darbo Didžiojoje Britanijoje patirtį. http://www.verslokursai.lt/pranesejai/zydrunas-sadauskas-lektorius-7

Manasis variantas. Gal kam pravers. :) Kartais visai mielai paspręsčiau akademinio tipo pascal, C ar C++ uždavinius už atitinkamą atlygį.
 

program Pascal_Job; const dfilename = 'uzduotis.txt'; Max = 100; Max1 = 100; type Eil = string[20]; Eil2 = string[5]; Mokinys = record pav: Eil; grupe: Eil2; paz: array [1..Max] of integer; pazk: integer; vid: real; idk: integer; end; Mas = array [1..Max1] of Mokinys; procedure Skaityti (var m: mas; var n: integer); var byla: text; i, j : integer; begin Assign (byla, dfilename); Reset (byla); i := 0; while not Eof (byla) do begin i := i + 1; Read (byla, m[i].pav, m[i].grupe); j := 0; while not Eoln (byla) do begin j := j + 1; Read (byla, m[i].paz[j]); end; m[i].pazk := j; Readln (Byla); end; n := i; Close (byla); end; procedure Vidurkiai (var m: mas; mx : integer); var i, j, suma: integer; begin for i := 1 to mx do begin suma := 0; for j := 1 to m[i].pazk do suma := suma + m[i].paz[j]; if (suma > 0 ) then m[i].vid := (suma / m[i].pazk); end; end; procedure PriskirtiID (var m: mas; mx : integer); var i, j: integer; yra : array [1..Max1] of boolean; begin for i := 1 to mx do begin m [i].idk := i; yra [i] := false; end; for i := 1 to mx do begin for j := i+1 to mx do if (m[i].grupe = m [j].grupe) and (not yra[j]) then begin m [j].idk := m[i].idk; yra [j] := true; end; end; end; procedure Spausdinti (m : Mas; n: integer); var i, j: integer; begin for i := 1 to n do begin Write (m[i].pav, m[i].grupe); for j := 1 to m[i].pazk do write (' ', m [i].paz[j]); Writeln; end; end; procedure RSpausdinti (m : Mas; n: integer); var i, j: integer; begin Writeln; for i := 1 to n do for j := 1 to n do if m[j].idk = i then Writeln (m[j].pav, m[j].grupe, m[j].vid:2:2); end; var k: integer; m: mas; begin Skaityti (m, k); Spausdinti (m, k); PriskirtiID (m, k); Vidurkiai (m, k); RSpausdinti (m, k); Readln; end. Uzduotis.txt Burokas Jurgis 5a 8 10 10 Kazlauskas Vytautas 7a 9 5 10 Morkute Rima 9t 9 8 10 Mankute Roma 9t 9 7 10 Petraitis Petras 9r 8 5 9 9 Kazlauskaite Renata 7a 5 10

Marina Melija - "Verslas - tai psichologija".

Aš prieš keletą savaičių, Kaune, Lietuvos Banke į apartą sumečiau savo 3l stiklaini ir vuolia :) Ir mokesčio jokio nebuvo (p.s arba nepastebėjau, kad nurašė kažkiek, bet lygtais nebuvo jokio mokesčio).
O o to aparato darbo laikas:
Pirmadienį - Ketvirtadienį 9.00 - 12.00 ir 12.45 - 15.00
Penktadienį 9.00 - 12 ir 12.45 - 14.00
 
Gal kam pravers :)

Straipsnis įdomus, buvo įdomu paskaityti, bet tuo pačiu supratau kaip tave paveikė (mano nuomone į blogąją pusę) jau ta Amerika. Visų pirma sumenkini savo šaknis ir Lietuvą. Istorija neįdomi, šalies nekenti ir t.t. Na, bet ateity, manau, dar pasikeis šitai. Išvis Ameriką laikai lyg kažkokia stebuklų šalimi, nors paskutiniu metu ta Amerika Pasaulio akyse krinta kas dieną: žodžio laisvės nebėra, pinigus spausdinasi kiek tik prireikia, puola kitas šalis ir kitų žmonių kraują pila į savo automobilių bakus, nepripažįsta bene vieninteliai su Izraeliu Palestinos nepriklausomybės ir t.t. Trumpai- šalis be sąžinės. Aišku gal tau tai ir neturi rūpėti, nes esi eilinis gyventojas, bet JAV turbūt nebeturėtų būti vadinama svajonių šalimi.
Mokslas. Taip JAV kiek žinau vykdomas liberalaus mokslo metodas (nežinau ar gerai čia pavadinau), bet tas liberalumas kartais atsiremia į tokį paprastą dalyką kaip bendras išprusimas. Bent, mes lietuviai žinome turbūt visas šalių sostines žinome, žinome kur tos šalys yra ir t.t. O nueik, paklausinėk amerikiečių kur yra Lietuva. Įdomu kiek atsakys teisingai? Ar tai gerai, ar tai blogai čia jau nuo žmogaus priklauso. Vienam užtenka apsiriboti tiek kiek jam atrodo, kad reikia, kitas gal ir nelabai to norėdamas, bet tą išsilavinimą gauna (turiu omeny, kad Lietuvoje, kad ir tą pačią geografiją mokaisi apie 4 metus turbūt, o JAV kaip minėjai gali pasirinkti kiek tu jos nori).
 
Kas liečia JAV istoriją, ji tuščia ir kaip visada jie išpučia iš to burbulą. Tikroji istorija yra Senovės Graikija, Roma iš ko turbūt ir kilo šių dienų Pasaulis. Gal dėl to jie laiko save Pasaulio bamba, nes mato tik 300 metų atgal menkai suvokdami, jog jau prieš daugiau nei 2000 metų Romoje jau ir kanalizacija buvo ir vandentiekis. Vėlgi pasikartosiu, nuo žmogaus priklauso, gal vienam užtenka ir tų 300 metų, o kitas, kuris nori apie Pasaulį turėti daugiau suvokimo, mielai pasimokys ir 3000 metų istoriją.
 
Neturiu prieš tave nieko blogo, tik man kažkiek tavo požiūris pasirodė labai nepatriotiškas, lyg ir pabėgai iš šalies, bet jos visai nepasiilgsti. Ankščiau ir aš labai norėjau ištrūkti iš Lietuvos, bet augi, keičiasi vertybės, požiūris ir pasidarė miela Lietuva. Gal tik per labai šaltas žiemas norėčiau į šiltus kraštus išvykti :) Na o pakeliauti noras visada yra, buvo ir bus, tai gal kada nors aplankysiu "svajonių šalį".

Kaip suprantu, daugelis iš mūsų turi išmaniuosius telefonus su Android OS. Būtų labai įdomu sužinoti, kokias programas naudojate savo gyvenime, versle, etc.?
Elektroninis paštas, calendar, užrašai evernote, kurie sinchronizuojasi su kompiuteryje esančia programa ir duomenų baze internete, sugarsync, youtube, facebook messenger,.. ? Ką naudojate ir kuo tai yra naudinga? Galbūt kokias išskirtines programas pramogoms? :) Kaip telefono programos padeda Jums gyvenime, versle? :)

Kaip suprantu, daugelis iš mūsų turi išmaniuosius telefonus su Android OS. Būtų labai įdomu sužinoti, kokias programas naudojate savo gyvenime, versle, etc.?
Elektroninis paštas, calendar, užrašai evernote, kurie sinchronizuojasi su kompiuteryje esančia programa ir duomenų baze internete, sugarsync, youtube, facebook messenger,.. ? Ką naudojate ir kuo tai yra naudinga? Galbūt kokias išskirtines programas pramogoms? :) Kaip telefono programos padeda Jums gyvenime, versle? :)

Kaip suprantu, daugelis iš mūsų turi išmaniuosius telefonus su Android OS. Būtų labai įdomu sužinoti, kokias programas naudojate savo gyvenime, versle, etc.?
Elektroninis paštas, calendar, užrašai evernote, kurie sinchronizuojasi su kompiuteryje esančia programa ir duomenų baze internete, sugarsync, youtube, facebook messenger,.. ? Ką naudojate ir kuo tai yra naudinga? Galbūt kokias išskirtines programas pramogoms? :) Kaip telefono programos padeda Jums gyvenime, versle? :)

Kaip suprantu, daugelis iš mūsų turi išmaniuosius telefonus su Android OS. Būtų labai įdomu sužinoti, kokias programas naudojate savo gyvenime, versle, etc.?
Elektroninis paštas, calendar, užrašai evernote, kurie sinchronizuojasi su kompiuteryje esančia programa ir duomenų baze internete, sugarsync, youtube, facebook messenger,.. ? Ką naudojate ir kuo tai yra naudinga? Galbūt kokias išskirtines programas pramogoms? :) Kaip telefono programos padeda Jums gyvenime, versle? :)

Kaip suprantu, daugelis iš mūsų turi išmaniuosius telefonus su Android OS. Būtų labai įdomu sužinoti, kokias programas naudojate savo gyvenime, versle, etc.?
Elektroninis paštas, calendar, užrašai evernote, kurie sinchronizuojasi su kompiuteryje esančia programa ir duomenų baze internete, sugarsync, youtube, facebook messenger,.. ? Ką naudojate ir kuo tai yra naudinga? Galbūt kokias išskirtines programas pramogoms? :) Kaip telefono programos padeda Jums gyvenime, versle? :)

Šiaip paprastas pavyzdys būtu - jei su indvidualios veiklos pažyma uždirbu tarkim 20 000 į metus,
tai leidžiamais atskaitymais galiu pasirinkti 30 %. Pasirinkus 30%, reiškia kad nereikia pateikti išlaidas įrodančių dokumentų. 20 000 - 30 % = 14 000 lt. Tai nuo tų 14 000 / 2 ir dauginam iš 28.5 VSD ir 9 % PSD, tik gyvenotojų pajamų mokestis 5% arba 15% skaičiuojamas nuo 14 000 Lt.
Yra išimtys, kad reikia mokėti 15%, tai galima sužinoti VMI pildant deklaracija, priklauso nuo veiklos.
 
Šiandien kompiuteriu užpildžiau deklaraciją. Jau aišku, kiek mokėti GPM, o kiek mokėti VSD ir PSD sužinosiu iš SODROS priskirtos konsultantės, kai jau bus nusiųsti duomenys.