Helyesen:

 >#include <iostream.h>
 >
 >int szam;
 >
 >void main (void)
 >{
 >   do
 >   {
 >      cout << "Irj be egy nullanal nagyobb szamot: ";
 >      cin >> szam;
 >      if (szam<=0)
 >      {
 >         cout << endl << "Nem jo!!" << endl;
 >         cin.clear();
 >         cin.ignore( 255, '\n');
 >      }
 >   }
 >   while (szam<=0);
 >}

Ez sajnos nem oldja meg azt a problemat, ha az input _eleje_ szam, a
vege egyeb, pl. "11g", az eredmeny a fentiek ertelmeben (nem egeszen
helyesen) 11 lesz.  De hat ez az istream>>(...) problemaja, es egyebkent
a kovetkezo olvasasnal ugyis kiderulne a turpissag.  Erzesem szerint az
istream-et valojaban nem a bombabiztos szintaktikai ellenorzes megoldasa
vegett talaltak ki.  Az ilyenre imho kedvezobb ha egy OCL vagy
RogueWave-jellegu konyvtar izmos string-osztalyait hasznalod (MFC
alkalmatlan, az viccnek is rossz).  Soronkent olvass a stream-bol es adj
neki a kulonbozo parsing-objektumokkal.

Utolso kukacoskodo megjegyzes: meg az ilyen nyulfarknyi peldakban sem
tartom jo otletnek a globalis valtozokat.  Minek?

Udv,
Peter

Udvozlom a listatgokat!

Igen nagy szuksegem lenne egy szabadon terjesztheto
MP3at lejatszo forraskodreszre Win32 ala.
Ne kimeljetek, www cim is johet! Elore is koszonom!

	Geza

Szervusz Laszlo!

Egy eleg gyors es hatekony algoritmus a kovetkezo:

tomb[N]

Eljaras Osszekavar
 ciklus i = 1 to N
   seged=tomb[i]
   y=Veletlenszam(N)
   tomb[i]=tomb[y]
   tomb[y]=seged
 Ciklus vege
Eljaras vege

Gondolom, nem fog nehezseget okozni atforditani Delphi-Pascalba.

Udv
  Szilagyi Jozsef

Hi !

> Nam tudtok valami egyszeru algoritmust arra, hogy
> pl. 1-1000 -ig a szamokat osszekavarja, persze ugy,
> hogy mindegyik megmaradjon, csak ne a helyen, es
> veletlenszeruen? (pl. egy 1000 elemu tombben)

Talan a legegyszerubb az lenne ha venned a tombodet feltoltve,
majd randommal generalnal szamparokat, majd a paroknak megfelelo indexu
parokat felcserelned.

valami ilyesmit kellene egy ciklusban hivogatni : 

swap(tomb[random(1000)], tomb[random(1000)]

ahol swap ertelemszeruen felcsereli az atadott parametereket. 
(cimszerinti parameteratadas rulez :-) )

Udv:
-- 
Csiszar L.
http://www.stadium.hu/szt/

sziasztok Kodolok

(var s : string[255] absolute Cseg:$80;)

Koszonet a sok jo megoldasert a fenti ugyben.

a lenyeg az ,hogy ezt egy konyvbol vettem nem en talaltam ki.
csak nekem 7.0 -as forditom van es 4.0 -tol felfele
nem lehet abszolut valtozodeklaracioban fuggveny..,
mint kiderult.(irta:Pirko Jozsef tp5.5)

es mint kiderult sok pascalos olvassa a codert ezert
megragadom az alkalmat sajat fejlesztesu hasznalhato
mukodo Unitok kunyeralasara barmilyen temaban
barkitol akinek nem copirajtos.Buher es okulas celjara. :-)

mindenkinek koszi elore is.

udv
SAfi
>