Tübitak Bilgisayar Olimpiyat sorusu çözemedim.

Kodla Büyü
Seviyorum ASP'yi :)
Kod: 
<%
Bas_Deger = 1
Bit_Deger = 100000
Kac_Olsun = 7
For i = Bas_Deger To Bit_Deger
    basamak_sayisi = Len(i)
    For k = 1 To basamak_sayisi
    basamak_top = basamak_top + Mid(i, k, 1)
    Next
    If basamak_top = Kac_Olsun Then
        Toplam = Toplam + 1
    Else
        basamak_top = 0
    End If
Next
Response.Write Toplam
%>
 
formül formül al sana formül.....
sayı en fazla 5 basamaklı olacağından 99999
 

Ekli dosyalar

  • cözüm.jpg
    cözüm.jpg
    59.2 KB · Görüntüleme: 617
Ahh ah arkadaşın birinin dediği gibi zamanında ÖSS ye girerken ne sorular çözerdik. Ne puanlar almıştık. aradan 10 yıl geçti ne matematik kaldı ne başka bişey.
 
Çözüm kodla 330 ama tam anlamadım ben kodla yaptım nasıl olacaktı?

Kod: 
string sayi;
            int adet = 0, toplam = 0;

            for (int i = 1; i < 100000; i++)
            {
                sayi = i.ToString();
                for (int j = 0; j < sayi.Length; j++)
                {
                    toplam += (int.Parse(sayi[j].ToString()));
   
                }
                if (toplam == 7)
                {
                    adet++;
                    Console.WriteLine(i);
                }

               
                toplam = 0;
            }
            Console.WriteLine("**********************");
            Console.WriteLine("toplam="+adet);
 
gokhanlafci' Alıntı:
cevap 330 çıkıyor.

kodu ise
////////////////////////as2
kontrol=0;
for(i=0;i<=0;i++){
for(j=0;j<=9;j++){
for(k=0;k<=9;k++){
for(m=0;m<=9;m++){
for(n=0;n<=9;n++){
for(b=0;b<=9;b++){
if((j+k+m+n+b)==7){
kontrol+=1;
trace(i+""+j+""+k+""+m+""+n+""+b);
}
}
}
}
}
}
}
trace(kontrol);

//////////////////
Genişletmek için tıkla ...

hocam çözümde sonuçları nasıl listbox a aktardın flasını gönderebilirmisin
 
kod yazan arkadaşlar bile biz çözüm yolu önermemişler.
daha doğrusu çözmüşler ama nasıl çözdüklerini bilmiyorlar.

siz kağıt üzerinde yapılan bir sınavda bu kodları nasıl çalıştırmayı düşünüyorsunuz :?:
 
BaRBaRYaN' Alıntı:
kod yazan arkadaşlar bile biz çözüm yolu önermemişler.
daha doğrusu çözmüşler ama nasıl çözdüklerini bilmiyorlar.

siz kağıt üzerinde yapılan bir sınavda bu kodları nasıl çalıştırmayı düşünüyorsunuz :?:
Genişletmek için tıkla ...

lineer denklem çözümüymüş
intel4004' Alıntı:
formül formül al sana formül.....
sayı en fazla 5 basamaklı olacağından 99999
Genişletmek için tıkla ...

kombinasyonla formülü verilmiş.....
 
Bu da AS3 ile çözüm
Kod: 
function fak(a:Number){
	if (a <= 1) {
	return 1 } else {
	return a * fak(a-1)}
	}
function hesap(b:Number){
	b=fak(n_mc.value + r_mc.value - 1)/(fak(r_mc.value - 1)*fak(n_mc.value))
	}
 

Ekli dosyalar

  • hesap.rar
    22.9 KB · Görüntüleme: 24
BaRBaRYaN' Alıntı:
kod yazan arkadaşlar bile biz çözüm yolu önermemişler.
daha doğrusu çözmüşler ama nasıl çözdüklerini bilmiyorlar.

siz kağıt üzerinde yapılan bir sınavda bu kodları nasıl çalıştırmayı düşünüyorsunuz :?:
Genişletmek için tıkla ...

"daha doğrusu çözmüşler ama nasıl çözdüklerini bilmiyorlar." bu ne demek ya? Mantığını bilmeden kod nasıl yazılır bana bi izah etsenize.

Kod yazan arkadaşlar da biliyor, bizden istenenin kod olmadığını. Millet sadece, kendi bildiği bir programlama dilinde çözümün nasıl olabileceğine yönelik uygulamalar yapmış, kendilerini denemişler. Ne var bunda?
 
file.php


Bu formüle şu eklemeyi yapalım, değilse yanıltıcı sonuçlar çıkar.
0<n<10 olmak şartıyla
Yani bu çözüm yalnızca n'nin 0 ile 10 arasında bir değer almasıyla doğru olur, diğer durumlar için yanlış sonuçlar verir.

Bu arada soruyu soran arkadaşa teşekkürler, gayet faydalı bir başlık olmuş. Hatta haftalık ya da aylık böyle sorular sorulup hem ortaya güzel ürünler çıkarılabilir hem de özellikle ilköğretimde görev yapan arkadaşlarımızın programlama bilgileri tazelenmiş olur.

Ayrıca başlıkta emeği geçen herkese teşekkürler.
 
OK_FsM_Han' Alıntı:
Yesil26' Alıntı:
Sayısal analiz diye bir ders vardı ünv de basic yada C de kod yazarak çözülür ancak defter kalemle zor.
Genişletmek için tıkla ...
hiçbir elektronik cihaz veya karalama kağıdı bile kullanmak yasak...

Bu olimpiyatlarda hep fenliseleri kazanıyor ama bizde 8.sınıfla girecez bu sene bakalım ne olacak.:p
Genişletmek için tıkla ...
Abartmayın. :p Tübitaktaki Fen Liseliyide bilirim.
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst