Tym razem taki sobie luźny temat, dla obudzenia.
Piszemy przykłady losowania liczb, ale bez użycia funkcji Random, Rand czy jakichś takich "gotowych" funkcji.
Mój przykład:
Function Losuj(Max: Integer): Integer;
Begin
Result := GetTickCount Mod (Max+1);
End;
Język dowolny.
A ja dodam tylko, cd.mojego kodu:
Zalety
Łatwa implementacja
Wady
Przy użyciu pętli będzie cały czas ta sama liczba :P
A wy jakie macie pomysły (już bez użycia GetTickCount :D ).