Yeni Kayıt
Konudaki Resimler
|
Hızlı 
Bildirim
Fortran fibonacci serisi
Sıcak Fırsatlarda Tıklananlar
Editörün Seçtiği Fırsatlar
Daha Fazla 
Bu Konudaki Kullanıcılar:
Daha Az 
2 Misafir - 2 Masaüstü
Giriş
Mesaj
-
-
fortran'ı artık hatırlamıyorum ama yöntem olarak basit bir önerim olabilir senin yazdığın kod üzerinden.
tanımlama kısmını x, y isimlerinde iki integer tanımlayıp bunu aralığı belirleyen değerler olarak kullan. ör:
x=10000
y=20000
en alttaki write deyimini aşağıdaki şart sağlanması durumunda çalışacak duruma getir.
if ((t .GE. x) .AND. (t .LE. y))
write(*,*)t
endif
döngüyü de integer sınırına sığacak en büyük fib. sayısını kapsaması için ör. 48 yap.
do i=1,48,1
eğer döngüden çıkmak mümkünse fortran'da
if (t .GT. y)
kontrolü ile 48'e kadar gitmeden de çıkabilirsin. -
fortran bilmiyorum ama belki mantık olarak işine yarar. Java da böyle;
fibonacci sayılarını hesaplayan fonksiyon yazıldıktan sonra
public static int fibonacci(int n)
{
if (n <= 2)
return 1;
else
return fibonacci(n - 1) + fibonacci(n - 2);
}
main metodumda sonsuz döngü içerisinde çağırıyorum.
Hesaplanan sayı x(5) den büyük ve y(25)'den küçükse ekrana yazdırıyorum.
25 den büyük ise döngüden çıkartıyorum.
int x = 5;
int y = 25;
for (int i = 0; ; i++) {
int f = fibonacci(i);
if (f > x & f < y ){
System.out.println(i + ". fibonacci sayısı = " + f);
}
if (f > y ){
break;
}
}
< Bu mesaj bu kişi tarafından değiştirildi gergozen -- 4 Ocak 2011; 19:41:39 >
-
Fortran bilmiorm ama c# :D
static int fibo(int n)
{
if (n <= 1) return n;
else return fibo(n-1)+fibo(n-2);
}
static void Main(string[] args)
{
Console.WriteLine(fibo(10));
Console.ReadLine();
} -
fortran biliyorum ama geç kalmışım
evet gereksizdi
Sayfa:
1
Ip işlemleri
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
Bu mesaj IP'si ile atılan mesajları ara Bu kullanıcının son IP'si ile atılan mesajları ara Bu mesaj IP'si ile kullanıcı ara Bu kullanıcının son IP'si ile kullanıcı ara
KAPAT X
