Hello GURUk!

  Nos nalam a
  Verzio szam: 1.1150 (20050621)
  Datum: 2005. junius 21.
  Adatbazis build: 5804

-- 
Üdvözlettel,
 Marsalkó István         2005. június 22., szerda, 7:02:46

Bocs, probalok a sorlimitbe beferni (kivagtam sok sort), s ez mar igencsak CODE
R tema...

csm > írta:
> Na varj. Itt nem azokrol a dolgokrol beszeltem, hanem pl. ahol beallitod
> a max_t-t, meghivod ezt a kodot az OsszegKeres(1)-gyel stb. Azt azert
> kezzel kell beirni valahova, nem?
Igen.

> > c> Azt lenne a legegyszerubb eltuntetni, azert volt csak igy osszecsapva,
> > c> mert kozben eppen dolgoztam, nem volt nagyon idom foglalkozni vele...
> > Elhiszem, csak ra akartam mutatni, hogy en teszteltem a programot, Te
> > nem, vagy nem vetted eszre ezt :)
> Marmint az enyem? Leteszteltem, mielott feltoltam, nalam nem maradt ott
> a + jel, a '\b\b ' kitorolte... Nalad latszott? A tiedet nem tudtam
> tesztelni, mert pl. nincs delphim.

Nekem sincs Python. Ja a \b\b letorolte, akkor ok.

> Ezt nem ertem... Legyszi kicsit reszletezd, hogy itt mire gondoltal, nem 
> ismerem a delphit (se).

Te parancssorban adod be a parametereket, en vizualisan gondolkodom, pl., beiro
d egy TMemo 
komponensbe a szamokat, onnan olvasod ki oket.

> >>> osszehasonlitani :) Nem ez volt a cel... Ugy gondoltam, hogy a modszerete
k
> >>> rossz, a Delphi/Python "versenyt" csak provokaltam, hogy a masik modszert
> >>> megmutassam :)
> > c> Jol van, egye fene, mutasd azt a masik modszert! Ja, hogy ez volt az?
> > c> Bocs, de ezt hasznaltam en is ;-))
> > Miutan en mondtam, hogy ezt ezzel kellene megoldani... Bocs :) Ugy mar
> > konnyu. De tenyleg nem vettem eszre, hogy azzal oldottad itt meg.
> Hat, ha a te peldad alapjan oldottam volna meg, akkor most nem
> levelezgetnenk, mert inteznem az idogepem szabadalmi ugyeit ;-)

En nem irtam, hogy a PELDAM alapjan irtad meg. Ugy, ahogy en sem a PELDAD alapj
an irtam 
meg az enyemet. Azt irtam, hogy az altalam megjelolt MODSZERT hasznaltad.
:) Eloszor irtatok i1..i12 szeru 12 db egymasba agyazott ciklusrol. Erre irtam 
en, hogy ezt onmagat 
meghivo ciklussal kell megoldani. EZUTAN irtad at onmagat meghivo ciklusra Te i
s a kodot. ;-)

> > Egyezzunk  ki  abban,  hogy  EZT a feladatot ugyanannyi programozassal
> > lehet  megoldani,  s nagy volt a szam, amikor azt mondtam, hogy harmad
> > annyi  a  kod.  Tenyleg  hittem benne, s amikor leirtam a kodot lattam
> > meg, hogy kicsit tobb a sok elagazas miatt, mint gondoltam elsore.
> http://dada.perl.it/shootout/delphi.html
> http://dada.perl.it/shootout/python.html
> Hasonlitgasd a LOC (Lines Of Code) oszlopban levo szamokat, sajnos a ket
> listaban nem azonos sorrendben vannak. Meg fogsz lepodni... Itt meg a
> vegso sorrend LOC szerint: 
> http://dada.perl.it/shootout/craps_loc.html

Megneztem. De nem akarok flamet. Vannak olyan dolgok, amiket Te Pythonban nem t
udsz 
megcsinalni (mert nem vizualis nyelv, ha jol tudom, de ha igen, javits ki), s v
an amit en Delphiben 
hatalmas nagy koruljarassal, ami neked Pythonban par sor. Mas feladatra valok.

Udv, Vili

> > Te parancssorban adod be a parametereket, en vizualisan gondolkodom,
> > pl., beirod egy TMemo komponensbe a szamokat, onnan olvasod ki oket.
> Oke, de mi van akkor, ha nem szamot irsz be, hanem azt, hogy alma?
> En ilyen hibara gondoltam, ez a te programodnak is megartana, nem?

