RSS

Program Fibonanci Pada Pascal

30 Jan

Kesulitan membuat program deret Fibonanci??..
sebelum kita ke TKP sebaiknya kalian semua harus tau apa itu fibonanci. Betuul??…
Baiklah, deret fibonanci adalah suatu deret matematika yang berasal dari penjumlahan dua bilangan sebelumnya. Masih bingung??

Jadi gini, misalKan deret bilangan ini 1,1,2,3,5,8,13,…..
1 = 0+1
2 = 1+1
3 = 2+1
5 = 3 +2
8 = 5+3, dan seterusNya…. Sudah PahamKan??

Sekarang kita lanjut deh ke pokok permasalah, yaitu bagaimana menulis skript untuk program tersebut.
( Bonus Program mencari Rata-rata )

program tugas7;
uses crt;
type data =array [1..100] of real;
var n : char;
jml,i : integer;
mat,fis : data;
rata,total : real;
{——————————————}
procedure garis;
begin
writeln(‘======================================’);
end;
{——————————————}
function fibo(n:integer):integer;
begin
if (n=0) then
fibo:=0
else if (n=1) then
fibo:=1
else
fibo:=fibo(n-1)+fibo(n-2);
end;
{——————————————}
procedure mahasiswa(var nilai : data);
begin
for i:=1 to jml do
begin
writeln(‘Mahasiswa ke ‘,i);
write(‘Masukkan Nilai : ‘);readln(nilai[i]);
end;
end;
function rata_rata(nilai : data):real;
begin
total:=0;
for i:=1 to jml do
begin
total:=total+nilai[i];
rata:=total/jml;
end;
rata_rata:=rata;
end;

{——————————————}
label menu,exit;
begin
menu:
clrscr;
gotoxy(20,4); writeln(‘ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»’);
gotoxy(20,5); writeln(‘º º’);
gotoxy(20,6); writeln(‘º MENU PILIHAN º’);
gotoxy(20,7); writeln(‘ÌÍÍÍÍÍÍËÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(20,8); writeln(‘º Kode º Nama Program º’);
gotoxy(20,9); writeln(‘ÌÍÍÍÍÍÍÎÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(20,10);writeln(‘º 1. º Program Menghitung Nilai º’);
gotoxy(20,11);writeln(‘º 2. º Program Fibonanci º’);
gotoxy(20,12);writeln(‘º 3. º Exit º’);
gotoxy(20,13);writeln(‘ÌÍÍÍÍÍÍÊÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ͹’);
gotoxy(20,14);writeln(‘º Masukkan Kode pilihan : º’);
gotoxy(20,15);writeln(‘ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ’);
gotoxy(48,14);readln(n);
case n of
‘1’:
begin
clrscr;
write(‘Masukkan Banyak Siswa :’); readln(jml);
clrscr;

writeln(‘Nilai Matematika’);
garis;
mahasiswa(mat);
writeln;
writeln(‘Hasil Rata Nilai Matematika : ‘,rata_rata(mat):2:0);
writeln;

writeln(‘Nilai Fisika ‘);
garis;
mahasiswa(fis);
writeln;
writeln(‘Hasil Rata Nilai Fisika : ‘,rata_rata(fis):2:0);
readln; goto menu;
end;

‘2’:
begin
clrscr;
gotoxy(25,5);writeln(‘Program Deret Fibonanci’);
gotoxy(17,7);garis;
gotoxy(17,9);write(‘Masukkan banyaknya deret : ‘);readln(jml);
gotoxy(17,11); writeln(‘Hasilnya : ‘);
gotoxy(29,11);
for i:=1 to jml do
write(fibo(i),’ ‘);
readln; goto menu;
end;

‘3’: goto exit;

else
clrscr;
gotoxy(25,7);writeln(‘Kode Yang Anda Masukkan Salah’);
gotoxy(22,9);write(‘Silahkan Ulangi Lagi [ Tekan Enter ]’);
readln; goto menu; clrscr;
end;

exit:
clrscr;
gotoxy(25,7);writeln(‘Alhamdulillah Yach.. ^_^’);
gotoxy(22,9);writeln(‘Sudah Menggunakan Program Ini’);
gotoxy(30,12);write(‘[ M3111045 ]’);
readln;
end.

Untuk file .PAS bisa di download di sini
Password : dhannyvanindonesia

Terima kasih atas kunjunganya dan selalu salam sukses untuk kita semua.. ^_^

 
Tinggalkan komentar

Ditulis oleh pada Januari 30, 2012 in Pascal

 

Tag: , , , , ,

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

 
%d blogger menyukai ini: