[share]Pascal : Bahasa Pemrograman pertama yang ku kenal

[Agitho_Ryuki]

buat detector bilangan prima sih agak mending, ada pencerahan dikit. Nah itu deret Fibonacci yg jelimet, karena kan kalo disuruh nentuin Fibonacci ke-n, algoritmanya harus ngitung dr awal. saya sampai bikin menu function banyak hanya utk bikin deret Fibonacci doang biar di bagan algoritma utama gak kepanjangan.

tertantang juga... tapi ternyata cepet juga terselesaikan, tapi cuma kuat sampai n=6 kayaknya.... Pertumbuhan fungsinya sangat besar..

program fibonacci3;
uses
wincrt;
var
i,k,n,fiboprima:longint;

function fibo(x:integer):longint;
var a: array[1..105] of integer;
i:integer;
begin
a[1]:=0; a[2]:=1;
if x=1 then fibo:=0 else
if x=2 then fibo:=1 else
for i:= 3 to x do a[i]:=a[i-1]+a[i-2];
fibo:=a[i];
end;

function cekprima(x:integer):longint;
var a,i:integer;
begin
a:=1;
if (x=1) or (x=0) then a:=0 else
if x=2 then a:=1 else
begin
for i:= 3 to x-1 do
if (x mod i = 0) then a:=0;
end;
cekprima:=a;
end;

begin
write('masukkan bilangan ; ');readln(n);
i:=0;
k:=0;
repeat
i:=i+1;
if cekprima(fibo(i))=1 then
begin
k:=k+1;
fiboprima:=fibo(i);
end;
until k=n;
writeln('bilangan prima ke ',n,' pada barisan fibonaci = ',fiboprima);
readln;
end.

hasil running
primfibo.jpg