Dodaj wpis w tym temacie
Spis tematów | Strona: 1 2 ... 18 19 20 ... 37 38 Wyślij wiadomość do admina |
Przewiń wpisy ↓ | Unikatowe KOMBINACJE.. od wielu los. oczekujące na min. wypłacalne |
2022-07-03 (18:57)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 1 425 225 [ CZCIONKA MONOSPACE ] Jacek, jak na razie nikt nie potwierdził tych moich obliczeń, więc musimy poczekać. W każdym bądź razie faktem jest, że mamy 39 zakładów z zerowym trafieniem 7/10. --- wpis edytowano 2022-07-03 18:57 --- |
2022-07-03 (19:41)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 228 [ CZCIONKA MONOSPACE ] Jak dla mnie trochę dziwne, że nie ma 80-ek, 90-ek, 100-ek i takich, które padły mniej razy. --- wpis edytowano 2022-07-03 19:47 --- |
2022-07-03 (20:33)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 1 425 233 [ CZCIONKA MONOSPACE ] Prawdopodobieństwo zdarzenia 6/10 to jak 1 do 87,1 13956 : 87,1 = 160 średnio dla dychy. To może się przydać https://www.multipasko.pl/gry-liczbowe/multi-lotek/#prw --- wpis edytowano 2022-07-03 20:35 --- |
2022-07-04 (11:49)![]() Data rejestracji: 2020-08-05 Ilość postów: 5927 ![]() | wpis nr 1 425 302 [ CZCIONKA MONOSPACE ] Jacek_K1961 "w konsoli niestety wyskakukuje błąd..." W konsoli nie używa nie uzywa sie inputbox tylko read; ani msgbox odpowiednio używa się tego 'Console.WriteLine($"{wiersz} - {s}") ' Console.ReadKey() Skąd Ci sie wzięlo że string jest pamięciożerny ? Zobacz ile zajmuje 1 znak ale ile liczba. A jesli już martwisz się o pamięć to co w kodzie robi ta pętla ? ... Do filtr = InputBox("wpisz nr wiersza", 999, , ) MsgBox(t1(filtr), , ) Loop ... |
2022-07-04 (13:00)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 318 [ CZCIONKA MONOSPACE ] Pętla była z czasów kiedy sprawdzałem zawartość tablicy, np. wpisywałem nr 5657765 i pojawiał się układ 6 liczb to z tej wczesnej wersji szukania 6w10z80. ... a te InputBox i MsgBox to z próby uruchomienia w okienku. ... a co do błędu z konsoli to wklejałem umieszczony kod na stronie i na samym początku pojawiał się błąd kompilacji, nie wiem czemu, bo raz mi się uruchomiła, dlatego w notatniku dałem komentarz przy rozkazach konsoli i użyłem tych Box-ów. --- wpis edytowano 2022-07-04 13:13 --- |
2022-07-04 (13:19)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 322 [ CZCIONKA MONOSPACE ] MultiTest ... a wielkość pliku brałem z : ![]() a tam co znalazłem o znakach string. --- wpis edytowano 2022-07-04 13:21 --- |
2022-07-04 (14:11)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 332 [ CZCIONKA MONOSPACE ] MultiTest Czy mógłbyś dla porównania obliczyć czas trwania tej malutkiej pętli w mojej wersji poniżej i Swojej tego typu: wpis nr 1 420 129 z 13 strony, pętle z 3 zmiennych, TYLKO obie w TYM samym języku -VBasic, czy innym, obojętnie, podkreślam - byle OBIE w tym samym. Czyli w tych samych warunkach, na tym samym komputerze. W VBasic, kod bez żadnych okienek, zlicza tylko licznik, ale jego wartość nie jest ważna. Tylko zmienić wartość zmiennej x1 zgodnie z uwagą i wstawić jakiś zegar, tam gdzie dałem taki komentarz ' ....................... Sam to tylko znam polecenie Data = Now, z dokładnością ~ 1 sekunda, a jak znam siebie, to jak sam wkleję te funkcje podane czasowe to nic nie wyjdzie. kod: Dim A1, B2, C3, x1, x2, x3, licznik as Integer A1 = 1 B2 = 2 C3 = 3 x1=1 ' *** UWAGA zmienić na jakąś dużą, aby pętle chodziła chociaż z 10 sekund x2=x1+1 X3=x2+1 'dalej sama pętla zliczająca zmienną licznik ' ..................................... najlepiej tu wstawić początek mierzenia czasu do C3 += 1 If C3 > x3 Then B2 += 1 If B2 > x2 Then A1 += 1 If A1 > x1 Then ' ...................................... najlepiej tu wstawić koniec mierzenia czasu. Exit Do 'koniec pętli Else B2 = A1 + 1 : C3 = B2 + 1 End If Else C3 = B2 + 1 End If End If licznik +=1 loop Jeżeli by Ci się chciało, to wielkie dzięki. Bardzo ciekawi mnie różnica w czasie. --- wpis edytowano 2022-07-04 14:25 --- |
2022-07-04 (14:30)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 338 [ CZCIONKA MONOSPACE ] c.d. wartość startowa zmiennej C3 poprawić na 2. Już nie zdążyłem poprawić powyżej. Sorki! Pętla w czystej postaci, nie wypełnia żadnych tablic i nic nie zapisuje w plikach. Mam nadzieję, że te 10 sekund nie przekroczy wartości licznika zadeklarowanej jako zmienna Integer --- wpis edytowano 2022-07-04 14:36 --- |
2022-07-04 (21:58)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 390 [ CZCIONKA MONOSPACE ] Sindbad Dzięki za automat z prawdopodobieństwami. Myślę nad automatem do tablic pomocniczych. Może cosik jutro uskrobie na klawiaturze, bo się ma pogoda zepsuć, czyli dla mnie znaczy poprawić, bo ledwo dycham. |
2022-07-06 (19:55)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 644 [ CZCIONKA MONOSPACE ] Macie jakiś patent na to, aby się chciało, prawie tak bardzo, jak się bardzo nie chce? |
2022-07-06 (23:23)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 1 425 678 [ CZCIONKA MONOSPACE ] Nic na siłę. |
2022-07-07 (19:26)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 794 [ CZCIONKA MONOSPACE ] Sindbad Do wpis nr 1 425 225 sprawdziłem do 1,2.7............ kombinację 7na10z80 i się zgadza, ale dalej nie mam sumienia męczyć kompa, bo zwykłą metodą sprawdzał do tego początku 2 godziny. Pozdrawiam P.S. A ten Lazarus w Pascalu nie ma ograniczeń tablic liczbowych? Jak zacząłem wertować wiadomości o tym języku, to też ma ograniczenia w ich długości? --- wpis edytowano 2022-07-07 19:30 --- |
2022-07-07 (21:24)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 1 425 812 [ CZCIONKA MONOSPACE ] Jacek „dalej nie mam sumienia męczyć kompa” Dopiero przy aplikacji wielowątkowej wszystkie procesory biegają na 100% To dopiero jest wycisk. Ograniczenia zawsze się znajdą, ale po co komu taka tablica? x: array[0..18446744073709551615] of Qword; Przede wszystkim 64 bit Spokojnej nocki --- wpis edytowano 2022-07-07 21:30 --- |
2022-07-08 (17:48)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 425 914 [ CZCIONKA MONOSPACE ] Heyka Sindbad ... a czy ta tablica (x: array[0..18446744073709551615] of Qword) to jak nazwa by wskazywała jest tekstowa i trzeba przekonwertować jej dane na liczby? Pozdrawiam |
2022-07-08 (20:54)![]() Data rejestracji: 2008-10-13 Ilość postów: 20531 ![]() | wpis nr 1 425 933 [ CZCIONKA MONOSPACE ] Jest to typ liczb całkowitych od zera do 18446744073709551615 To samo dotyczy: Ulong UInt64 Ulongint Unsigned long long |
2022-07-09 (21:57)![]() Data rejestracji: 2020-08-05 Ilość postów: 5927 ![]() | wpis nr 1 426 084 [ CZCIONKA MONOSPACE ] 2,33,41,62,67 Taki mały unikat 144 los. ![]() |
2022-07-09 (22:05)![]() Data rejestracji: 2020-08-05 Ilość postów: 5927 ![]() | wpis nr 1 426 089 [ CZCIONKA MONOSPACE ] "sam wkleję te funkcje podane czasowe to nic nie wyjdzie" Tylko zadeklarować Private Declare Function GetTickCount Lib "kernel32" () As Long i wstawić Start = GetTickCount() 'Poczatek mierzenia czasu stop1 = GetTickCount() 'Koniec mierzenia czasu czas = stop1 - Start |
2022-07-09 (22:28)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 426 094 [ CZCIONKA MONOSPACE ] MultiTest Dzięki, spróbuję. Mam "doła" i jakąś niechęć do pisania. Myślałem, że dokupienie pamięci coś zmieni, ale nic z tego, zero zmotywowania. Jak dojdę do normy to się pochwalę. Ten wynik 19 minut z 6na10z80 powinien mnie zmotywować do dokończenie 4na10 i 5na10z80, a tu nic. Glapię się bezmyślnie w ekran i zero entuzjazmu. Chyba dobiła mnie próba przeliczenia historii tych rekordów powyżej, że chyba nie do wykonania w jakimś przedziale czasowym będącym do zaakceptowania. Pozdrawiam |
2022-07-09 (23:33)![]() Data rejestracji: 2020-08-05 Ilość postów: 5927 ![]() | wpis nr 1 426 106 [ CZCIONKA MONOSPACE ] A sprawdzileś w losowaniach te 10-tki ze swojego rekordu, czy na pewno każda jest bez szóstek ? Co do pamięci ? chodzi bez problemu w VBA. --- wpis edytowano 2022-07-09 23:37 --- |
2022-07-09 (23:57)![]() Data rejestracji: 2017-03-29 Ilość postów: 9375 ![]() | wpis nr 1 426 107 [ CZCIONKA MONOSPACE ] Sprawdzałem z bazą w Excelu, kilka się nie zgadzało, bo w programie korzystałem z nieaktualnej bazy w pliku txt, bo to miała być tylko próba, czy w ogóle szybkość jest do zaakceptowania. |
| Dodaj wpis w tym temacie | Spis tematów | Wyniki lotto | Strona: 1 2 ... 18 19 20 ... 37 38 Wyślij wiadomość do admina |