PROGRAM BILANGAN FIBONACCI DAN BILANGAN PRIMA DENGAN BAHASA PASCAL

I. PROGRAM BILANGAN FIBONACCI DENGAN PROSES ITERASI

Program fibonacci_iterasi;

Uses Wincrt;

Const max=50;

Var

f :array[1..max] of integer;

(*mendefinisikan variabel f yang berisi 1 sampai max elemen

bertipe integer*)

n :integer;

(*variabel banyaknya bil prima yang di tampilkan*)

i : integer;

(*variabel bantu untuk indeks perulangan, menyatakan elemen

array ke *)

Begin

f[1]:=1;

(*bilangan pada suku pertama didefinisikan sama dengan 1*)

f[2]:=1;

(*bilangan pada suku kedua didefinisikan sama dengan 1*)

write(‘Cetak bilangan fibonacci sampai suku ke: ‘);

readln(n);

(*memasukkan jumlah bilangan fibonacci yang akan

ditampilkan*)

writeln;

writeln(‘Bilangan fibonacci sampai suku ke ‘,n, ‘ sbb: ‘);

write(f[1],’ ‘);

(*mencetak bilangan fibonacci suku ke 1*)

write(f[2],’ ‘);

(*mencetak bilangan fibonacci suku ke 2*)

For i:=3 to n do

Begin

f[i]:=f[i-1]+f[i-2];

(*bilangan fibonacci pada suku ke i merupakan suku ke-

penjumlahan bilangan fibonacci pada suku ke-(i-1) dan

(i-2)*)

write(f[i],’ ‘);

(*mencetak bilangan fibonacci suku ke-3 sampai ke-n*)

end;

writeln;

writeln;

writeln(‘Suku ke ‘,i,’ : ‘,f[i]);

(*mencetak bil fibonacci suku ke n*)

end.

OUTPUT

clip_image002

II. PROGRAM BILANGAN FIBONACCI DENGAN PROSES REKURSI

Program fibonacci_rekursi;

Uses wincrt;

Var

f: Array [1..50] of integer;

(*mendefinisikan variabel f yang berisi 1 sampai 50 elemen

bertipe integer*)

x :integer;

(*variabel banyaknya bil prima yang di tampilkan*)

i : integer;

(*variabel bantu untuk indeks perulangan, menyatakan elemen

array ke *)

Function Fibo (n:integer): integer;

Begin

if (n = 1) or (n = 2) then fibo := 1

(*bilangan pada suku pertama dan suku kedua didefinisikan

sama dengan 1*)

else

fibo:=fibo(n-1)+fibo(n-2)

(*bilangan fibonacci pada suku ke i merupakan penjumlahan

bilangan fibonacci pada suku ke-(i-1) dan suku ke-(i-2)*)

end;

Begin

write(‘Cetak bilangan fibonacci sampai suku ke : ‘);

readln(x);

(*memasukkan jumlah bilangan fibonacci yang akan ditampilkan*)

writeln;

For i:=1 to x do

(*perulangan utk mencetak bil fibonacci dari suku ke-1

sampai suku ke x*)

Begin

f[i]:=fibo(i);

write(f[i], ‘ ‘);

end;

writeln;

writeln(‘Suku ke ‘,i,’ : ‘,f[i]);

(*mencetak bil fibonacci suku ke-i*)

end.

OUTPUT

clip_image004

III. PROGRAM BILANGAN PRIMA

Program Bilangan_Prima;

Uses wincrt;

Var

i,j,m,n, batas,jml: integer;

(*i,j,m,n adalah variabel bantu untuk perulangan*)

(*jml adalah vvariabel bantu untuk menyimoan nilai jumlahan

dari bil prima*)

prima: boolean;

(*mendifinisikan variabel prima bertipe boolean*)

prim:array[1..100] of integer;

(*mendefinisikan variabel prim yang berisi 1 sampai 100

elemen bertipe integer*)

Begin

write(‘bilangan prima sampai suku ke: ‘); readln(n);

(*memasukkan jumlah bilanga prima yang akan ditampilkan*)

writeln(‘sebagai berikut: ‘);

i:=3;

prim[1]:=2;

(*suku pertama bilangan prima didefinisikan sama dengan 2*)

prim[2]:=3;

(*suku kedua bilangan prima didefinisikan sama dengan 3*)

m:=2;

(*pemberian nilai m = 2*)

Repeat

i:=i+1;

(*menaikkan nilai i sebanyak 1 sampai mendapat bil prima

sebanyak n*)

batas:=round(sqrt(i))+1;

(*rumus mencari batas dengan rumus yang telah ditentukan,

digunakan untuk proses perulangan*)

(*round adalah pembulatan bilangan pecahan*)

(*sqrt adalah akar*)

prima:=true;

(*mendefinisikan prima bernilai true*)

For j:= 2 to batas do

if i mod j = 0 then

(*mengecek apakah i dibagi j sama dengan 0*)

prima:=false;

(*jika habis dibagi, maka bukan termasuk bilangan prima*)

if prima = true then

Begin

m:=m+1;

(*dimulai dari suku ke-3(m=2)*)

prim[m]:=i;

(*array ke-m sama dengan suku ke-i*)

end;

until m=n;

For i:=1 to n do

(*perulangan untuk mencetak bil prima dan mencari jumlahan bil primanya*)

Begin

write(prim[i], ‘ ‘);

(*mencetak bilangan prima suku ke-1 sampai ke-n*)

jml:=jml+prim[i];

(*mencari jumlahan dari bilangan prima yang ditampilkan

dengan rumus yang telah ditentukan*)

end;

writeln;

writeln(‘jumlah bil prima: ‘,jml);

(*mencetak hasik penjumlahan bilangan prima*)

readln;

end.

OUTPUT

clip_image006

4 thoughts on “PROGRAM BILANGAN FIBONACCI DAN BILANGAN PRIMA DENGAN BAHASA PASCAL”

  1. Pingback: LEWIS
  2. Pingback: HOMER

Leave a Reply

Your email address will not be published. Required fields are marked *

You may use these HTML tags and attributes: <a href="" title=""> <abbr title=""> <acronym title=""> <b> <blockquote cite=""> <cite> <code> <del datetime=""> <em> <i> <q cite=""> <strike> <strong>