Jeśli chcesz wziąć udział w dyskusjach na forum - zaloguj się. Jeżeli nie masz loginu - poproś o członkostwo.

• Zapomniane hasło?
• Poproś o członkostwo

1. • 1: CommentAuthorwery
   • CommentTime11 Feb 2024 zmieniony

    
   Witam. Poszukuję listingów programów do losowania liczb w totolotku. Mogą to być proste lub bardziej złożone programy.
   Pozdrawiam
2. • 2:
      
     CommentAuthorpirx
   • CommentTime11 Feb 2024 zmieniony

    

   10 MAX=65:CNT=6:F.I=1TOCNT:?INT(RND(0)*MAX+0.5);" ";:N.I:?:G.10
3. • 3:
      
     CommentAuthorjhusak
   • CommentTime12 Feb 2024 zmieniony

    
   Oj, chyba błąd :)
   
   

   10 MAX=65:CNT=6:F.I=1TOCNT:?INT(RND(0)*MAX+1);" ";:N.I:?:G.10

   
   
   No i jeszcze kwestia powtarzania się wyników, ale te można odrzucić.
4. • 4:
      
     CommentAuthorpirx
   • CommentTime12 Feb 2024

    
   hehe no tak :))) takie z odrzutem jeszcze by się w linijce zmieściło chyba.
5. • 5:
      
     CommentAuthorBca
   • CommentTime15 Feb 2024 zmieniony

    
   Kiedyś TOTOLOTEK był wylosowywany za pomocą takiej analogowej betoniarki. Sam ostatnio pytałem GPT czy zna już najbliższe wyniki lotto... Takie czasy. A program bym tak poprawił MAX=49
6. • 6:
      
     CommentAuthorPeri Noid
   • CommentTime15 Feb 2024

    
   Na próbę @QTZ: ->link<-
7. • 7:
      
     CommentAuthorKaz
   • CommentTime15 Feb 2024

    
   Pozwoliłem sobie na modyfikację tytułu wątku, usuwając dopisek o emulatorach, bo zbędny, a teraz jest czytelniej.
8. • 8: CommentAuthorastrofor
   • CommentTime15 Feb 2024

    
   Ale jak atari wylosuje mi szczęśliwe numery to wygram milion w starych czy nowych złotych ?
9. • 9:
      
     CommentAuthorKaz
   • CommentTime16 Mar 2024 zmieniony

    
   Był też program w Bajtku Leszka Stróżowskiego (zapodaję niżej, ale jeśli chcesz go przepisać to pamiętaj, ze w którymś następnym numerze była errata, bo były jakieś błędy podczas składu pisma - OIDP).

   • totolotek.jpg
     
     
     
     
10. • 10: CommentAuthorwery
    • CommentTime17 Mar 2024

     
    Errata jest w Bajtek nr 1991_02.
    Załączam plik

    • toto lotek poprawny.docx
11. • 11: CommentAuthorlzd
    • CommentTime17 Mar 2024 zmieniony

     
    Na prośbę QTZ:
    

    • totolotek.7z
12. • 12: CommentAuthorlzd
    • CommentTime17 Mar 2024

     

    pirx:

    takie z odrzutem jeszcze by się w linijce zmieściło chyba.

    
    W Atari Basicu nie zmieści się, bo spełniony warunek IF działa do końca linii. W innych dialektach też będzie problem ze względu na ograniczenie długości linii do 120 znaków.
    

    10 DIM R(6):M=49:C=6
    15 FOR I=0 TO C-1
    20 R(I)=INT(RND(0)*M+1)
    25 FOR J=0 TO I-1
    30 IF R(I)=R(J) THEN 20
    25 NEXT J
    30 ? R(I);" ";
    35 NEXT I
    40 ? :GOTO 15
13. • 13:
       
      CommentAuthorpirx
    • CommentTime18 Mar 2024

     

    10 M=49:C=6 :DIM R(C-1)
    15 FOR I=0 TO C-1
    20 R=INT(RND(0)*M+1)
    30 FOR J=0 TO I-1
    40 IF R=R(J) THEN POP :GOTO 20
    50 NEXT J
    60 R(I)=R:? R;" ";
    70 NEXT I
    100 ? :RUN
    
14. • 14: CommentAuthorwery
    • CommentTime9 godzin temu

     
    Jak go zmienić, aby po wylosowaniu 6 z 49 liczb bez powtórzeń zapisać je jako zmienne liczbowe A1,A2,A3,A4,A5,A6?
    10 M=49:C=6 :DIM R(C-1)
    15 FOR I=0 TO C-1
    20 R=INT(RND(0)*M+1)
    30 FOR J=0 TO I-1
    40 IF R=R(J) THEN POP :GOTO 20
    50 NEXT J
    60 R(I)=R:? R;" ";
    70 NEXT I
15. • 15: CommentAuthorlzd
    • CommentTime7 godzin temu

     

    80 A1=R(0):A2=R(1):A3=R(2):A4=R(3):A5=R(4):A6=R(5)

    :-)
16. • 16:
       
      CommentAuthorPeri Noid
    • CommentTime3 godzin temu zmieniony

     
    Zaproponuję inne podejście:
    

    10 M=49:C=6:DIM R(C-1)
    20 FOR I=M TO 1 STEP -1
    30 S=INT(RND(0)*I)
    40 IF S<C THEN C=C-1:R(C)=I;? I
    50 IF C=0 THEN END
    60 NEXT I