iste onu diyorum yakismaz bize okuz gibi agir olur program :) ama sonucta bulur eheh :)... daha kisa bir yolu var ufak bir kilit nokta matematik boyle gerek oluyor iste :)... belki benimki yanmaz sulusogutma ya ;) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Vb ile alakası bu işlemi bilgisayarda yaptırabilecek kodu bulmak.

Sabahın bu saatinde syntax dikkat etmeden en kolay ama uzun süren yoldan direkt algoritmasını yazıyorum.1. 1 den 50000 kadar genel bir dngü başlat (For A=145 to 50000... next) (mesela : A=562 değerini alsın.)2. A sayısının(562) kaç edet rakamdan oluştunu hesaplatmak için değeri string e çevir. Sonra Len fonk. ile kaç basamaklı olduğunu bul. len(CStr = 3 basamaklıbuna Y değeri ata Y=len(CStr =33. basamak sayısı kadar yine dngü oluştur(for k=1 to Y... next ile) sonra mid gibi bir fonk. her rakamı tek tek al ve faktryelini bulup topla, faktryel hesabını için ayrı bir recursive fonks. tanımla. Y=3 k=1... için mid(A, k,1) 5 olacak.. değeri faktryel fonks. gnder ve 5! değerini bulk=2... için mid(A, k,1) 6 olacak.. değeri faktryel fonks. gnder ve 6! değerini bulk=3... için mid(A, k,1) 2 olacak.. değeri faktryel fonks. gnder ve 2! değerini bul4. bulduğun sonuçları topla (5!+6!+2!) ve T gibi bir değişkene ata.5. şimdi bulduğun T değeri ile A değeri aynı mı bak . T = A ise tamam Sonuçu label a yazdır."Exit For" ile çıkış yap.6. Eşit değil ise boqu yedin, başa dn, counter bir artar. bu sefer A=563 oldu... Bu işlem çok uzun sürer ve sayılar çok büyük olduğu için VB de double falan hak getire, kendi değişken tipinizi tanımlamanız lazım. Hız için multi threaded kullanmanız gerekecek, tabii vb de zor. C++ da yazmakda bunun için kasmaya deymez. Anlamayan varsa msnde anlatmaya çalışırım. Bu arada herkesin anneler günü kutlu olsun.

Tamam işte %90 ını çzdük . )

Elinize, beyninize sağlık arkadaşlar. Cukurova ve computerwolf toprağımın dediği gibi şyle bir cevab yayınlamışlar. Belki merak eden olmuştur diye buraya aktarıyorum. Private Sub Command1_Click Dim p As Double, w As Double, s As Double, z As Double, l As Double Dim q As Double, f As Double Text1. Text = "" For p = 0 To 9 For w = 0 To 9 For s = 0 To 9 For z = 0 To 9 For l = 0 To 9 q = Fact + Fact + Fact + Fact + Fact f = ((10000 p) + (1000 w) + (100 s) + (10 z) + If Then Text1. Text = Val End If Next Next Next Next Next End SubPrivate Function Fact As Double If c <= 1 Then Fact = 1 Else Fact = c Fact(c - 1) End If End Function

Kendini oluşturan rakamların faktriyellerinin toplamına eşit olan sadece 4 sayı vardır. Bunlardan üçü;1) 1=1!2) 2=2!3) 145=1!+4!+5!4) ?4. sayıyı bulabilecek kodu yazın. Ben bi türlü bulduramadım...?

Valla ufacık bi upucu bulamadım, elimde kalem kağıt formul arıyorum :) .

nce 5 dakkada yaparım diyodum ama 2 saattir yapamadım, bulmaca gibi bişey, oturup sudoku çzeceğime bununla bir uğraşayım dedim, demez olaydım. Ya zor yada benim kafa basmıyor :)

senin dediğin şekilde birşey yapılrısa benim makine yanmazsa neyim :) Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

ee cevap ne? :D

Pardon yazmayı unutmuşum 4. sayı 50000 den küçük 145 den büyük.

