Forum Informatyka UJ forum Strona Główna Informatyka UJ forum
Rocznik 2005 - czyli najlepsze forum w sieci
 
 FAQFAQ   SzukajSzukaj   UżytkownicyUżytkownicy   GrupyGrupy   GalerieGalerie   RejestracjaRejestracja 
 ProfilProfil   Zaloguj się, by sprawdzić wiadomościZaloguj się, by sprawdzić wiadomości   ZalogujZaloguj 

WIELKI Forumowy Turniej o PIWO :) - DRUGI ETAP!
Idź do strony Poprzedni  1, 2, 3, 4, 5  Następny
 
Napisz nowy temat   Odpowiedz do tematu    Forum Informatyka UJ forum Strona Główna -> Archiwum / 1 rok / 2 i 3 semestr - Programowanie
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 0:52, 05 Lip 2006    Temat postu:

hansu napisał na 150.

edited: To pochwal się swoim kodem. Jestem ciekaw czy można to zrobić jeszcze inaczej niż ja i hansu.


Ostatnio zmieniony przez Rogal dnia Śro 0:55, 05 Lip 2006, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 0:54, 05 Lip 2006    Temat postu:

o jeden znak gorszy od hansa.... :shock:

edited: no to masz...

uses
crt;
var
x,y,a,b,g,h:byte;
begin
h+=1;
x:=40;
y:=12;
repeat
a+=1;
g+=h;
h-=g;
g+=h;
for
b:=1
to
a
div
2do
begin
gotoxy(x,y);
write('x');
x+=g;y+=h;
delay(9)
end
until
y=0
end.
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 0:58, 05 Lip 2006    Temat postu:

Ok, jeśli kogoś interesuje moje rozwiązanie to wygląda on tak:
Kod:
uses
crt,math;
var
x,y:int64;
begin
Repeat
GotoXY(40+x,12+y);
Write('x');
if
abs(x+0.2)<abs(y+0.2)
then
x+=Sign(y+0.5)
else
y-=Sign(x+0.5);
delay(9)
until
y=-12
end.

Chętnie zobaczyłbym kody innych bo jestem ciekaw jak jeszcze można było to zrobić.

edited: Yoter zrobił to jeszcze inaczej :wink:
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 1:03, 05 Lip 2006    Temat postu:

hmmm ciekawy kod... ja teraz przeliczyłem swój kod jeszcze raz (tym razem już nie wg wzorku rozmiar - linie*2, tylko znak po znaku) i mi wyszło 153... więc cukierka nie będzie :D

edit: cholera, tego signa mi brakowało...

edit2: a nie wiem czy wiesz Rogal, ale to się da zrobić na wiele wiele sposobów m.in. rekurencyjnie czy za pomocą współrzędnych biegunowych (tak to się nazywa?)... być może jeszcze jutro coś pokombinuję z moimi kodami, zobaczę czy uda mi się stworzyć coś jeszcze krótszego... (wersji tej spiralki to ja mam chyba kilkanaście już....)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Makros
pijak



Dołączył: 01 Gru 2005
Posty: 420
Przeczytał: 0 tematów

Skąd: Kraków

PostWysłany: Śro 15:35, 05 Lip 2006    Temat postu:

moje wyglada tak:

Kod:
uses
crt;
var
x,y,i,r,z:word;
BEGIN
x:=40;
y:=12;
repeat
gotoxy(x,y);
write('x');
delay(9);
x+=(r
mod
4-2)mod
2;
y+=(r
mod
4-1)mod
2;
i+=-i*z+1;
z:=i
div(r
div
2+1);
r+=z
until
y=0
END.


... :)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 16:23, 05 Lip 2006    Temat postu:

Oficjalne wyniki beda o 17:00
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 16:42, 05 Lip 2006    Temat postu:

No i są wyniki:

[link widoczny dla zalogowanych]

Kod:

And the winner is:
   Rogal:
           Rogal - 1 - July 3, 2006, 6 14 pm.pas -> (1)148
           Rogal - 2 - June 29, 2006, 10 30 am.pas -> (2)0