Persze. Ellenorizni kellene, 1 sor az egesz. 

> > En nem irtam, hogy a PELDAM alapjan irtad meg. Ugy, ahogy en sem a
> > PELDAD alapjan irtam meg az enyemet. Azt irtam, hogy az altalam
> > megjelolt MODSZERT hasznaltad. :) Eloszor irtatok i1..i12 szeru 12 db
> > egymasba agyazott ciklusrol. Erre irtam en, hogy ezt onmagat meghivo
> > ciklussal kell megoldani. EZUTAN irtad at onmagat meghivo ciklusra Te
> > is a kodot. ;-)
> Es tenyleg, most, hogy mondod, eszembe jutott az a level. De becsszora,
> a programot nem az alapjan irtam ;)

En elhiszem, na. Az egeszet amiatt a millio egymasba agyazas miatt kezdtem/irta
m :) 

> > Megneztem. De nem akarok flamet. Vannak olyan dolgok, amiket Te
> > Pythonban nem tudsz megcsinalni (mert nem vizualis nyelv, ha jol
> > tudom, de ha igen, javits ki), s van amit en Delphiben hatalmas nagy
> > koruljarassal, ami neked Pythonban par sor. Mas feladatra valok.
> Flame-et en se akarok. Maradjunk annyiban, hogy mindketto altalanos
> programozasi nyelv, mindkettovel le lehet kuzdeni minden problemat, csak
> altalaban pythonban rovidebb koddal, viszont lassabban ;)

Ok, egyezzunk meg ebben.

> Ja, mit ertesz 'vizualis' nyelven?
Mint pl. a Visual Basic.

Udv, Vili

Sziasztok!

Idos es laikus baratom ADSL bekotteteset hatarozta el. Valoszinuleg sokat
fog szorfolni, mert tudomanyos szinten muveli a tortenelmet es a neprajzot,
azonban a technikai dolgokhoz nem ert, es mar nem is fogja megtanulni, bar
meglehet, publikalni is fog majd az uj technikan.

A gepe P1 Celeron, Win98hu.

Arra kerek javaslatot, milyen hardver/szoftver konfiguraciot allitsak be
nala, hogy nyugodtan tudjon dolgozni es ne kelljen (tul gyakran)
elcsaszkalnom hozza valamilyen beallitas miatt.

Elore is koszonom!
pi

> Azt fogom megmutatni, hogy megkeresni adott szam felbontasat x adott
> osszetevore kevesebb kodolas Delphiben. Ez volt a feladat, nem?

Nem teljesen... :-) Amit en bekuldtem, az egy komplett program volt,
igy, ahogy van, futtathato, a tied nem az, sok minden hianyzik
belole. Pl. ahol beallitod a valtozoidat, ahol beolvasod a
parametereket, ahol atalakitod oket szamma, ha nem azok, ahol
ellenorzod, hogy van-e koztuk 1-nel kisebb... 

Meg persze van egy elvi kulonbseg: az en programomnak fogalma sincs
arrol, hogy hany parameterrel dolgozik eppen, de nem is kell tudnia.
Arra gondoltam, hogy ezt vajon meg lehet-e oldani pl. delphiben. Mert
ugy konnyu, hogy max_t-ben megkapja a parameterek szamat ;-)

> Procedure OsszegKeres(a:Integer);
[...]
> A programban meg igy inditod: OsszegKeres(1);

Na igen, ez a program kellene meg, hogy tenyleg ossze lehessen
hasonlitani oket, mivel az nalam csak egy sor (az utolso) :-)

> A Te kododban minden megoldas vegen van egy extra '+' jel, ezt en a
> Delete(r_s,Length(r_s),1); sorral letorlom.

Azt lenne a legegyszerubb eltuntetni, azert volt csak igy osszecsapva,
mert kozben eppen dolgoztam, nem volt nagyon idom foglalkozni vele...
De vegulis te is ugyanazt csinalod: letorlod az utolso karaktert.
Viszont ha en stringbe gyujtenem a kiirandot, nem rogton kiirnam, akkor
csak ennyi lenne levagni a veget (ha mar karaktereket szamolunk):
print r_s[:-1]

> Nem ertettem, milyen hibatures hianyarol beszeltel a programodban, itt
> nem is lehet hiba, s szerintem a kod is jobban atlathato (de ez izles
> kerdese).

