tümü

pascaldan anlayan piçler

  1. 1.
    0
    {$N+}
    uses crt;
    var
    n, m :double;
    x, i:longint;

    begin

    n:=0;
    m:=1;
    writeln(' (',n:10:0,')');
    writeln(' (',m:10:0,')');
    x:=172;
    for i:=0 to x do
    begin
    m:=m+n;
    n:=m-n;
    writeln(' (',m:10:0,')');
    end;
    readln;
    end.

    yukarıdaki örnek programda 171. sayıdan sonrası 1.03362832342818950E+0036 oluyor bunun sebebi nedir? bu arada program fibonacci sayılarını veriyor.
    ···
    #34330356 şikayet
   tümünü göster