Może się przyda
var
p, i, n: longword; //32 bity
s, n1: int64; //64 bity
begin
p:=2;
n:=3; // n = 2^p - 1
n1:=2; // n1 = 2^(p-1)
// n1*n może być liczbą doskonałą
repeat
s:=4; // 1. Lucas-Lehmer test
for i:=3 to p do // 2.
s:=(s*s - 2) mod n; // 3.
if (s=0) or (p=2) then // 4 ...
Znaleziono 138 wyników
- 14 kwie 2021, o 02:33
- Forum: Informatyka
- Temat: [Delphi] Liczby Mersenne'a
- Odpowiedzi: 5
- Odsłony: 3416
- 20 gru 2015, o 21:22
- Forum: Mechanika - pozostałe zagadnienia
- Temat: Świat dysku
- Odpowiedzi: 1
- Odsłony: 772
Świat dysku
Jak wygląda przekrój przez ten glob? Tak aby pion od centrum po granice był pionowy?
- 7 lis 2015, o 03:03
- Forum: Drgania i fale
- Temat: Radioteleskop, jak to działa?
- Odpowiedzi: 1
- Odsłony: 871
Radioteleskop, jak to działa?
Rozumiem (?) jak działa soczewka/lustro. W widzialnym paśmie. Widziałem teleskop.
Widziałem radioteleskop. A co on tam ma w ognisku? Jak to działa, jak uzyskać dwuwymiarowy obraz? Gdzie o tym poczytać?
Widziałem radioteleskop. A co on tam ma w ognisku? Jak to działa, jak uzyskać dwuwymiarowy obraz? Gdzie o tym poczytać?
- 2 lis 2015, o 15:55
- Forum: Informatyka
- Temat: [C++] Ostatnia niezerowa cyfra silni
- Odpowiedzi: 13
- Odsłony: 4092
[C++] Ostatnia niezerowa cyfra silni
int ld(int n){
int q, t, x, z, ai;
q=0; t=0; x=0;
if( ((n%5)&1)==0 ) t=n%5;
n /= 5;
while(n){
ai=n%5; n/=5;
q+=ai; x+=q;
if((ai&1)==0)
t += ai; }
z = (x+t/2)%4;
if( z==0 ) return 6;
else return 1<<z;}
int q, t, x, z, ai;
q=0; t=0; x=0;
if( ((n%5)&1)==0 ) t=n%5;
n /= 5;
while(n){
ai=n%5; n/=5;
q+=ai; x+=q;
if((ai&1)==0)
t += ai; }
z = (x+t/2)%4;
if( z==0 ) return 6;
else return 1<<z;}
- 26 cze 2015, o 17:26
- Forum: Informatyka
- Temat: [C] Język programowania C jak uczyć się
- Odpowiedzi: 8
- Odsłony: 3126
[C] Język programowania C jak uczyć się
A narwańców \(\displaystyle{ \mu C}\) spotkasz np. tu:
- 23 cze 2015, o 17:08
- Forum: Teoria liczb
- Temat: Liczby C.p.n
- Odpowiedzi: 1
- Odsłony: 703
Liczby C.p.n
jedyne takie to: 125, 581, 8549, 16999
Kod: Zaznacz cały
http://oeis.org/A070308- 22 cze 2015, o 12:48
- Forum: Informatyka
- Temat: [C] Iloczyn pierwszych wyrazów ciągu
- Odpowiedzi: 3
- Odsłony: 1073
[C] Iloczyn pierwszych wyrazów ciągu
\(\displaystyle{ \prod_{i=0}^{7}a(i) > 2^{32}}\)
\(\displaystyle{ \prod_{i=0}^{10}a(i) > 2^{64}}\)-- 24 cze 2015, o 14:14 --
\(\displaystyle{ \prod_{i=0}^{10}a(i) > 2^{64}}\)-- 24 cze 2015, o 14:14 --
Kod: Zaznacz cały
unsigned int iloczyny[10];
int main(void) {
unsigned int a=0, p=1, i;
for(i=0; i<10; i++)
iloczyny[i] = (p *= (a = 2*a + 1));
...- 10 cze 2015, o 17:03
- Forum: Programy matematyczne
- Temat: [Matlab] Suma szeregu z sinusem, niepoprawne wyniki
- Odpowiedzi: 5
- Odsłony: 3240
[Matlab] Suma szeregu z sinusem, niepoprawne wyniki
mnie rozwija się tak: \(\displaystyle{ sin^2(x)=x^2
- \frac{1}{3} x^4
+ \frac{2}{45} x^6
- \frac{1}{315} x^8
+ \dots}\)
a u Ciebie \(\displaystyle{ x}\) jest w potęgach nieparzystych
a ta kropka np. ".^2" jest OK?
- \frac{1}{3} x^4
+ \frac{2}{45} x^6
- \frac{1}{315} x^8
+ \dots}\)
a u Ciebie \(\displaystyle{ x}\) jest w potęgach nieparzystych
a ta kropka np. ".^2" jest OK?
- 29 maja 2015, o 13:32
- Forum: Informatyka
- Temat: [Systemy liczbowe] Mnożenie liczb U2
- Odpowiedzi: 1
- Odsłony: 886
[Systemy liczbowe] Mnożenie liczb U2
a pierwszy czynnik to \(\displaystyle{ 243}\) czy \(\displaystyle{ -13}\)?
- 17 kwie 2015, o 11:45
- Forum: Informatyka
- Temat: [Systemy liczbowe] Arytmetyka na dużych liczbach
- Odpowiedzi: 3
- Odsłony: 939
[Systemy liczbowe] Arytmetyka na dużych liczbach
taka liczba to bitowa unia
- 15 kwie 2015, o 15:26
- Forum: Informatyka
- Temat: [Asembler] Reszta z dzielenia
- Odpowiedzi: 4
- Odsłony: 3242
[Asembler] Reszta z dzielenia
Kod: Zaznacz cały
n = m
while( n>3 )
n = (n & 3) + (n >> 2)
if( n == 3 )
n = 0
ogólny sposób na resztę z dzielenia przez liczbę Mersenne'a
- 5 kwie 2015, o 10:33
- Forum: Informatyka
- Temat: [C][C++] Zbiór zadań
- Odpowiedzi: 4
- Odsłony: 1025
[C][C++] Zbiór zadań
Kod: Zaznacz cały
https://projecteuler.net/- 25 mar 2015, o 02:42
- Forum: Informatyka
- Temat: [Pascal] liczby doskonałe
- Odpowiedzi: 13
- Odsłony: 2491
[Pascal] liczby doskonałe
Już mnożenie to spore wyzwanieSlotaWoj pisze:... Gdyby poszukiwać nowych liczb Mersenne'a potrzebna byłaby też operacja mod ...
- 24 mar 2015, o 23:42
- Forum: Informatyka
- Temat: [Pascal] liczby doskonałe
- Odpowiedzi: 13
- Odsłony: 2491
[Pascal] liczby doskonałe
Jeszcze jedna Mersenne'a się zmieści, ale odpowiadająca jej liczba doskonała wykracza poza zakres "wbudowanych" typów całkowitoliczbowych.
Binarna reprezentacja parzystych Doskonałych to p jedynek i p-1 zer, wystarczy więc tablica 48 małych liczb.
Szukanie doskonałych przez rozkład na czynniki to ...
Binarna reprezentacja parzystych Doskonałych to p jedynek i p-1 zer, wystarczy więc tablica 48 małych liczb.
Szukanie doskonałych przez rozkład na czynniki to ...
- 23 mar 2015, o 15:23
- Forum: Informatyka
- Temat: [Algorytmy] Dwa elementy tablic T1 i T2 dające sumę x
- Odpowiedzi: 5
- Odsłony: 1185
[Algorytmy] Dwa elementy tablic T1 i T2 dające sumę x
Wielkie "O" połknie stałą.