A hibat ott ertettem, hogy nem ellenorzi, hogy a parancssorban tenyleg
szamokat kap-e, vagy esetleg valami mast. A jobb atlathatosag meg
tenyleg izles kerdese, eloszor alig talaltam az utolso else reszt. :-)

> Delphi: Python, 357 vs 638 karakter.

Itt almakat hasonlitasz kortekhez, vagy mi...
Ennek akkor lenne ertelme, ha ugyanazok lennenek a valtozonevek, meg a
tied is teljes program lenne. Raadasul azt se tudom, hogy az 1069
byte-os program melyik 638 karakteret szamoltad...

> De nem is ez a lenyeg, mert ez az arany is csaloka. Arra akartam ramutatni,
> hogy ezt a feladatot Onmagat meghivo ciklussal kell megoldani, nem olyan
> formedvenyekkel, ahogy ezt a temat elkezdtetek kitargyalni...

Miert, az enyemben nem latod az onmagat meghivo ciklust? Ott van, rloop
a neve, mint recursive loop.

> Nem akarom a far...at, bocs, az altalunk hasznalt programnyelveket
> osszehasonlitani :) Nem ez volt a cel... Ugy gondoltam, hogy a modszeretek
> rossz, a Delphi/Python "versenyt" csak provokaltam, hogy a masik modszert
> megmutassam :)

Jol van, egye fene, mutasd azt a masik modszert! Ja, hogy ez volt az?
Bocs, de ezt hasznaltam en is ;-))

csm

> A  Delphi  visual  nyelv,  azaz a programban ONMAGATOL az IDE beir egy
> csomo mindent. De azt nem fair beirni, mert a Tied nem visual nyelv. S
> a Visual nyelv sajatossaga miatt azert sokkal felhasznalobaratabb is.

Na varj. Itt nem azokrol a dolgokrol beszeltem, hanem pl. ahol beallitod
a max_t-t, meghivod ezt a kodot az OsszegKeres(1)-gyel stb. Azt azert
kezzel kell beirni valahova, nem?

>>> A Te kododban minden megoldas vegen van egy extra '+' jel, ezt en a
>>> Delete(r_s,Length(r_s),1); sorral letorlom.
> c> Azt lenne a legegyszerubb eltuntetni, azert volt csak igy osszecsapva,
> c> mert kozben eppen dolgoztam, nem volt nagyon idom foglalkozni vele...
>
> Elhiszem, csak ra akartam mutatni, hogy en teszteltem a programot, Te
> nem, vagy nem vetted eszre ezt :)

Marmint az enyem? Leteszteltem, mielott feltoltam, nalam nem maradt ott
a + jel, a '\b\b ' kitorolte... Nalad latszott? A tiedet nem tudtam
tesztelni, mert pl. nincs delphim.

> c> A hibat ott ertettem, hogy nem ellenorzi, hogy a parancssorban tenyleg
> c> szamokat kap-e, vagy esetleg valami mast.
>
> Ez lenyeges kulonbseg. Mondom, nem akarok nyelvhaborut generalni. A
> Delphi Visual nyelv, beirod egy komponensbe a tagokat, aztan ha nem
> tetszik, egyet atirsz, stb. utana kuldod ra az algoritmust.

Ezt nem ertem... Legyszi kicsit reszletezd, hogy itt mire gondoltal, nem 
ismerem a delphit (se).

>>> Nem akarom a far...at, bocs, az altalunk hasznalt programnyelveket
>>> osszehasonlitani :) Nem ez volt a cel... Ugy gondoltam, hogy a modszeretek
>>> rossz, a Delphi/Python "versenyt" csak provokaltam, hogy a masik modszert
>>> megmutassam :)
> c> Jol van, egye fene, mutasd azt a masik modszert! Ja, hogy ez volt az?
> c> Bocs, de ezt hasznaltam en is ;-))
>
> Miutan en mondtam, hogy ezt ezzel kellene megoldani... Bocs :) Ugy mar
> konnyu. De tenyleg nem vettem eszre, hogy azzal oldottad itt meg.

Hat, ha a te peldad alapjan oldottam volna meg, akkor most nem
levelezgetnenk, mert inteznem az idogepem szabadalmi ugyeit ;-)

