>Lottoszamgeneralo PASCAL program:
>-'IF' utasitast nem szabad hasznalni
>-egyetlen 'FOR' (1 to 5) ciklusbol all az egesz
>-ne legyen hosszabb 15-20 sornal
>-nem lehet ket egyforma szam
>-az eredmenyeket novekvo sorrendben irja ki

A Jo,
  n := 0;
  for i := 1 to 5 do begin
    n := random(85+i-n)+n+1; writeln(n);
  end

a Rossz,
  for i:=1 to 5 do writeln(i);

es a Csuf:
  n := random(86  )  +1; writeln(n);
  n := random(87-n)+n+1; writeln(n);
  n := random(88-n)+n+1; writeln(n);
  n := random(89-n)+n+1; writeln(n);
  n := random(90-n)+n+1; writeln(n);

:)

z2

> =======================================================
> Felado :  [Hungary]
> Temakor: Hazi feladat! ( 19 sor )
> Idopont: Thu Mar 12 14:06:31 EST 1998 CODER #48
> - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> 
> Sziasztok CODER-ek!
> 
>    Lenne egy kis keresem.
>    Szuksegem van egy Lottoszamgeneralo PASCAL programra.
>    Feltetelek:
>    -felejtsd el az 'IF' utasitast;azaz nem szabad hasznalni
>    -gyakorlatilag egyetlen 'FOR' (1 to 5) ciklusbol all az egesz
>    -ne legyen hosszabb 15-20 sornal
>    -nem lehet ket egyforma szam
>    -az eredmenyeket novekvo sorrendben irja ki
> 
> Aki erez eleg batorsagot a kihivashoz , az probalkozhat.
> 
>                                    Elore is koszonom a faradozasotokat!

Tehat a progi :
var i : byte;
.

Remelem tetszet!!!

udv. Laci

> Temakor: Hazi feladat! ( 19 sor )

>    Szuksegem van egy Lottoszamgeneralo PASCAL programra.
>    Feltetelek:
>    -felejtsd el az 'IF' utasitast;azaz nem szabad hasznalni
>    -gyakorlatilag egyetlen 'FOR' (1 to 5) ciklusbol all az egesz
>    -ne legyen hosszabb 15-20 sornal
>    -nem lehet ket egyforma szam
>    -az eredmenyeket novekvo sorrendben irja ki

program lotto;
var
n,l,u,sum :integer;
h         :array[1..5] of integer;
.

   Ennyi a megoldas. Nem tul szep, s lehet meg rajta javitani.
   Mi is lenne az alapelv ?
   Az a lenyeg, hogy mindig egy lehetseges, fogyo 
   intervallumban hozunk letre random szamokat - igy 
   kihagyva az ismetlodes lehetoseget. Ez persze befuccsolhat
   ha peldaul ha kihuzzuk a 88-at elso lepesben.
   Tehat keszitunk egy ellenorzo osszeget ami nem lehet nagyobb
   mint 440 (86+87+88+89+90) illetve ugyelunk, hogy az utolso
   szamunk is 91 alatt legyen.
   
   A programba a 'div (6-n)' resz csak kesobb kerult bele, s az
   egyenletesebb sulyozast szolgalja - sajnos azt is, hogy az elso
   szam az 1-18 intervallumba esik. Ez persze nem egeszen random :(
   Ha viszont ezt kihagyjuk, akkor a magasabb szamok fele tolodik
   el a suruseg. Ha valaki tud jobbat, szojon...

Gabor Legrady
Software Developer
E-PUB  Tel.:269-1720
ICQ UIN: 1049022

Hello!

> Ha tud valaki valamilyen gyors layer-3 dekoder source-ot, 
> ne kimeljen. Ha portolni kell az sem akadaj.

http://www.mp3.com/programming.html

Itt talalsz egy-ket source-ot. En nem probaltam meg egyet sem 
letolteni, ugyhogy nem tudok bovebb infoval szolgalni roluk.

Remelem segit valamit!

Udv,
Barna