Fibonacci dizisini veren bir döngü yazmak

0 beğenilme 0 beğenilmeme
108 kez görüntülendi

 Herhangi bir dil kullanarak, kabaca, döngülerden birini kullanarak Fibonacci dizisini nasıl yazdırabiliriz?

1, Kasım, 2017 Uygulamalı Bilgisayar Bilimi kategorisinde Kirmizi (474 puan) tarafından  soruldu

5 Cevaplar

1 beğenilme 0 beğenilmeme

Mathematica ile 


f[0] = 0; f[1] = 1;
f[n_] := f[n] = f[n - 1] + f[n - 2]  

Array[f, 10] (*veya f /@ Range@10 *)

{1, 1, 2, 3, 5, 8, 13, 21, 34, 55}


1, Kasım, 2017 Okkes Dulgerci (1,328 puan) tarafından  cevaplandı
1 beğenilme 0 beğenilmeme

C dilinde:

/* Fibonacci Series C language */ #include<stdio.h>   int main() { int n, first = 0, second = 1, next, c;   printf("Enter the number of terms\n"); scanf("%d",&n);   printf("First %d terms of Fibonacci series are :-\n",n);   for ( c = 0 ; c < n ; c++ ) { if ( c <= 1 ) next = c; else { next = first + second; first = second; second = next; } printf("%d\n",next); }   return 0; }



1, Kasım, 2017 funky2000 (4,523 puan) tarafından  cevaplandı
1 beğenilme 0 beğenilmeme

Basic:

DECLARE FUNCTION fibonacci (n)

FOR i = 1 TO 16:
    PRINT fibonacci(i); ", "
NEXT i
PRINT "..."

FUNCTION fibonacci (n)
    IF (n <= 2) THEN
        fibonacci = 1
    ELSE
        fibonacci = fibonacci(n - 1) + fibonacci(n - 2)
    END IF
END FUNCTION


1, Kasım, 2017 funky2000 (4,523 puan) tarafından  cevaplandı
1 beğenilme 0 beğenilmeme

Pascal:

function Fibonacci(n: Integer): Integer;
var
  i,u,v,w: Integer;
begin
  if n <= 0 then
    exit(0);
  if n = 1 then 
     exit(1);
  u := 0;
  v := 1;
  for i := 2 to n do 
  begin
    w := u + v;
    u := v;
    v := w;
  end;
  Result := v;
End;


1, Kasım, 2017 funky2000 (4,523 puan) tarafından  cevaplandı
0 beğenilme 0 beğenilmeme

image



flowgorithm ile diyagram çözümü.Bu program ile çeşitli programlama dillerine çeviri yapabiliyoruz.

c++,c#,pascal Vb..

2, Kasım, 2017 Foggy (60 puan) tarafından  cevaplandı
...