> Egyezzunk  ki  abban,  hogy  EZT a feladatot ugyanannyi programozassal
> lehet  megoldani,  s nagy volt a szam, amikor azt mondtam, hogy harmad
> annyi  a  kod.  Tenyleg  hittem benne, s amikor leirtam a kodot lattam
> meg, hogy kicsit tobb a sok elagazas miatt, mint gondoltam elsore.

http://dada.perl.it/shootout/delphi.html
http://dada.perl.it/shootout/python.html
Hasonlitgasd a LOC (Lines Of Code) oszlopban levo szamokat, sajnos a ket
listaban nem azonos sorrendben vannak. Meg fogsz lepodni... Itt meg a
vegso sorrend LOC szerint: 
http://dada.perl.it/shootout/craps_loc.html

csm

> Te parancssorban adod be a parametereket, en vizualisan gondolkodom,
> pl., beirod egy TMemo komponensbe a szamokat, onnan olvasod ki oket.

Oke, de mi van akkor, ha nem szamot irsz be, hanem azt, hogy alma?
En ilyen hibara gondoltam, ez a te programodnak is megartana, nem?

> En nem irtam, hogy a PELDAM alapjan irtad meg. Ugy, ahogy en sem a
> PELDAD alapjan irtam meg az enyemet. Azt irtam, hogy az altalam
> megjelolt MODSZERT hasznaltad. :) Eloszor irtatok i1..i12 szeru 12 db
> egymasba agyazott ciklusrol. Erre irtam en, hogy ezt onmagat meghivo
> ciklussal kell megoldani. EZUTAN irtad at onmagat meghivo ciklusra Te
> is a kodot. ;-)

Es tenyleg, most, hogy mondod, eszembe jutott az a level. De becsszora,
a programot nem az alapjan irtam ;)

> Megneztem. De nem akarok flamet. Vannak olyan dolgok, amiket Te
> Pythonban nem tudsz megcsinalni (mert nem vizualis nyelv, ha jol
> tudom, de ha igen, javits ki), s van amit en Delphiben hatalmas nagy
> koruljarassal, ami neked Pythonban par sor. Mas feladatra valok.

Flame-et en se akarok. Maradjunk annyiban, hogy mindketto altalanos
programozasi nyelv, mindkettovel le lehet kuzdeni minden problemat, csak
altalaban pythonban rovidebb koddal, viszont lassabban ;)
Ja, mit ertesz 'vizualis' nyelven?

csm

>A birosag pedig elmarasztalt, valamint felszolitott a torvenyserto 
>magatartas beszuntetesere.

Hááááááát, azt a bírót elküldeném a tanyámra, elkelne a kapa mellé!

Te nem követtél el jogsértést, sőt!
A kaszálással (nem ismerem a jogszabály számát) jogsértést előztél 
meg.	 No meg a tulajnak többmilliós birságot.
No azt hiszem értelmetlen tovább a hixet borzolni ezzel a  témával.
   
--
Bye:csutak - visit to ;http://csutak.freeweb.hu
			       Linux Forever!

Hali!

Kerdesem az alabbi:

Szeretnek USB-s Pendrive-rol bootolni.
Hogyan lehet Win XP alatt rendszert rarakni?
A hozzaadott programmal csak Win98 alatt engedne, az meg nekem nincs.
A meghajto formazasanal nem el a rendszerlemez keszitese.

Koszi.
Robi.

Sziasztok!

Bar nem Canonrol szol a hozzaszolasom, de a tapasztalatot azert megosztom:

Epson Stylus Color 460-hoz kiprobaltam az utangyartott patront es az
ujratoltottet egyarant. Az ujratoltes alig volt olcsobb, mint az
utangyartott patron. Ugyanakkor az ujratoltottel csak gond volt: olyan
gyakran kellett fejtisztitast futtatni, hogy tkp. nem erte meg. Az
utangyartott patronnal soha nem volt semmilyen problema. A fej egyebkent a
nyomtatohoz tartozik.

Nemreg valtottam Canon Pixma iP 1000-re. Meg az eredeti patronokkal megy.
Olyan olcso az utangyartott patron bele, hogy meg sem fogom probalni az
utantolt(et)est. Elso korben biztosan nem gyari patronnal fogok probalkozni,
bar az meg mindig olcsobb, mint az Epson utangyartottja. A fej szinten a
nyomtatohoz tartozik, viszont az Epsonnal ellentetben siman kiemelheto a
nyomtatobol es cserelheto. Sose legyen ra szuksegem!

Udv: Csuncsiri


