Hi Coders!
> Felado : [Hungary]
...
> Az a, C es m szamokat elore kell megvalasztani. Nem mindegy azonban, mit
> valasztasz, csak bizonyos szamok eseten mukodik jol. Hogy mik ezek a szamok,
...
> (Es ha utananezel, irj rola, ugyanis ezt en sem tudom. :) )
A ket szamnak P R I M-nek kell lennie (Jo nagynak es nem lehetnek egyenloek).
En is irtam (igaz nem mertem ki, hogy milyen az eloszlasa):
Function iRandom : Integer; Near; Assembler;
ASM
db 66h; mov ax, word ptr RandSeed
db 66h; imul ax;
db 66h; xor word ptr RandSeed, ax
END;
A RandSeed kezdoertekenek a Clockmsec fuggvenyt (regebbi CODER-ben
le van kozolve) hasznalom.
> Felado : [Hungary]
> Eloszor is nagyon egyetertek Kovacs Antal Temakor szelektalas cime
> cikkevel. Sokkal optimalisabb lenne [] koze subj-ba tenni a temat.
Elmerenget ket bitem vilaga s Budhai villagossag (meg Marosi Istvan
maganvelemenyenek felhangja) gyult agyamba: Innkabb Jelezi kellene
a temakat (lsd. mint fent). Amugy sehol nem valt be eddig :(((
> Felado : [Hungary]
> Ime a pascal random fuggvenye: eleg bonyolult, de jo.
Pont azert ir az embor sajat randomfuggveny, mert a Pacalban
levo tul lassu. Avacs my nincs True?
|
Hi, Coders!
Egy kis kiegeszites a tegnapi veletlenszam-generatorhoz. Akkor ugyanis nem
tudtam a szukseges megszakitasszamot, de most mar utananeztem. Az idoszolgal-
tatasokat az 1Ah biztositja, annak most a 0-s funkcioja kell.
Akkor most jojjon a randomize eljaras.
randomize PROC
xor ah,ah
int 1Ah
mov word ptr [rn],dx
mov word ptr [rn+2],cx
RET
randomize ENDP
(A tegnapi random proc egyebkent az AX-ben ad vissza eredmenyt, es word inter-
vallumban kapunk egesz szamokat. Assemblyben nem tudok real szamokat generalni.
)
Pisti
|