deret fibonacci dengan pascal

program mencari deret fibonacci

tak buat di dua versi, TPW sama FPC:

dibuat di TPW:

program deret_fibonacci;

uses wincrt;

var a,b,c: integer;

function fibonacci (var i :integer): integer;

var j,k:integer;
begin
j:=i-1;
k:=i-2;
if ((i=1) or (i=2)) then
fibonacci:=1
else
fibonacci:=fibonacci(j)+fibonacci(k);
end;

begin
writeln('masukkan banyaknya bilangan fibonacci : ');
readln(a);

for b:=1 to a do
write(fibonacci(b),' ');


end.

nah yang ini ane buat di FPC

program deret_fibonacci;

uses crt;

var a,b,c: integer;

function fibonacci (var i :integer): integer;

var j,k:integer;

begin

clrscr;

j:=i-1;

k:=i-2;

if ((i=1) or (i=2)) then

fibonacci:=1

else

fibonacci:=fibonacci(j)+fibonacci(k);

end;

begin

writeln('masukkan banyaknya bilangan fibonacci : ');

readln(a);

b:=0;

repeat

b:=b+1;

write(fibonacci(b),' ');

until(b>a);

readln;

end.

menghitung combinasi dengan pascal (fungsi di TPW)

ternyata di fpc dan di tpw...

hasilnya berbeda cuy...

postingan sebelumnya ane pake di fpc jalan..

di tpw minta kurung mulu...

nih ane bikin versi tpw,..

alhasil make rekursif..

:D

uses wincrt;

var

hasil,n,r: integer;

combinasi:longint;

function faktorial( n : integer):longint;

var i : integer;

begin

  if n > 1 then

  faktorial:=faktorial(n-1)*n

  else

  faktorial:=1;

end;

function comb(n,r : integer) : longint;

var a,b,c: longint;

begin

a:=faktorial(n);

b:=faktorial(r);

c:=n-r;

c:=faktorial(c);

comb:=a div (b*c);

end;

begin

clrscr;

writeln('diketahui rumus nCr');

writeln('dimana nCr= n!/r!(n-r)!');

write ('masukkan nilai n ');

readln(n);

write ('masukkan nilai r ');

readln(r);

hasil:=comb(n,r);

writeln('nilai ',n,'C',r,' adalah ',hasil);

readln;

end.