Output:
            hansu - 1 - July 4, 2006, 2 04 am.pas -> (1)151
            hansu - 2 - June 29, 2006, 1 26 am.pas -> (2)0
           insane - 2 - June 29, 2006, 3 29 pm.pas -> (2)0
           Madras - 2 - June 29, 2006, 9 49 am.pas -> (2)10
           Madras - 2 - June 29, 2006, 9 50 am.pas -> (2)0
            makros - 1 - July 4, 2006, 9 08 pm.pas -> (1)167
          makros - 2 - June 29, 2006, 10 10 am.pas -> (2)10
           Makros - 2 - June 29, 2006, 3 08 pm.pas -> (2)0
           Robson - 2 - June 29, 2006, 1 48 am.pas -> (2)0
            Rogal - 1 - July 2, 2006, 12 12 am.pas -> (1)153
             Rogal - 1 - July 3, 2006, 6 14 pm.pas -> (1)148
           Rogal - 2 - June 29, 2006, 10 24 am.pas -> (2)10
           Rogal - 2 - June 29, 2006, 10 30 am.pas -> (2)0
           Rogal - 2 - June 29, 2006, 12 31 am.pas -> (2)40
           Rogal - 2 - June 29, 2006, 12 51 am.pas -> (2)40
         Spectro - 2 - June 29, 2006, 10 52 am.pas -> (2)[ANS]
            Yoter - 1 - July 4, 2006, 12 39 am.pas -> (1)157
           Yoter - 2 - June 29, 2006, 11 23 am.pas -> (2)0


Gratuluje Rogalowi za zwycieztwo (drugie z kolei!), oraz wszystkim ktorzy brali udzial w konkursie :)

Niedlugo kolejny etap, tym razem duzo ciekawszy :)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Spectro
Mistrz grilla



Dołączył: 09 Mar 2006
Posty: 2306
Przeczytał: 0 tematów

Skąd: Kurdwanów

PostWysłany: Śro 16:59, 05 Lip 2006    Temat postu:

Kod:
Spectro - 2 - June 29, 2006, 10 52 am.pas -> (2)[ANS]

Ostatni raz wysłałem jakiś program przez lynxa :P .

edit: Insane i hansu chyba ściągali w zadaniu 2 ;) . A mój program do zadania 2 to była wersja z plusami :) .


Ostatnio zmieniony przez Spectro dnia Śro 17:03, 05 Lip 2006, w całości zmieniany 1 raz
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 17:02, 05 Lip 2006    Temat postu:

Spectro: Lynx to super program, ale najnowszych ficzerow on nie posiada (w tym jak widac uploadowania plikow). Kiedys byl taki motyw, ze ktos chcial wejsc na swoje konto w banku przez lynxa i zostalo to wykryte jako proba wlamania :P
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Spectro
Mistrz grilla



Dołączył: 09 Mar 2006
Posty: 2306
Przeczytał: 0 tematów

Skąd: Kurdwanów

PostWysłany: Śro 17:07, 05 Lip 2006    Temat postu:

exeman napisał:
Kiedys byl taki motyw, ze ktos chcial wejsc na swoje konto w banku przez lynxa i zostalo to wykryte jako proba wlamania

No to spoko ;] . Warto wiedzieć na przyszłość. A spiralki nie wysłałem, bo ciągle pracuję nad moim dużym projektem z P1 ;] .
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
hansu
Nieomylny Admin



Dołączył: 17 Lis 2005
Posty: 1990
Przeczytał: 0 tematów

Skąd: przychodzimy? Czym jestesmy? Dokad zmierzamy?

PostWysłany: Śro 17:29, 05 Lip 2006    Temat postu:

No i znowu kurna drugie miejsce... :( Gratuluje Rogalowi swietnego pomyslu do spiralki oraz zauwazenia luki w zadaniu 2 :P (bo tak naprawde + tez powinien byc znakiem punktowanym - bez tego zadanie jest obrazliwie trywialne ;)). No nic, z nieceirpliwoscia czekam na kolejny etap :)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 17:56, 05 Lip 2006    Temat postu:

e tam przesadzasz hans :D gdyby nie ta luka to pewnie w ogóle nie zainteresowałbym się tym zadaniem a co za tym idzie spiralką.... gratuluję Rogalowi (który btw. jest ZLYYYYYYYYYY ==") i czekam na trzecią edycję.... ;)

ps. jedyny plus z tego że Rogal wygrał to to, że może wreszcie nauczy się śpiewać :D
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 18:01, 05 Lip 2006    Temat postu:

Dajcie kolejne zadania :D

A tak wogóle to mam nadzieję, że w końcu ktoś poza mną się weźmie do roboty to byśmy mogli chórek zrobić na najbliższym grillu :lol:
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 18:23, 05 Lip 2006    Temat postu:

Rogal, jako, ze drugi raz z rzedu zajales pierwsze miejsce, jako organizator postanawiam wreczyc Ci dodatkowa nagrode, a jest nia:

Obowiazek zaspiewania piosenki MIG - Prawda, na publicznym grillu naszego roku ;]
[link widoczny dla zalogowanych]