ufak bir kilit nokta var az kaldi :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

matematikden anlasam bende yapardım :)

bulmuşlardı ya 40585 :))cukurova hocam dehşet yaa. Harbi anlamadığı, yapamadı şey yok Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

oyle bi ise yaramaz cevap olduktan sonra ne var amk :) bebe oyuncagi cevap zaten 40585 Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Bu arada visual basic bilmem kodlari pascal-delphi-c icin yazarim buyuk ihtimalle pascal yada c de cozerim cozersem vb ye uyarlamak basit algor ciksin yeterki ;) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

dur gece gece kebab canim cekti soruyla cebellesiyoruz :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

yok haci uzun uzaya gelmez oyle asiri uzun cikar hoca kufur eder amk :)... daha iyi bilen bir arkadas bakabilir... matematik az kuvvetli olsa cozeriz :)... amk egitim hayatimiz boyunca kesir sadelestirmesi gorduk faktoriyeli 1 ay falan gosterdiler :))... neyse temiz hava alayim bira kafa acilir belki. Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

Bunun vb ile ne alakası var pek anlamadım. Ama zor birşey, nce bunun algoritması nedir onu bulalım. Kod falan hikaye. Ama iyi birşey bulmuşsun, tabi bir işe yaramaz o başka Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Valla ben bişey bulamadım :) soruda rnek olsun diye 3 sayı verilmiş.145 içinbulacağımız sayı x ise e x abc sayısı isex=100a +10b+cvex=a!+b!+c! oluyorişte burda karışıyor kafam, çünkü bunu pcye nasıl anlatacağımı kestiremiyorum?

buraya kadar normal zaten, bu sadece başlangıç. Sen pcyi falan düşünme. Onu aktarsan da çıkamazsın işin içinden. x=a!+b!+c! burdaki a, b, c, değerlerini nasıl atayacaksın. o şekilde yapılamaz, o yüzden güzel bir mantık bulmak gerek, computerwolf veya cukurova hocam yardım edebilir.compiyi tam bilmem ama cukurovanın dehşet matematiği var, olmazsa clk ya sorarız, ama bizde düşünelim Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

Helal olsun, merakla bekliyorum. Bu arada hemşeriymişiz, hasret kaldım memleketime, hasan kolcuoğluna :)

compi sen yaparsın hocam :) Bekliyoruz birşeyler Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...

durun bakiyorum faktoriyellere x! y! z! olarak atayip... durun hele az ugrasak gece gece :)... cukurova zaten pisko bir bilgi var ama pek girmiyor :)... gece gece is cikardinz :)... Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

bir yol netlesti kafamda ama cok uzun surer o soyle...145 ten buyuk 50000 den kucuk olacagi icin bilgisayara 3-5 basamakli 5000 e kadar otomatik dongu ile 1 artacak sekilde sayi atayip her basamaktaki sayilarin faktoriyellerini alip toplatip... sayinin kendisine esit olmasi durumunda durdurmamiz gerek buradan cikar cikarda acaip uzun surebilir her basamak icin degisken tanimla ooo :)matematik biraz daha kuvvetli olsa cok daha basit cozebiliriz az daha kasalim :) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

sagol dai bekliyordum cukurova cozse diye ama bizde dogru karar vermisiz kalas bir soru ;) Hep denedin. Hep yenildin. Olsun yine dene, yine yenil ama daha iyi yenil!

ben google da cevabı bi bulmaya çalışıyım, belki cevabı bulursak sonuçtan gideriz.

dediğim gibikodu falan salla. nemli olan algoritmayı çzmektir. Kod zor birşey değil, yeterki ne tür bir algoritma uygulayacaksın onu bulmak gerek. Biraz fikir verirsen arkadaşlarla beraber bu fikrini geliştire biliriz. Mesela 145 sayısını nasıl buldun? Bunla yola çıkarak işe başlayabiliriz, biliyorsun gece uzun :) Bundan sonra sadece insan olanlarla muhattap olacağım.. Ona gre karşıma gelin...