[Arşiv] Ticaretle ilgisi olmayan saf matematik, fizik, kimya vb. beyin jimnastiği bulmacaları - sayfa 321

Yeni yorum
 
MetaDriver писал(а) >>

Evet katılıyorum. Yazmaya başladım ve uzun sürenin basitçe taşacağını hemen anladım.

Evet ve özyineleme gerekli değil, daha basit olabilir, zaten yinelemeli (tek döngüde) bir yöntem buldum, ancak .. ürün için bit derinliği hala yeterli değil.


Kulağa ne kadar aptalca gelse de Long'un String olarak değiştirilmesi gerekiyor.

 
Richie >> :


Kulağa ne kadar aptalca gelse de Long'un String olarak değiştirilmesi gerekiyor.

Evet, kulağa çok aptalca gelmiyor, sadece çarpmaları ve toplamaları kalemle yeniden yazmanız gerekiyor.

Bu korkutucu değil, ancak hız kuma inecek ve 30 bitlik sayılar için sayılması 00000oo kadar uzun sürecek.

// µl5'teki true, Vasik'ten hala bir veya iki büyüklük sırası daha hızlıdır :-P

 
Peki ya uzun? Orada ve sonra sadece tsifirami çalışmasıyla. Evet, anlıyorum, her şeyi tek bir döngüye sokmak istiyorum. Bu nedenle, 30 bitlik bir sayının solundan 17. basamağı hızla çıkarmaya çalışın.
Her sayı bir dizi veya sayı dizisidir. Sayıyı artırma - simüle edilecek tutamaçlar.
Evet, zaten uzun sürüyor, çarpıştırıcı daha hızlı çalışacak :)
 
Sonuç - hala başka bir algoritmaya ihtiyacımız var, kapsamlı DEĞİL. Veya Akıllı Seçici.
Örneğin, sadece rakam kümelerini aramanız gerektiği açıktır, ancak bu sayıların bir sıraya konması, görevin kendisi için bir sayı oluşturabileceği gerçeği hiç de önemli değildir.
Ayrıca - sayıların toplamı bir asal sayıysa - atlayın.
Vb.
 
Mathemat >> :
А при чем тут лонг? Тут же исключительно с цифирями работа. Ну да, понимаю, хоцца все в один цикл всунуть. Дык попробуй-ка 17-ю цифру слева у 30-разрядного числа быстро извлечь.

Ortalama olarak 30 sayının çarpımı 5 == 5^30'a eşit olmasına rağmen uzun

// ~ == 9.31323E+20 (ve uzun bir kutu maksimum 15 ondalık basamak sığdırabilir)

;)

 
MetaDriver >> :
Вожусь немножко с №226.
Вьехал, что точки лежат не только на окружностях с центром в точке == центру многоугольника,
но и на наборе окружностей "половинного" диаметра прижатых к краям 1976-угольника.
Это легко понять, если представить себе место середин точек всех хорд пересекающих окружность одним из своих концов в фиксированной точке.
Возможно на этих окружностях лежат ещё какие-то "полуточки". (с) Т.е. ответ будет возможно больше чем очевидный минимум (1976).
Думаю дальше.
// Кстати, 1976 == 2*2*2*13*19
// Не знаю поможет ли это делу. Но во внимание принимаю. :)

 Bence cevap 1976'dan fazla olamaz.
ama kanıt biraz zor.

 
Cohen'in Diophant denklemleri hakkındaki kitabından bir gerçek:

30'un üç küp toplamı olarak gösterilmesi yakın zamana kadar bilinmiyordu (bu, 30 sayısı için bulunan ilk çözümdür; 30'un üç küple temsil edilebilirliği uzun zamandır bir hipotezdi). Tabii ki bilgisayarda bulundu. Sayıların sırası (zaten küpler) yaklaşık 30 basamaklıdır.
Bunun kör bir aramada yapılmış olması pek olası değildir.
 
Richie >> :

İşte programın kendisi:
-
Duyuru
Dim M As Uzun
Dim N Kadar Uzun
Dim Koeficient As Long

Özel Alt Komut1_Click()
Dim Max Sayısı Kadar Uzun
Dim MinChislo As Long
Dim kadar uzun
DimstrokAsString
'İlk verileri ayarla
MinSayı = 1
MaksSayı = 100000
katsayı = 128
i için = MinNumber - MaxNumber
kontur = LTrim(RTrim(Str(i)))
ProizCifr(strok) / SumCifr(strok) = Koeficient ise
Baskı vuruşu
Başka
'Hiçbir bok bulunamadı' yazdır
Eğer son
sonraki ben
son alt

TOPLAMI HESAPLA
Özel Fonksiyon SumCifr(Stroca As String) As Long
Dim kadar uzun
Dim Sum Kadar Uzun
Dim Cifra Kadar Uzun
i = 1 için Len(Stroca)
Cifra = Val(Orta(Stroca, i, 1))
Summa = Summa + Cifra
sonraki ben
SumCifr = Summa
bitiş işlevi

ÜRÜN HESAPLAMASI
Özel Fonksiyon ProizCifr(Stroca As String) As Long
Dim kadar uzun
Dim Proiz As Long
Dim Cifra Kadar Uzun
Proiz = 1
i = 1 için Len(Stroca)
Cifra = Val(Orta(Stroca, i, 1))
Proiz = Proiz * Cifra
sonraki ben
ProizCifr = Proiz
bitiş işlevi

Tanrım..
Perl'de algoritma şöyle görünür:


for(111..999){
  split(//,$_);
  my($sum,$mul)=(0,1);
  for(@_){$sum+=$_;$mul*=$_;}
  print("$_\n") if($sum*12==$mul);
}

 
admin >> :

Tanrım..
Perl'de algoritma şöyle görünür:

.....


Evet, o sadece bir programcı .... falan.

Vasik'e dört beş satır sığdırabilirim

:)

 
MetaDriver >> :

Vasik'e dört beş satır sığdırabilirim

:)

İnanıyorum. Ama görmek ilginç olurdu...

1...314315316317318319320321322323324325326327328...628
Yeni yorum