>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
|
> 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
|