Ĺadny brzuch
bry :)
konkurs tylko dla początkujących.
Zadanie :
Podany ciąg znaków zapisać od tyłu. Czyli txt wchodzący = Bełdzio, wychodzący oizdłeB
Wygrywa ten czyj kod będzie najkrótszy.
Czas : hm... powiedzmy 2 dni
Odpowiedzi wysyłajcie na konkurs@beldzio[spam_na_forum].com
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Może być w czystym Pascalu? W delphi mi to się trochę wydłuży... :)
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
No i się napisałem na konkurs :) - 20 linijek :D
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Poszło! <- wysłalem :cheesy: nie to zebym sie do poczatkujacych zaliczal (nie ma jak skromnosc) no ale sie nudzilem :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
jak narazie :
1. migajek,
2. Chomik
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
jutro wieczorem dośle swoje :) (tyle ze w Pascalu);
Bełdzio, a podasz rozwiązanie jak skończycie?
..::Buckle your seat belt, Dorothy, because Kansas is going bye-bye::..
..::Merv::..
cytat:chomik napisał:
20 linijek
20? No chyba ze z wczytywaniem etc. ja sama zamiane zrobilem dwiema linijkami (tak zeby bylo estetyczniej :P, bo moglbym w jednej) + deklaracja jednej zmiennej (tego sie obejsc nie dalo :P)
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:Merovingian napisał:
...
jasne :)
cytat:Crisu napisał:
za późno :D
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Może być w C:? I pomysł nie swój (zasłyszany kiedyś tam:?)
Kodie
A i jeszcze jedno pytanie: czy ciąg jest zakończony znakiem n (rn czy nullem ):?
Czy zakończenie stringa nullem albo 'n' jest konieczne:?
Czy dane będą czytane ze standardowego wejścia i wypisywane na stadrardowe wyjście (czy istnieje taka opcja:?:) )
No to były 3 pytania, ale mam fajny kod:D
Kodie
Jak chcecie - z tym że to Delphi... A u mnie aktualny kod (pełny - beginy endy etc ma 15 linijek - licząc uses i takie tam... Tak, użyłem konsoli :D - ale co tu gadać, kod 100% optymalny nie jest...
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Gotowe, 191 znaków :D
Pzdr, Cyrkiel
cytat:Cyrkiel napisał:
Gotowe, 191 znaków :D
Rozpisałeś się :P pewno z komentarzami co? :cheesy: :lol2:
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Mój ma 179 po skróceniu nazw zmiennych i wywaleniu spacji oraz wcięć :) ... ALE mówię o całym pliku a nie działaniu... Ono ma
59 znaków w "dłużsiejszej" wersji :) (no i jeszcze zmienne :))
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Moj ma osiem linijek :)
wysle bo sie nudze :P
karol@WYTNIJ_TO_SPAM_config.eth.ug lub karol@WYTNIJ_TO_SPAM.bajkonur.nasa.gs
POPR: http://karol.satanbsd.org/
Mój kod ma 4 linijki (cały kod, który jest kompilowany)
Wiem, że konkurs miał być dla początkujących ale jak widać powyżej nie tylko oni napisali ;)
Ale wysłałem to tylko tak sobie - nie liczcie mojego kodu do konkursu 8)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Mój kod ma 4 linijki (cały kod, który jest kompilowany)
4 linie? w czym to robiles?
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:migajek napisał:
4 linie? w czym to robiles?
Tak - 4 linie.
A program napisałem w Delphi.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
No dobra
tu jest moje rozwiazanie.. (ma sie rozumiec taki kod juz nie bedzie chyba rozpatrywany przez autora konkursu)
var S : String; I : Integer; begin S:=Edit1.Text; //1 Edit2.Text:=''; //2 for I:=Length(S) downto 1 do //3 Edit2.Text:=Edit2.Text + S[I]; //4
karol@WYTNIJ_TO_SPAM_config.eth.ug lub karol@WYTNIJ_TO_SPAM.bajkonur.nasa.gs
POPR: http://karol.satanbsd.org/
cytat:lofix napisał:var S : String; I : Integer; begin S:=Edit1.Text; //1 Edit2.Text:=''; //2 for I:=Length(S) downto 1 do //3 Edit2.Text:=Edit2.Text + S[I ]; //4
To beginów, endów itp nie liczymy jako linie kodu ?
Jeśli tak to mój kod ma 1 linijkę (ewentualnie dwie - jakby się ktoś czepiał) :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Jakby co, te 191 znaków było od uses do end. :D, a tak w ogóle, to można i wszystko w jedną linijkę wklepać, hehe :)
Pzdr, Cyrkiel
FINITO :D
1. Oxi <= łądny mi początkujący :D
2. migajek
3. chomik - lofix -
4. gragory
5. karol
6. cyrrkiel
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
no to dawaj kod Oxiego spryciazu :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
mówisz masz :D
var i : byte; begin for i:=1 to Length(ParamStr(1)) do write(ParamStr(1)[Length(ParamStr(1))+1-i]); end.
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
var i : byte; begin for i:=1 to Length(ParamStr(1)) do write(ParamStr(1)[Length(ParamStr(1))+1-i]); end.
Dodam tylko, że ponieważ kod napisałem pod konsole to należy go kompilować z opcją /CC (lub dyrektywą {$APPTYPE CONSOLE} pod IDE)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
SKUBANY! Że też nie miałem pomysłu na użycie parametrów :shock: ! Nio cóż, dziwi mnie jedno - brak PROGRAM... A ja też po jaką cholerę wstawiłem w FOR begin i end... [:/] - mój kod trochę inaczej zrobiłem i najłatwiej chyba przerobić go na funkccję :) - to CAŁY kod jaki poszedł (a po cięciach by był MUCH SHORTER - robiłem go minutkę i nawet nie zastanowiłem się za bardzo jak go "obciąć")
program konqrs_chomik; {$APPTYPE CONSOLE} var i : integer; text1, text2 : string; begin writeln('Podaj ciag znakow'); readln(text1); for i := length(text1) downto 0 do begin text2 := text2 + text1[i]; end; writeln(text2); readln; end.
Heh, czyli konsolowe są najmniejsze :lol: - BTW - ktoś pisał w VCL? :) - a tu daję go po obcięciu zostawiając ten sam efekt i ten sam sposób obsługi:
program konqrs_chomik; {$APPTYPE CONSOLE} var i : integer; a, b : string; begin writeln('Podaj ciag znakow'); readln(a); for i:=length(a) downto 0 do b:=b+a[i]; writeln(b); readln; end.
A tu jako funkcja :)
function Odwroc(Input : String) : String; var i : integer; b : string; begin for i:=length(input) downto 0 do b:=b+input[i]; result := b; end.
Aha, Oxi mówił o tym żeby nie liczyć go do konkursu
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!Połączone posty (na życzenie autora)
cytat:chomik napisał:
Nio cóż, dziwi mnie jedno - brak PROGRAM...
Jak widać kompilatorowi nie jest to aż tak bardzo potrzebne do szczęścia :)
cytat:
Aha, Oxi mówił o tym żeby nie liczyć go do konkursu
Zgadza się.
Raz wystartowałem w konkursie z Menu i to mi wystarczy - nie chcę psuć innym zabawy ;)
Zresztą konkurs był dla początkujących.
A swój kod podesłałem tylko w celach instruktażowych :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Ja zrobilem troszke inaczej niz Oxi :
for i:=length(edit1.text) downto 1 do edit2.text:=edit2.text+edit1.text[i]
Wlasciwie niepotrzebnie te edity, no ale...
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
zanotowane.pl doc.pisz.pl pdf.pisz.pl zsf.htw.pl
konkurs tylko dla początkujących.
Zadanie :
Podany ciąg znaków zapisać od tyłu. Czyli txt wchodzący = Bełdzio, wychodzący oizdłeB
Wygrywa ten czyj kod będzie najkrótszy.
Czas : hm... powiedzmy 2 dni
Odpowiedzi wysyłajcie na konkurs@beldzio[spam_na_forum].com
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Może być w czystym Pascalu? W delphi mi to się trochę wydłuży... :)
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
No i się napisałem na konkurs :) - 20 linijek :D
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Poszło! <- wysłalem :cheesy: nie to zebym sie do poczatkujacych zaliczal (nie ma jak skromnosc) no ale sie nudzilem :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
jak narazie :
1. migajek,
2. Chomik
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
jutro wieczorem dośle swoje :) (tyle ze w Pascalu);
Bełdzio, a podasz rozwiązanie jak skończycie?
..::Buckle your seat belt, Dorothy, because Kansas is going bye-bye::..
..::Merv::..
cytat:chomik napisał:
20 linijek
20? No chyba ze z wczytywaniem etc. ja sama zamiane zrobilem dwiema linijkami (tak zeby bylo estetyczniej :P, bo moglbym w jednej) + deklaracja jednej zmiennej (tego sie obejsc nie dalo :P)
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:Merovingian napisał:
...
jasne :)
cytat:Crisu napisał:
za późno :D
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
Może być w C:? I pomysł nie swój (zasłyszany kiedyś tam:?)
Kodie
A i jeszcze jedno pytanie: czy ciąg jest zakończony znakiem n (rn czy nullem ):?
Czy zakończenie stringa nullem albo 'n' jest konieczne:?
Czy dane będą czytane ze standardowego wejścia i wypisywane na stadrardowe wyjście (czy istnieje taka opcja:?:) )
No to były 3 pytania, ale mam fajny kod:D
Kodie
Jak chcecie - z tym że to Delphi... A u mnie aktualny kod (pełny - beginy endy etc ma 15 linijek - licząc uses i takie tam... Tak, użyłem konsoli :D - ale co tu gadać, kod 100% optymalny nie jest...
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Gotowe, 191 znaków :D
Pzdr, Cyrkiel
cytat:Cyrkiel napisał:
Gotowe, 191 znaków :D
Rozpisałeś się :P pewno z komentarzami co? :cheesy: :lol2:
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
Mój ma 179 po skróceniu nazw zmiennych i wywaleniu spacji oraz wcięć :) ... ALE mówię o całym pliku a nie działaniu... Ono ma
59 znaków w "dłużsiejszej" wersji :) (no i jeszcze zmienne :))
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!
Moj ma osiem linijek :)
wysle bo sie nudze :P
karol@WYTNIJ_TO_SPAM_config.eth.ug lub karol@WYTNIJ_TO_SPAM.bajkonur.nasa.gs
POPR: http://karol.satanbsd.org/
Mój kod ma 4 linijki (cały kod, który jest kompilowany)
Wiem, że konkurs miał być dla początkujących ale jak widać powyżej nie tylko oni napisali ;)
Ale wysłałem to tylko tak sobie - nie liczcie mojego kodu do konkursu 8)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
cytat:Oxi napisał:
Mój kod ma 4 linijki (cały kod, który jest kompilowany)
4 linie? w czym to robiles?
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
cytat:migajek napisał:
4 linie? w czym to robiles?
Tak - 4 linie.
A program napisałem w Delphi.
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
No dobra
tu jest moje rozwiazanie.. (ma sie rozumiec taki kod juz nie bedzie chyba rozpatrywany przez autora konkursu)
var S : String; I : Integer; begin S:=Edit1.Text; //1 Edit2.Text:=''; //2 for I:=Length(S) downto 1 do //3 Edit2.Text:=Edit2.Text + S[I]; //4
karol@WYTNIJ_TO_SPAM_config.eth.ug lub karol@WYTNIJ_TO_SPAM.bajkonur.nasa.gs
POPR: http://karol.satanbsd.org/
cytat:lofix napisał:var S : String; I : Integer; begin S:=Edit1.Text; //1 Edit2.Text:=''; //2 for I:=Length(S) downto 1 do //3 Edit2.Text:=Edit2.Text + S[I ]; //4
To beginów, endów itp nie liczymy jako linie kodu ?
Jeśli tak to mój kod ma 1 linijkę (ewentualnie dwie - jakby się ktoś czepiał) :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Jakby co, te 191 znaków było od uses do end. :D, a tak w ogóle, to można i wszystko w jedną linijkę wklepać, hehe :)
Pzdr, Cyrkiel
FINITO :D
1. Oxi <= łądny mi początkujący :D
2. migajek
3. chomik - lofix -
4. gragory
5. karol
6. cyrrkiel
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
no to dawaj kod Oxiego spryciazu :P
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl
mówisz masz :D
var i : byte; begin for i:=1 to Length(ParamStr(1)) do write(ParamStr(1)[Length(ParamStr(1))+1-i]); end.
//----------------------
www.beldzio.com
Szukam betatesterów chętnych proszę o wpisanie się na www.beldzio.com/beta
var i : byte; begin for i:=1 to Length(ParamStr(1)) do write(ParamStr(1)[Length(ParamStr(1))+1-i]); end.
Dodam tylko, że ponieważ kod napisałem pod konsole to należy go kompilować z opcją /CC (lub dyrektywą {$APPTYPE CONSOLE} pod IDE)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
SKUBANY! Że też nie miałem pomysłu na użycie parametrów :shock: ! Nio cóż, dziwi mnie jedno - brak PROGRAM... A ja też po jaką cholerę wstawiłem w FOR begin i end... [:/] - mój kod trochę inaczej zrobiłem i najłatwiej chyba przerobić go na funkccję :) - to CAŁY kod jaki poszedł (a po cięciach by był MUCH SHORTER - robiłem go minutkę i nawet nie zastanowiłem się za bardzo jak go "obciąć")
program konqrs_chomik; {$APPTYPE CONSOLE} var i : integer; text1, text2 : string; begin writeln('Podaj ciag znakow'); readln(text1); for i := length(text1) downto 0 do begin text2 := text2 + text1[i]; end; writeln(text2); readln; end.
Heh, czyli konsolowe są najmniejsze :lol: - BTW - ktoś pisał w VCL? :) - a tu daję go po obcięciu zostawiając ten sam efekt i ten sam sposób obsługi:
program konqrs_chomik; {$APPTYPE CONSOLE} var i : integer; a, b : string; begin writeln('Podaj ciag znakow'); readln(a); for i:=length(a) downto 0 do b:=b+a[i]; writeln(b); readln; end.
A tu jako funkcja :)
function Odwroc(Input : String) : String; var i : integer; b : string; begin for i:=length(input) downto 0 do b:=b+input[i]; result := b; end.
Aha, Oxi mówił o tym żeby nie liczyć go do konkursu
Strona mojej grupki programistycznej: www.blaze.er.pl
Zapraszam na moje forum - www.blaze-programming.no-ip.com/phpbb2
gg: 4644238 | tlen: chomik-programista
Ogłaszam że ruszam na krucjatę antypiracką! Precz z kursami drogiego softu w KĄE, piszcie coś o darmowym!Połączone posty (na życzenie autora)
cytat:chomik napisał:
Nio cóż, dziwi mnie jedno - brak PROGRAM...
Jak widać kompilatorowi nie jest to aż tak bardzo potrzebne do szczęścia :)
cytat:
Aha, Oxi mówił o tym żeby nie liczyć go do konkursu
Zgadza się.
Raz wystartowałem w konkursie z Menu i to mi wystarczy - nie chcę psuć innym zabawy ;)
Zresztą konkurs był dla początkujących.
A swój kod podesłałem tylko w celach instruktażowych :)
ICQ : 245-363-570 | TLEN : oxisoft | GG : 486-2-486
Ja zrobilem troszke inaczej niz Oxi :
for i:=length(edit1.text) downto 1 do edit2.text:=edit2.text+edit1.text[i]
Wlasciwie niepotrzebnie te edity, no ale...
//gg:2574115
//e-mailmigajek@yahoo.com
//Zapraszam na moją stronkę:http://www.migsoft.prv.pl