Stranica 1 od 2 12 PosljednjiPosljednji
Prikazujem rezultate 1 do 30 od 39

Tema: International Olympiad in Informatics (IOI) 2007 - Croatia

  1. #1
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468

    International Olympiad in Informatics (IOI) 2007 - Croatia

    S IOI 2007 - Zagreb, CroatiaS- T3h Reportaža

    Istina, olimpijada je trajala od 15. do 22., i otkako sam se vratio, htio sam napisati nešto o svemu tome, ali nikako da uhvatim vremena za to, pa vam tako sad, sa zakašnjenjem, donosim svoju reportažu ovog, vjerovatno najvažnijeg, godišnjeg međunarodnog takmičenja programera.

    Za one koji ne znaju o čemu se radi, IOI je međunarodno/svjetsko takmičenje iz oblasti informatike, ili bolje reći, programiranja, koje se održava svake godine u jednoj od zemalja učesnica. Prije ovog takmičenja je održano 18 takvih u zemljama širom svijeta (Argentina, Južnoafrička Republika, Kina, USA, Meksiko, itd.), a ove godine se Hrvatska izborila da bude domaćin. Dobar dio razloga je vjerovatno i odličan uspjeh hrvatskih takmičara na poslednjih par IOI-ova. Istina, s moje tačke gledišta, ljepše bi mi bilo otići malo u Argentinu, npr., nego u Zagreb, u kome sam ionako bar jednom godišnje, ali to je sad već čista subjektivnost.


    I dan - srijeda, 15. avgust
    Mi iz Bosne smo išli vozom - ekipa iz Sarajeva (Marko, Ibrahim, Emina i Leo the Team Leader) je krenula ranije, da bi prolazili kroz doboj oko 1:00 pm, kada smo se ukrcali ja i profesorica Nada, koja je prethodno doputovala iz Bijeljine. Te tako krenusmo na dug i naporan put do Zagreba. Nekad naveče oko 7 smo napokon stigli, i bili dočekani od strane Maje, koja nam je bila dodijeljena kao vodič. Zanimljivo je bilo što nas je već sve znala ko je ko, jer su svim vodičima već ranije dodijeljene ekipe, te su svi imali imena i slike, tako da se spreme unaprijed. Nedugo zatim smo kombijem prevezeni do doma Stjepan Radić, gdje nam je bio smještaj. Napokon smo dobili šansu ostaviti torbe u sobe, te smo zatim otišli u kantinu na večeru (hranu pohvaljujem). Pogodite šta je bilo slijedeće.


    II dan - četvrtak, 16. avgust

    S S S S

    Ranom zorom (7:00 am) odosmo na doručak svi i dalje umorni i nikakvi. Od 8 do 11 je po programu bio "practice session", gdje smo manje-više samo došli vidjeti halu, kompove i sl. Hala je ogromna, jako jako mnogo kompova na jednom mjestu... Inače, kompove je ustupio Končar. Na njima se vrtila zadnja Fedora (Linux distribucija, ako koji n00b ne zna), te se radilo u KDevelopu, FreePascalu i još po nečemu. Bilo je tu i par practice zadataka, koje mi se nije dalo raditi. Trebala mi je kafa. U 11 je počela ceremonija otvaranja, na kojoj nam je, između ostalog, hrvatsku himnu otpjevao, ni manje, ni više, već - Jacques Houdek. Ostatak dana smo lutali uokolo i sjedili po kafićima - nije nam mnogo šta više ni preostajalo.


    III dan - petak, 17. avgust



    U treći dan je već postalo ozbiljno - prvi dan takmičenja, prva tri zadatka (Aliens, FloodSi Sails). Agonija je trajala od 8:30 am do 13:30 pm. Prvi zadatak, Aliens, je bio relativno jednostavan, skoro čista logika, međutim, zbog jedne site, ali kobne, greške u shvatanju zadatka sam napisao kod koji radi samo u nekoliko slučajeva. Što je najgore, kada bih samo obrisao par linije iz njega, bez da išta drugo pipnem, mislim da bi mu se efikasnost udvostručila. I to do dan danas nisam prežalio. O ostala dva zadatka, pogađate, pojma nisam imao. Poslije ručka i odmora smo otišli malo u grad sa reprezentacijom Kirgistana (na slici) i njihovim vodičem (da, ona plava). Jedan od njih me pitao koja je vjera u Bosni, pa kad sam mu ja ispričao kakvih tu sve nacija i religija ima, zbunjeno me pogleda i reče "Pa mnogo vas tu ima...".


    IV dan - subota, 18. avgust

    S S S S

    Četvrti dan je prošao u zahebanciji, uglavnom. Najznačajniji je bio "open-air party" na Jarunu, kog možete vidjeti na slikama. Uglavnom, bilo je muzike, pjevanja, pizze, ćevapa, sporta... da, čak i sporta. To je bio prizor za vidjeti, stvarno. Međutim, na stranu fudbal, odbojka, badminton, stoni tenis... najveća rulja je bila oko - šaha. Mislim, ljudi dođu u prirodu, tu je muzika i sve, vesela atmosfera, i onda igraju šah. Meni neshvatljivo. Međutim, kad bolje razmislim - tu je bio i jedan Korejac (čini mi se) koje je, kud god bi pošao, sa sobom nosio Rubikovu kocku i vrtio je stalno. Mogla se tu snimiti alternativna verzija spota za White & Nerdy, definitivno. Takođe, kasnije, dok smo sjedili u jednom od kafića u City Centeru, Leo je mijenjao SIM karticu u svom telefonu, te sam mu na zadnjem dijelu maske uočio nešto što sam svakako morao uslikati - koliko još ljudi ima to na telefonu?


    V dan - nedelja, 19. avgust

    S S

    Drugi dan takmičenja, druga tri zadatka (Miners, PairsSi Training), drugih 5 sati agonije. Prva dva zadatka su se mogla riješiti nekim rudimentarnim rješenjima, međutim, to će raditi samo u par slučajeva. Pairsi su se mogli brute-forcati u prvih par testnih primjera. To rješenje bi teoretski riješilo svaki testni primjer, međutim, surova vremenska ograničenja prisiljavaju na mnogostruko složenija rješenja koja će raditi brže. Nešto slično je bilo i s drugim zadatkom, dok je training bio prilično užasan - svaka čast onima koji su riješili. Na veče smo imali neki party u domu. Koliko sam bio smoren i iscrpljen, trebala su mi samo tri Tuborga da se dohvatim karaoka. Ne pitajte.


    VI dan - ponedeljak, 20. avgust

    S S S S

    Šesti dan je bio obilježen odlaskom na Plitvička jezera. Bio je to ujedno i najnaporniji dan. Valjalo je ustati prije 6, doručkovati i onda u autobus... Kad smo stigli, nakljukali smo se kafama, te krenuli u obilazak. Najupečatljiviji dio je bio kad su nas trpali u one tour-busove - nagurali su unutra bar 3x više ljudi nego što je predviđeno. Ko je mogao disati, dobio je dobro mjesto. Da sam našao organizatora, poljubio bih ga u čelo. Uglavnom, previše hodanja i mrcvarenja da bi zapravo uživali u svemu tome. Krajolik jeste prelijep, ali meni tada nije bilo ni do čega. Vjerujem, ni mnogim drugim. Na povratku smo svratili i do "Nikola Tesla Memorial Centra". U kuću nisam ni ušao - previše ljudi je bilo unutra, a ja sam bio preiscrpljen i samo sam htio sav svjež vazduh koji sam mogao dobiti.


    VII dan - utorak, 21. avgust

    S S S S S

    Ovo je bio dan sa "najrjeđim" programom - osim obroka, imali smo samo još završnu ceremoniju na rasporedu. Tada sam prespavao doručak i pola ručka. Da me nisu probudili, mislim da bih i večeru prespavao. Slobodno vrijeme smo iskoristili za još malo švrljanja po gradu. Te uveče, oko 6:00 pm, dođosmo i do završne ceremonije. Pošto smo svi već znali svoje "skromne" bodove, nismo se ničemu ni nadali, pa smo samo opušteno gledali kako ljudi izlaze na binu i kupe medalje. Najveći pwner je bio 13-ogodišnjak iz Bjelorusije... ne znam ni kako je dospio do takmičenja (valjda je nekako preko reda došao u srednju školu), uglavnom lik je pokupio jednu od zlatnih medalja. Osjećao sam se posjedovano. Prvo mjesto je osvojio Poljak, drugo i treće Kinezi, a četvrti je bio Hrvat, Goran Žužić. Svaka čast pobjednicima, u svakom slučaju. E, kad se sve završilo, bilo se red i pošteno napiti, je l'... U planu je bio neki party, kroz koji smo samo prozujali, i onda otišli dalje "po svome". U čoporu smo bili ja i kolege iz ekipe, Leo, Maja, Ivana (vodič Kirgistana), Petra (njena sestra, vodič Švedske), te dva Šveđana. Kao što vidite, popilo se, zapjevalo se, te zatim lagano taxijem nazad u dom. Noć je bila luda, i dalje smo divljali i po sobama, gledali filmove, kartali - spavali smo svega sat il' dva.


    VIII dan - srijeda, 22. avgust

    Dan odlaska. Ujutro, zadnji zajednički doručak, i nedugo zatim, put do glavnog kolodvora. Bilo je prilično čudno čekati taj voz - u neku ruku, svima je bilo drago što se napokon vraćaju, a opet, bilo nam je teško oprostiti se od Maje, s kojom smo se prilično sprijateljili za tih sedam dana. Cura je stvarno super, stalno je bila s nama, trudila se, vodila nas je gdje god nam je palo na pamet... Njoj još jednom veliko "hvala". Voz je stigao, svi smo se izgrlili s njom, sjeli u voz i napokon krenuli nazad. Nakon dosta sati kunjanja, znojenja i sličnih (ne)aktivnosti, stigosmo u Doboj, gdje smo izašli ja i profesorica Nada. Oprostismo se sa onima koji su produžili do Sarajeva, a i međusobno. Stari je došao po mene autom, te sam za koji minut ponovo bio u home sweet homeu.

    Sve u svemu, nije da se iko od nas proslavio rezultatom, ali nije ni da mi je previše stalo do toga. Dobro sam se proveo, upoznao nove ljude, stekao nove prijatelje. Kako god, nisam se pokajao što sam otišao. Eto, potroših dosta vremena da ovo istipkam i slike uploadam, pa se nadam da je bar nekome bilo zanimljivo čitati. Ako koga još šta interesuje, neka pita. A ja ću se nastaviti nadati da ću se plasirati za slijedeći IOI u Egiptu...

    Official site : Shttp://www.hsin.hr/ioi2007/

  2. #2
    Senior Member My way or the highway Neven <R>'s Avatar
    Datum registracije
    Nov 2005
    Lokacija
    wololo
    Postova
    7.914
    Vidim ja da ti je bilo zabavno, a ja mislio da je to neki über geek event. :D

  3. #3
    Morao si slušati Jacquesa kako pjeva? ne bi ja anyway vidim išla je ekipa iz Bih,lijepo...

  4. #4
    Senior Member Giant leap for forum
    Datum registracije
    Apr 2006
    Postova
    3.022
    Burek je alkos, my man :cheer
    Nadam se da si uživao u Stocku
    Ček, to je bilo informatičko natjecanje ili konvencija Anonimnih alkoholičara ^^

  5. #5
    Mislim da je to jedno nezaboravno iskustvo i sudjelovati, pogotovo bi bilo nekome tko ne zna ništa "o tim tamo stvarima" kojime se vi bavite. Izgleda da je bilo uber zanimljivo.

  6. #6
    Senior Member Small step for mankind
    Datum registracije
    Dec 2006
    Postova
    2.361
    Jipijeja. Bravo Bjurek.

  7. #7
    Senior Member Master Blaster
    Datum registracije
    Jan 2006
    Lokacija
    Pleternica/Požega
    Postova
    4.698
    Kralju dabogda do egipta ošo

    Added: 2 months 13 days 21 hours 21 mins ago
    Updated: 37 years 8 months 17 days 19 hours 31 mins ago - može

  8. #8
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    @Neven <R>, da, to zapravo i jeste bio prilično "über geek event", ali jedna skoro zanemariva manjina ljudi tu, koji nisu über geekovi, se jednostavno morala malo i zabaviti kad su već tu =)

    @Sgt. Bull, to je bilo intenzivno... Kako je još bila opšta zbrka, jedva da ga je ko primijetio kad je izašao na pozornicu. Ja sam se prepao kad iz čista mira zagalami na sav glas "LIJEEEPAAA NAaaša..."

    @Fenrir, i u Stocku i u hostesama =)

    @Arbiter, mogu ti reći da i jeste. Rado bih ponovio.

    @Sajmon & Ps1ho, fala, fala...

  9. #9
    Senior Member My way or the highway
    Datum registracije
    Dec 2006
    Lokacija
    Behind the blue eyes
    Postova
    7.757
    Fora, nije vazno uvijek biti najbolji... nadam se da smo se predstavili u dobrom svijetlu kao domacini.

  10. #10
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao ReiKo
    Fora, nije vazno uvijek biti najbolji... nadam se da smo se predstavili u dobrom svijetlu kao domacini.
    To da. Organizacija je bila dobra, svo osoblje je bilo prijateljski nastrojeno. Istina, bilo je minornih ispada poput one vožnje tour-busom, ali sveukupno - thumb's up od mene.

  11. #11
    Senior Member My way or the highway
    Datum registracije
    May 2006
    Lokacija
    Albonian Asylum
    Postova
    8.050
    13 godišnji bjelorus pobjedio ? Ah taj černobil...

  12. #12
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao Morgoth
    13 godišnji bjelorus pobjedio ? Ah taj černobil...
    Nije pobijedio. Medalje se ovdje ne dijele tracidionalno - po jedna zlatna, srebrena, i brončana. Medalja ima mnogo - 30 zlatnih, npr. Srebra i bronze ima još više. Taj mali, konkretno, je bio 20. mjesto.

  13. #13
    Senior Member Small step for mankind
    Datum registracije
    Aug 2007
    Lokacija
    Latitude:45.286° Longitude:18.688°
    Postova
    2.150
    = Citat = Izvorno postao Burek_fr0m_SPACE
    = Citat = Izvorno postao Morgoth
    13 godišnji bjelorus pobjedio ? Ah taj černobil...
    Nije pobijedio. Medalje se ovdje ne dijele tracidionalno - po jedna zlatna, srebrena, i brončana. Medalja ima mnogo - 30 zlatnih, npr. Srebra i bronze ima još više. Taj mali, konkretno, je bio 20. mjesto.

    lol XD Ja općenito mrzim natjecanja... Smatram da kad te netko unervozi da ne možeš pokazati istinski potencijal... Napravi nešto korisno, a ne tamo se utrkivati i pisati neke kurce koje nemaju smislu nikom poslije
    Gdje je nestao mozak
    gdje se skriva on
    iz vagona pameti
    na tračnice ispao...

  14. #14
    Senior Member My way or the highway Neven <R>'s Avatar
    Datum registracije
    Nov 2005
    Lokacija
    wololo
    Postova
    7.914
    A čuj tak ti je i na poslu, pod konstantnim si pritiskom pa je to s neke strane i dobra provjera kako se ljudi ponašaju u stresnim situacijama.

  15. #15
    Senior Member Small step for mankind
    Datum registracije
    Aug 2007
    Lokacija
    Latitude:45.286° Longitude:18.688°
    Postova
    2.150
    = Citat = Izvorno postao Neven <R>
    A čuj tak ti je i na poslu, pod konstantnim si pritiskom pa je to s neke strane i dobra provjera kako se ljudi ponašaju u stresnim situacijama.
    Da ali na poslu, posebice u gaming industriji nije prevelik pritisak, a može se rok potisnuti,a a ako malo zajebeš uvijek imaš kolege koji će te ponekad izbaviti, a ako imaš dodatnog posla, niko ti ne brani da radiš prekovremeno (mukte ne? ), i kao zadnje, zadaci nisu retardirano dosadni i nerijetko teški...
    Gdje je nestao mozak
    gdje se skriva on
    iz vagona pameti
    na tračnice ispao...

  16. #16
    Jako lijep report, svaka čast. Rješio aliens za pola sata

  17. #17
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao Shadowhell
    Jako lijep report, svaka čast. Rješio aliens za pola sata
    Heh, a kako si ga testirao? Daj code, ako može, pa ću ti reći jesi li riješio.

  18. #18
    Code:
    program aliens;
    var n,x,y,xd,xl,yd,xs,ys,m,xs1,ys1,q,z,xr,yr:longint;
        odg:string;
    begin
    readln(n,x,y);
    xd:=x;
    xl:=x;
    yd:=y;
    inc(m);
    repeat
    inc(xd);
    if xd<=n then begin
            writeln('examine ',xd,' ',y);
            readln(odg);
            if odg[1]='t' then inc(m);
    end else break;
    until odg[1]='f';
    dec(xd);
    repeat
    dec(xl);
    if xl>=1 then begin
            writeln('examine ',xl,' ',y);
            readln(odg);
            if odg[1]='t' then inc(m);
    end else break;
    until odg[1]='f';
    inc(xl);
    repeat
    dec(yd);
    if yd>=1 then begin
            writeln('examine ',x,' ',yd);
            readln(odg);
    end else break;
    until odg[1]='f';
    inc(yd);
    xs:=xl+m div 2;
    ys:=yd+m div 2;
    xs1:=xs;
    ys1:=ys;
    repeat
    inc(xs1,2*m);
    if xs1<=n then begin
            writeln('examine ',xs1,' ',ys);
            readln(odg);
            if odg[1]='t' then inc(q);
    end else break;
    until odg[1]='f';
    repeat
    inc(ys1,2*m);
    if ys1<=n then begin
            writeln('examine ',xs,' ',ys1);
            readln(odg);
            if odg[1]='t' then inc(z);
    end else break;
    until odg[1]='f';
    case q of
    0: begin
            xr:=xs-m;
            xl:=xs-4*m;
            if xl>=1 then begin
                    writeln('examine ',xl,' ',ys);
                    readln(odg);
                    if odg[1]='t' then xr:=xs-2*m;
            end;
       end;
    1: begin
            xr:=xs+m;
            xl:=xs-2*m;
            if xl>=1 then begin
                    writeln('examine ',xl,' ',ys);
                    readln(odg);
                    if odg[1]='t' then xr:=xs;
            end;
      end;
    2: xr:=xs+2*m;
    end;
    case z of
    0: begin
            yr:=ys-m;;
            yd:=ys-4*m;
            if yd>=1 then begin
                    writeln('examine ',xs,' ',yd);
                    readln(odg);
                    if odg[1]='t' then yr:=ys-2*m;
            end;
      end;
    1: begin
            yr:=ys+m;
            yd:=ys-2*m;
            if yd>=1 then begin
                    writeln('examine ',xs,' ',yd);
                    readln(odg);
                    if odg[1]='t' then yr:=ys;
            end;
      end;
    2: yr:=ys+2*m;
    end;
    writeln('solution ',xr,' ',yr);
    end.
    Samo što programiram u Pascalu kao što vidiš

  19. #19
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    Uf, namučih se s čitanjem Pascala... Da, rješenje bi vjerovatno teoretski radilo. Međutim, nije optimalno. Možda si preskočio onaj dio koji kaže da se alienski uređaj može iskoristiti maksimalno 300 puta. A ti bi čas posla spiskao to na iole većoj njivi. Ako mi se bude dalo, napisaću i ja svoje rješenje.

  20. #20
    U najgorem slučaju moj program treba oko 202 puta iskoristiti uređaj, ali nhf, teško je čitati ovo..

  21. #21
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao Shadowhell
    U najgorem slučaju moj program treba oko 202 puta iskoristiti uređaj, ali nhf, teško je čitati ovo..
    Ili ja ne znam čitati Pascal ili ti nisi u pravu. Da se ja ne bih mučio s kodom, ti mi reci - kad tražiš lijevo i desno da skužiš gdje si u kvadratiću, je l' se pomijeraš za po jedno polje? Pošto je za kvadratić šahovnice donja granica 3, a gornje praktički nema, tj. šahovnica može zauzeti i cijelu njivu (max 2 000 000 000). Ako ispituješ polje po polje, čas posla spiskaš limit ako je šahovnica velika.

  22. #22
    Znači ovako..

    Imamo koordinate jednog polja u kvadratiću.. pomičem se udesno, dolje, lijevo od tog kvadratića i provjeravam je li trava ugažena.

    Time dobijem M ( kvadratići su MxM )

    imam M i minimalni y kao i minimalni x čime dobijem koordinate središta TOG kvadratića..

    Za sve ovo trebalo mi je 100xuređaj ( vodoravno provjeravanje ) + u najgorem slučaju također 100xuređaj ( okomito provjeravanje )

    / piše da je max mogući M=100 /

    Kada znam M mogu se slobodno pomicati od središta poznatog kvadratića i provjeravati njegov položaj u odnosu na druge..

    To i radim, pomičem se u koracima od 2*m udesno i gore kako bi odredio koordinate središnjeg kvadratića u odnosu na ovaj.. to je max 4xuređaj

    Time odredim koliko je ugaženih kvadratića lijevo i gore od poznatoga ( q i z )

    Po tome ( uz još nešto provjeravanja što ne bi trebalo biti više od 4xuređaj ) određujem x i y koordinatu središta traženoga kvadratića..

    Jedino ako sam krivo shvatio gornju granicu M, iz one rečenice ( što je vjerojatno sad kad gledam )

  23. #23
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao Shadowhell
    / piše da je max mogući M=100 /
    Da, za 40 bodova, tj. parcijalno rješenje. Za 100 bodova se treba malo više potruditi.

  24. #24
    Kužim sad.. budem kasnije pokušao efikasnije..

  25. #25
    Senior Member No Mercy Lord Jambrek's Avatar
    Datum registracije
    Oct 2006
    Lokacija
    Kod tvoje mame u krevetu
    Postova
    6.948
    Prvo sam mislio da je neki koncert ili party jer sam prvo pogledao thumbnailove i onda odscrollam gore i vidim "natjecanje u programiranju" mislim se wtf? Hostese na G33|/ eventu? Al dobro, vidim da nisu svi neki žgoljavi štrebečići s masnom kosom!

    Svaka čast na sudjelovanju, ali kad si već bio u zagrebu, mogao si zvat na pivu
    Mislio sam da sam lud, ali glasovi u glavi su mi rekli da nisam!

  26. #26
    Senior Member Small step for mankind
    Datum registracije
    Dec 2006
    Postova
    2.361
    Da, mogo si častit, odvest me u Mali Medo i platit mi pivu, jer meni nedaju jer nemam 18.

  27. #27
    Senior Member Small step for mankind
    Datum registracije
    Aug 2007
    Lokacija
    Latitude:45.286° Longitude:18.688°
    Postova
    2.150
    Cura je stvarno super, stalno je bila s nama, trudila se, vodila nas je gdje god nam je palo na pamet... Njoj još jednom veliko "hvala".
    Ništa se nije desilo? Razocharao si me jebachu hehhe, šalim se... gg na reportu
    Gdje je nestao mozak
    gdje se skriva on
    iz vagona pameti
    na tračnice ispao...

  28. #28
    Senior Member Giant leap for forum
    Datum registracije
    Oct 2006
    Lokacija
    Hostile universe
    Postova
    3.468
    = Citat = Izvorno postao Sajmon Drimr
    Da, mogo si častit, odvest me u Mali Medo i platit mi pivu, jer meni nedaju jer nemam 18.
    Uf... ja bih se volio preseliti u Malog Medu. Vg pivo je tamo. A inače, zbog prilično gustog programa i nehumane iscrpljenosti sam propustio da se nađem s nekim ljudima i prilično mi je žao... Mislim, da je do mene bilo, našao bih se ja sa svima vama - ali nije bilo do mene.

  29. #29
    Senior Member My way or the highway Neven <R>'s Avatar
    Datum registracije
    Nov 2005
    Lokacija
    wololo
    Postova
    7.914
    Burek, kad si u ZG sljedeći put častiš nas bačvom gričke. Barem one punoljetne :]

  30. #30
    Stotka

    Code:
    program aliens;
    var n,xs,ys,m,q,z,xr,yr,p1,p2:longint;
        odg:string;
        okxd,okxl,oky,okz:boolean;
        p,xs1,ys1,x,y,yd,xl,xd,xmin,xmax,ymin:int64;
    begin
    readln(n,x,y);
    xl:=x;
    xd:=x;
    yd:=y;
    if (n-xd)>(n div 5) then xmax:=xd+n div 5 else xmax:=n;
    if xmax=n then begin
            writeln('examine ',xmax,' ',y);
            readln(odg);
            if odg[1]='t' then okz:=true;
    end;
    xmin:=xl-n div 5;
    if xmin<1 then xmin:=1;
    ymin:=yd-n div 5;
    if ymin<1 then ymin:=1;
    repeat
            repeat
                    if okxd then break;
                    p:=(xd+xmax) div 2;
                    if okz and (p=n-1) then inc(p);
                    writeln('examine ',p,' ',y);
                    readln(odg);
                    if odg[1]='t' then xd:=p else xmax:=p;
                    p1:=p;
            until p=(xd+xmax) div 2;
            repeat
                    if okxl then break;
                    p:=(xmin+xl) div 2;
                    writeln('examine ',p,' ',y);
                    readln(odg);
                    if odg[1]='t' then xl:=p else xmin:=p;
                    p2:=p;
            until p=(xmin+xl) div 2;
            repeat
                    if oky then break;
                    p:=(ymin+yd) div 2;
                    writeln('examine ',x,' ',p);
                    readln(odg);
                    if odg[1]='t' then yd:=p else ymin:=p;
            until p=(ymin+yd) div 2;
            if okxd=false then begin
                    writeln('examine ',(x+xmax) div 2,' ',y);
                    readln(odg);
                    case odg[1]Sof
                    't': begin
                            writeln('examine ',(x+(x+xmax) div 2) div 2,' ',y);
                            readln(odg);
                            if odg[1]='t' then okxd:=true else begin
                                    xmax:=(x+(x+xmax) div 2) div 2;
                                    xd:=x;
                            end;
                         end;
                    'f': begin
                            xmax:=(x+xmax) div 2;
                            xd:=x;
                         end;
                    end;
            end;
            if okxl=false then begin
                    writeln('examine ',(xmin+x) div 2,' ',y);
                    readln(odg);
                    case odg[1]Sof
                    't': begin
                            writeln('examine ',(x+(xmin+x) div 2) div 2,' ',y);
                            readln(odg);
                            if odg[1]='t' then okxl:=true else begin
                                    xmin:=(x+(xmin+x) div 2) div 2;
                                    xl:=x;
                            end;
                         end;
                    'f': begin
                            xmin:=(x+xmin) div 2;
                            xl:=x;
                         end;
                    end;
            end;
            if oky=false then begin
                    writeln('examine ',x,' ',(ymin+y) div 2);
                    readln(odg);
                    case odg[1]Sof
                    't': begin
                            writeln('examine ',x,' ',(y+(ymin+y) div 2) div 2);
                            readln(odg);
                            if odg[1]='t' then oky:=true else begin
                                    ymin:=(y+(ymin+y) div 2) div 2;
                                    yd:=y;
                            end;
                         end;
                    'f': begin
                            ymin:=(ymin+y) div 2;
                            yd:=y;
                         end;
                    end;
            end;
    until okxd and okxl and oky;
    if p2=1 then dec(p2);
    m:=p1-p2;
    xs:=xl+m div 2;
    ys:=yd+m div 2;
    xs1:=xs;
    ys1:=ys;
    repeat
            inc(xs1,2*m);
            if xs1<=n then begin
                    writeln('examine ',xs1,' ',ys);
                    readln(odg);
                    if odg[1]='t' then inc(q);
            end else break;
    until (odg[1]='f') or (q=2);
    repeat
            inc(ys1,2*m);
            if ys1<=n then begin
                    writeln('examine ',xs,' ',ys1);
                    readln(odg);
                    if odg[1]='t' then inc(z);
            end else break;
    until (odg[1]='f') or (z=2);
    case q of
    0: begin
            xr:=xs-m;
            xl:=xs-4*m;
            if xl>=1 then begin
                    writeln('examine ',xl,' ',ys);
                    readln(odg);
                    if odg[1]='t' then xr:=xs-2*m;
            end;
       end;
    1: begin
            xr:=xs+m;
            xl:=xs-2*m;
            if xl>=1 then begin
                    writeln('examine ',xl,' ',ys);
                    readln(odg);
                    if odg[1]='t' then xr:=xs;
            end;
      end;
    2: xr:=xs+2*m;
    end;
    case z of
    0: begin
            yr:=ys-m;;
            yd:=ys-4*m;
            if yd>=1 then begin
                    writeln('examine ',xs,' ',yd);
                    readln(odg);
                    if odg[1]='t' then yr:=ys-2*m;
            end;
      end;
    1: begin
            yr:=ys+m;
            yd:=ys-2*m;
            if yd>=1 then begin
                    writeln('examine ',xs,' ',yd);
                    readln(odg);
                    if odg[1]='t' then yr:=ys;
            end;
      end;
    2: yr:=ys+2*m;
    end;
    writeln('solution ',xr,' ',yr);
    readln;
    end.

Slične teme

  1. International HaxBall League
    By GoalCreeper in forum Online gaming & living
    Odgovora: 0
    Posljednji post: 08-05-2012, 18:34
  2. The Real Football Factories International - The Balkans
    By Prince-Artas in forum Multimedia
    Odgovora: 38
    Posljednji post: 16-01-2008, 00:43
  3. Wcg Croatia 2007 ?
    By The-Borg in forum Online gaming & living
    Odgovora: 21
    Posljednji post: 14-09-2007, 20:08

Pravila postanja

  • Ne možeš stvarati nove teme
  • Ne možeš odgovarati na postove
  • Ne možeš slati privitke
  • Ne možeš mijenjati svoje postove
  •