----- Original Message -----
>
> 610C-hez vettem eloszor csak utantoltokeszletet. 2x toltottem vele, ara a
> 2 toltesnek kb. 1/3-a volt, mintha uj patront vettem volna. Aztan
> csereltem utangyartott patronra, az kb. negyede volt, kb. ugyan addig
> birta. Van, akinel bejon, van, akinel nem. Egyszer erdemes kiprobalni.
>

$B!!!!!!!!!!!c!cK\Ev$K2q$($k=P2q$$$N>l$G$9!d!d(B

$BB>$N%5%$%H$G$OEvA3$N$h$&$K$"$k5!G=$G$*5RMM$N%a%C%;!<%8Fb$N(B
$B%a%"%I$d7HBSHV$r8+$($J$/$7$?$jB>$NJ8;z$KCV$-49$o$C$F$7$^$&(B
$B5!G=$O!"Ev%5%$%H$K$O$4$6$$$^$;$s!#(B
$B=P2q$$7O%5%$%H$J$N$K$=$s$J5!G=$,$"$C$?$i2q$($^$;$s$N$G!#(B
$BEv%5%$%H$O%a%"%I(B,$B7HBSHV9f$N8r49$O<+M3$G$9!#(B
$B!!!!!!!!!!(B
$B!!!!!!!!!!!!(Bhttp://www.lovegal3.net?indextop



$B!!!!!!!!!!!!!!!Z8=:_9T$o$l$F$$$k4k2h![(B

$B!!!!$J$k$Y$/<j4V$r8:$i$7$F4uK>$NAj<j$H8r>D$7$?$$J}!"(B
$B5$$K$J$k?M$,2?$r5a$a$F%5%$%H$KMh$F$$$k$N$+CN$j$?$$J}!"(B
$B!!!!!!!!!!F1$85$;}$A$N0[@-$+$iO"Mm$,M_$7$$J}!"(B
$B!!!!!!$=$s$JJ}$N$?$a$K4k2h$5$l$?Bh#3CF$,<B;\Cf$G$9!#(B
$B!!!!!!!c$*$+$2$5$^$GA02s!"A0!92s6&$K9%I>$G$7$?!#!d(B
$B!!(B    $B!!!!!!(Bhttp://www.lovegal3.net?indextop
$B!!!!"(2<5-$r$7$C$+$jFI$s$G$+$i;22C$7$F$/$@$5$$$M(B


$B!!!!!!!a!a<+J,$,5a$a$F$$$kAj<j$+$i$NO"MmBT$A!a!a(B
$B!&%K%C%/%M!<%`$N:G8e$K4uK>$N8r:]J}K!$N%-!<%o!<%I$rF~NO$7$F(B
$B!!$/$@$5$$!#!J%-!<%o!<%I$O2<5-;2>H!K(B
$B!!!!!!!!!!!!!!$?$C$?$3$l$@$1$N$3$H$G!"(B
$B!!!!!!!!F1$8$h$&$J5$;}$A$N0[@-$+$iO"Mm$,Mh$^$9!*(B
---
$B%-!<%o!<%I(B
$B!!(BS$B!!!!!!(BSEX$B%U%l%s%I!JITNQ9~$_!K$r4uK>(B
$B!!(BL$B!!!!!!Nx0&Aj<j$r4uK>(B
$B!!(BM$B!!!!!!7k:'Aj<j$r4uK>(B
$B!!(BG$B!!!!!!5U!{=u8r:]Aj<j$r4uK>(B
$B!!(BF$B!!!!!!%a%kM'(B,TEL$BM'!JIaDL$NM'C#9~$_!K$r4uK>(B
---
$B!!$3$N%-!<%o!<%I%j%9%H$O=w@-2q0w$NJ}$KG[I[$7$F$*$j$^$9!#(B








$B$*<j?t$G$9$,G[?.5qH]$NJ}$O%3%A%i$^$G(B 

Helló!

Internet explorer, .zip-file letöltés: megkérdezte, hogy nyissa meg vagy mentse
... alatta, hogy mindig kérdezzen-e rá. Nekem sosem kéne megnyitnia, így naívan
 azt választottam, hogy ne kérdezze meg és mentse... Erre átállította úgy, hogy
 mindig megnyitja... Furcsa logika... Hogyan csinálhatnám vissza, hogy legalább
 megkérdezze? :)
(Maradna ez a böngésző, ha lehet :) ...mert 64MB RAM-mal P2 laptop)

köszi!
üdv.
T.

(webes bekuldes, a bekuldo gepe: 183-38-25.ip.adsl.hu)

Volt ilyen problemam nekem is egy masik eszkoz programja megoldotta a gondom.
Ha megadod a mailcimed elkuldom a telepitot.

Toni

(webes bekuldes, a bekuldo gepe: relay.rethy.hu)

Méljen 10telt Publiqm!

Nagyon köszönöm a segítséget Wynx-nek! Megoldotta a problémát!

On 22 Jun 2005 at 10:44, Tajthy Tamás wrote:

> > Letöltöttem egy usbview.exe-t is. Az mindenféle
> > azonosítókat ír ki. Pl.:
> > idVendor: 0x067B
> > idProduct: 0x2517
> 
> Az jó. Rákerestem, és leginkább A-DATA termék kapcsán emlitik linuxosok.
> Ha mégsem, akkor is megpróbálhatod a honlapjukról letölteni a drivert.
> http://www.adata.com.tw/download/driver/PL2515W98_v1009.zip Egyébként az
> enyém tényleg A-Data, és mégis ezt irja ki az USBview:

Próbáltam vendor ID-t keresni, de nem találtam. Neked hol sikerült?

Nagyon köszi!

Üdv From:, a feltalált

Én irtam:
> Ehhez a racknak kell masternek a gépben lévönek pedig slave-nek lenni.
> Igy ha benn van a rack, arról indul, ha nincs, simán a beépitettröl.

Hmm, ez igy nem feltétlen igaz. Ha még nem javitott ki senki, korrigálom
magam. Kicsit összecsúszott két dolog, mert akkor kell igy lennie, ha az
alaplap BIOS-a nem enged választani, hogy HDD0-ról vagy HDD1-röl bootoljon,
csak simán HDD-röl.
Elöbbi esetben közömbös, hogy master vagy slave a rack, és nálam is éppen
slave-en van. Viszont a korábban telepitett Linuxhoz már megint nem mindegy.

WynX

(webes bekuldes, a bekuldo gepe: chip.antsz.hu)

On Mon, Jun 20, 2005 at 11:03:22PM +0200,  wrote:
> Amint irtam Win98 SE-m van es nem tudtam feltelepiteni a driver-t, mert 
> ugyan felismeri, hogy ez egy "USB Mass Storage Device", de driver-t nem 
> talal az install CD-n. Neccen keresve talan valami usbstor.sys-t 
> kellene talalnom, de sehonnan nem tudtam letolteni...

Amikor nekem kellett ilyesmivel nyuglodni, az alabbit csinaltam:

Elovettem  egy olan drivert, ami garantaltan mukodott (egy masik cucchoz
kaptam, az ujabbakhoz mar nem szoktak win98 drivert mellekelni).
Kineztem a kerdeses cucc vendor es product ID-jet (Linux alatt ez
egyszeru volt, de Windows alatt is biztosan vannak erre megfelelo kis
programok)
A mukodo driverben tobbnyire talalni egy .inf file-t, mivel az szoveges,
meg lehet keresni a vendor es product id-t, es atirni a nem mukodo usb
drive-era. Aztan mar csak be kell dugni, es egy kis szerencsevel
mukodik.

Az usb drive-ok nagy resze egyforman viselkedik, ezert is van az, hogy
W2k, WXP alatt nem kell a hasznalatukhoz kulon driver, csak a Win98 ezen
ket ID alapjan hatarozza meg, hogy mi kell hozza, es igy nem talalja
hozza a megfelelo drivert.

-- 
--- Friczy ---
'Death is not a bug, it's a feature'

Kertesz Vilmos irta:
>>>Duracell, Energizer, Varta... ebben a sorrendben, s a tobbi. GP pl.
bena
>>>szerintem, Hama... nem is tudom, olyan kozepes minoseg, GPvel
>>>egyenerteku,
>>>Annsman-t nem ismerem.
>>Nem ertek egyet. A GP nekem bevalt es sok pozitiv kritikat olvastam rola
a
>>neten, nem ugy a favoritjaidrol.
>Nem akarok vitatkozni errol. Meggyozni sem. Hasznald egeszseggel, ami
neked
>bevalt.

Ne sertodj meg. A "GP pl. bena szerintem"-re irtam, hogy nekem semmi bajom
sincs vele, valamint, hogy nezelodtem a neten, mielott megvettem es masok
szerint sem. (ez az oldal utana kerult a latokorombe, hogy megvettem, de
nem bantam meg)
Nezz el ide: http://forum.terminal.hu/viewtopic.php?t=15724&start=0

Udv
Inhouse

A GURU 3771-ban irta :
>>>http://csomay.hu/misc/szamx2.py 
>>>Na, akkor esetleg EZT irja at valaki VB-re! ;-)
>> Szerintem Delphiben (VB ugyanaz) egyharmada a Pythonnak :)))
>Jelez a nagyotmondas-detektorom! ;-)

:) Meglatjuk...

>A python program 40 soros, ha 14 sorban sikerul ugyanezt megoldani
>delphiben vagy VB-ben, akkor nagy nyilvanossag elott elismerem, hogy a
>delphi (vagy a VB) sokkal jobb a pythonnal.
>Az mondjuk tenyleg erdekelne, hogy delphiben hogyan lehet atalakitani
>tetszoleges szamu string parametert egesz szamokka, vagy hogyan lehet
>ellenorizni, hogy van-e koztuk 1-nel kisebb... Megmutatod?

Azt fogom megmutatni, hogy megkeresni adott szam felbontasat x adott
osszetevore kevesebb kodolas Delphiben. Ez volt a feladat, nem?

Procedure OsszegKeres(a:Integer);
var i,j:Integer;
;

A programban meg igy inditod: OsszegKeres(1);

A Te kododban minden megoldas vegen van egy extra '+' jel, ezt en a
Delete(r_s,Length(r_s),1); sorral letorlom.

Osszeg tartalmazza megkeresendo szamot, max_t a komponensek szamat, t[..] a
komponensek erteket takarja. 

Kiprobaltam, mukodik szepen. Nem ertettem, milyen hibatures hianyarol
beszeltel a programodban, itt nem is lehet hiba, s szerintem a kod is jobban
atlathato (de ez izles kerdese).

Delphi: Python, 357 vs 638 karakter.

De nem is ez a lenyeg, mert ez az arany is csaloka. Arra akartam ramutatni,
hogy ezt a feladatot Onmagat meghivo ciklussal kell megoldani, nem olyan
formedvenyekkel, ahogy ezt a temat elkezdtetek kitargyalni...

>(Persze jo, ha a ketto egyutt max. 2/3 sor hosszu, mert kulonben konnyen
>kifuthatsz a 14 soros limitbol :-))

Kifutottam :)

>Azt mar nem is kerdezem, hogy delphiben hany sor lenne az, hogy ket
>ugyanolyan hosszu vektor azonos indexu elemeit osszeszorozd, majd az
>eredmenyul kapott vektor elemeit osszeadd, kivond az eredmenyt egy masik
>szambol es ellenorizd, hogy a vegeredmeny nulla-e.
>Mert ez, amit itt 4 sorban leirtam, az pythonban csak 1 sor... ;-)

Nem akarom a far...at, bocs, az altalunk hasznalt programnyelveket
osszehasonlitani :) Nem ez volt a cel... Ugy gondoltam, hogy a modszeretek
rossz, a Delphi/Python "versenyt" csak provokaltam, hogy a masik modszert
megmutassam :)

Vedd figyelembe, hogy en vegyesz vagyok, egy Delphi programozo lehet, hogy
kinevetne, mert felebol megoldana, mint en azt most itt tettem :))

Minden jot, Vili ---  www.macasoft.hu --- HIXEditor 1.2beta3
Ujsagba es maganba

>> Azt fogom megmutatni, hogy megkeresni adott szam felbontasat x adott
>> osszetevore kevesebb kodolas Delphiben. Ez volt a feladat, nem?
c> Nem  teljesen...  :-)  Amit  en  bekuldtem, az egy komplett program
c> volt,  igy,  ahogy  van,  futtathato,  a  tied  nem  az, sok minden
c> hianyzik belole. Pl. ahol beallitod a valtozoidat, ahol beolvasod a
c> parametereket,  ahol  atalakitod  oket  szamma,  ha  nem azok, ahol
c> ellenorzod, hogy van-e koztuk 1-nel kisebb...
c> Meg persze van egy elvi kulonbseg: az en programomnak fogalma sincs
c> arrol, hogy hany parameterrel dolgozik eppen, de nem is kell tudnia.
c> Arra gondoltam, hogy ezt vajon meg lehet-e oldani pl. delphiben. Mert
c> ugy konnyu, hogy max_t-ben megkapja a parameterek szamat ;-)

Ez Delphi 3. A jelenlegi verzio Delphi... 9? talan... De 7 mindenkepp.
Ezekben  mar,  mint  nalad,  vannak...  talan nyitott tomboknek hivjak
oket. Szoval Delphiben is megoldhato minden, amit leirtal.

>> Procedure OsszegKeres(a:Integer);
c> [...]
>> A programban meg igy inditod: OsszegKeres(1);
c> Na igen, ez a program kellene meg, hogy tenyleg ossze lehessen
c> hasonlitani oket, mivel az nalam csak egy sor (az utolso) :-)

A  Delphi  visual  nyelv,  azaz a programban ONMAGATOL az IDE beir egy
csomo mindent. De azt nem fair beirni, mert a Tied nem visual nyelv. S
a Visual nyelv sajatossaga miatt azert sokkal felhasznalobaratabb is.

>> A Te kododban minden megoldas vegen van egy extra '+' jel, ezt en a
>> Delete(r_s,Length(r_s),1); sorral letorlom.
c> Azt lenne a legegyszerubb eltuntetni, azert volt csak igy osszecsapva,
c> mert kozben eppen dolgoztam, nem volt nagyon idom foglalkozni vele...

Elhiszem, csak ra akartam mutatni, hogy en teszteltem a programot, Te
nem, vagy nem vetted eszre ezt :)

c> De vegulis te is ugyanazt csinalod: letorlod az utolso karaktert.
c> Viszont ha en stringbe gyujtenem a kiirandot, nem rogton kiirnam, akkor
c> csak ennyi lenne levagni a veget (ha mar karaktereket szamolunk):
c> print r_s[:-1]

Tudom. :)

>> Nem ertettem, milyen hibatures hianyarol beszeltel a programodban, itt
>> nem is lehet hiba, s szerintem a kod is jobban atlathato (de ez izles
>> kerdese).
c> A hibat ott ertettem, hogy nem ellenorzi, hogy a parancssorban tenyleg
c> szamokat kap-e, vagy esetleg valami mast.

Ez lenyeges kulonbseg. Mondom, nem akarok nyelvhaborut generalni. A
Delphi Visual nyelv, beirod egy komponensbe a tagokat, aztan ha nem
tetszik, egyet atirsz, stb. utana kuldod ra az algoritmust.

>> Delphi: Python, 357 vs 638 karakter.
c> Itt almakat hasonlitasz kortekhez, vagy mi...

Ebben igazad van, nem is tagadtam.

c> Ennek  akkor  lenne  ertelme, ha ugyanazok lennenek a valtozonevek,
c> meg  a tied is teljes program lenne. Raadasul azt se tudom, hogy az
c> 1069 byte-os program melyik 638 karakteret szamoltad...

:) A betuket :)

>> De nem is ez a lenyeg, mert ez az arany is csaloka. Arra akartam ramutatni,
>> hogy ezt a feladatot Onmagat meghivo ciklussal kell megoldani, nem olyan
>> formedvenyekkel, ahogy ezt a temat elkezdtetek kitargyalni...

c> Miert,  az  enyemben nem latod az onmagat meghivo ciklust? Ott van,
c> rloop a neve, mint recursive loop.

Franc se ertette, nem ismerem s Pythont. Bocs, bennem meg azok a
formedvenyes i1..i12-es ciklusaitok eltek.

>> Nem akarom a far...at, bocs, az altalunk hasznalt programnyelveket
>> osszehasonlitani :) Nem ez volt a cel... Ugy gondoltam, hogy a modszeretek
>> rossz, a Delphi/Python "versenyt" csak provokaltam, hogy a masik modszert
>> megmutassam :)
c> Jol van, egye fene, mutasd azt a masik modszert! Ja, hogy ez volt az?
c> Bocs, de ezt hasznaltam en is ;-))

Miutan en mondtam, hogy ezt ezzel kellene megoldani... Bocs :) Ugy mar
konnyu. De tenyleg nem vettem eszre, hogy azzal oldottad itt meg.

Egyezzunk  ki  abban,  hogy  EZT a feladatot ugyanannyi programozassal
lehet  megoldani,  s nagy volt a szam, amikor azt mondtam, hogy harmad
annyi  a  kod.  Tenyleg  hittem benne, s amikor leirtam a kodot lattam
meg, hogy kicsit tobb a sok elagazas miatt, mint gondoltam elsore.

Udv, Vili