Tak tak, wiem, ze sie cieszysz, nie musisz dziekowac :P
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 18:30, 05 Lip 2006    Temat postu:

Czuję się zaszczycony :D

Ale przydałąby się jakaś kapela.

PS. czy mam obowiązek wykonywania układu choreograficznego? :twisted:
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 18:36, 05 Lip 2006    Temat postu:

Zdecydowanie tak :P
Co do kapeli - pewnie bedzie wiele etapow konkursu zanim odbedzie sie jakis wspolny grill, zatem mozliwe, ze sie chorek uzbiera ;)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 19:17, 05 Lip 2006    Temat postu:

hej Rogal to teraz masz motywację żeby więcej nie wygrywać :D
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 20:20, 05 Lip 2006    Temat postu:

@Yoter: To Wy macie motywację żeby wygrać... w końcu ktoś będzie mnie musiał słuchać a na pewno nie będzie to przyjemne :twisted:
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 20:22, 05 Lip 2006    Temat postu:

dla mnie motywacją zawsze było jest i będzie piwo tesco :D
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Rogal
Zjeb z kaszanką



Dołączył: 13 Mar 2006
Posty: 1745
Przeczytał: 0 tematów

Skąd: koło podbiegunowe

PostWysłany: Śro 20:27, 05 Lip 2006    Temat postu:

@Yoter: To muszę Cię zmartwić, ostatnio były Żywce :wink:
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 21:00, 05 Lip 2006    Temat postu:

ooooooooooooooooołłłłłłłłłłłłł..... :(
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 21:36, 05 Lip 2006    Temat postu:

Yoter: Jak wygrasz, na 100% bedzie TESCO :P
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
Yoter
zielony żul



Dołączył: 19 Lis 2005
Posty: 1033
Przeczytał: 0 tematów

Skąd: Gościeradów

PostWysłany: Śro 22:32, 05 Lip 2006    Temat postu:

JEŚLI wygram.... :)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
ostoj
Przewijak Tasmy



Dołączył: 08 Lis 2005
Posty: 883
Przeczytał: 0 tematów

Skąd: Tychy

PostWysłany: Śro 23:35, 05 Lip 2006    Temat postu:

swoja droga, to jaka exeman miales wersje zadania drugiego na mysli? w sensie na jakie rozwiazania czekales? bo na pewno nie na plusy.. :)
Powrót do góry
Zobacz profil autora
Zobacz poprzedni temat :: Zobacz następny temat  
Autor Wiadomość
exeman
Mistrz grilla



Dołączył: 03 Lut 2006
Posty: 1603
Przeczytał: 0 tematów

Skąd: znienacka

PostWysłany: Śro 23:46, 05 Lip 2006    Temat postu:

Moja wzorcowka:

Kod:

begin
 for exitcode:=1 to 15 do
  write(chr(byte(exitcode=1)*108+byte(exitcode=2)*
        117+byte(exitcode=3)*98+byte(exitcode=4)*
        105+byte(exitcode=5)*101+byte(exitcode=6)*
        32+byte(exitcode=7)*116+byte(exitcode=8)*
        114+byte(exitcode=9)*117+byte(exitcode=10)*
        115+byte(exitcode=11)*107+byte(exitcode=12)*
        97+byte(exitcode=13)*119+byte(exitcode=14)*
        107+byte(exitcode=15)*105))
end.


Nic nie mowcie :P
Powrót do góry
Zobacz profil autora
Wyświetl posty z ostatnich:   
Napisz nowy temat   Odpowiedz do tematu    Forum Informatyka UJ forum Strona Główna -> Archiwum / 1 rok / 2 i 3 semestr - Programowanie Wszystkie czasy w strefie EET (Europa)
Idź do strony Poprzedni  1, 2, 3, 4, 5  Następny
Strona 4 z 5

 
Skocz do:  
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach

fora.pl - załóż własne forum dyskusyjne za darmo
Powered by phpBB © 2001, 2005 phpBB Group
Regulamin