ok oyle de guzel olur... Sence 2000 sayıya kadar olan bır dızıde en az kac kere denerse tuttugu sayıyı bulur.

bu şekilde yazarsan sorun çözülür

uses wincrt;
var
f1,f2,n,adet,gecici:integer;
begin
f1:=1;f2:=1;adet:=2;
write('Kaçinci FIBONACCI sayisina kadar yazdirmak istiyorsunuz..=');
readln(n);
write(f1,' ',f2,' ');
repeat
gecici:=f1;
f1:=f2;
f2:=gecici+f2;
write(f2,' ');
adet:=adet+1;
until adet=n;
end.

haldunuraz, teşekkürler sorun kısmen çözülüyor bu kod ile ama sayıları real türü yapıp tüm hanelerini görmek istiyorum ve bu durumda da belli bir yerden sonra toplama yapmayıp son haneleri sıfırla dolduruyor. ayrıca benim son kodumla bunun arasındaki fark neydi acaba, ben çözemedim?

çirkinkral hesaplarıma göre en fazla 15 adımda bulması lazım ama yanlış olabilirim, ayrıca programın tahmin ettiği sayıları hafızasına almasını sağlamam gerek ve bu şimdilik beni aşar gibi görünüyor. önce bunları yapmayı öğreneceğim...

cok oldu ama yaklastin

mesela ben 350 tutmuşumdur ve o da ilk 100 tahmin eder. ben yukarı derim bu sefer 100 ile 2000'in tam ortasındaki sayıyı bulup söyler(950) böyle böyle toplam 12 adım falan olur ama hata payı bırakıp 15 demiştim. daha az nasıl olabilir ki?

son yazdığın koda bakmamıştım
integer kısımını longinteger yapsan sorun çözülür mü yok olmaz dersen
longinteger için virgülden sonraki basak sayısını belirlemeni tavsiye ederim

evet kısmen oluyor da, sen de çok şey istiyorsun demeyin ama, mesela ben 35 basamaklı bir sayı hesaplatacağım, hiçbir pascal kodu ya da sürümü böyle bir şeye izin vermez mi?

frt abicim cok iyisin az kaldi algorithmasini cozecen isin. (Binary search oluyor senin yaptigin...)

istersen 1035 haneli yappascal izin verir ama senin önce sayı aralığını tanıtman lazım. eğer bu kadar merak saldıysan bu pascal a sana kitap tavsiye edelim ordan oku.


bu arada extended die tanıt sayı dizini
programın başınada {$N+} koy
extended :10byte yer kaplar memoryde 1.1x10 üzeri4932 ile 3.4x10üzeri-4932 arasındaki sayıları kapsar
işini görür heralde

e oda isini gormezse artik kendin string leri carpabilecegin bir program yapmak zorunda kalirsin

bide benim anlamadığım 35 basamaklı sayıyı naapıcan

frt abicim bu iş böyle yürümeyecek. Ankaradaysan gel sana bi kitap veriyim iyice bi oku, syntax falan hepsini kap ondan sonra yapamadıklarını sor.

Not : Eğer kitabı istersen özelime mesaj at.

uses crt;
var
a,b,c,dongu_sayisi,index=integer;
writeln('Kac tane Fibonacci sayisi gormek istiyorsunuz:');
readln(dongu_sayisi);
a=0;
b=1;
index=0;
do
{
index=index+1;
c=a+b;
a=c-a;
b=c;
writeln(c);
}
while(index<dongu_sayisi);
end.

bu programı denemeden şimdi yazdım pascalı neredeyse unutuyormusum kullanımım yanlış olabilir ama ben c++ da bu formülü kullanarak yazmıştım.bi dene istersen...

fibonacci olayının java kodunu yaptım

public class fib{
public static void main(String[] args){
int n1=0;
int n2=1;
System.out.println(n1);
System.out.println(n2);
for(int i=0;i<30;i++) // i<30 da 30 yerine kac tane sayi gosterceginizi yazın
{
System.out.println(n1+n2);
if(n1<n2)
n1+=n2;
else
n2+=n1;

}
}
}

arkadaşlar nasıl duyarsız kalırız pascal a hadi örnekler atalım ne olucak bi tane
atsanız