Membuat Deret Fibbonaci dengan Pascal

Hi sobat APC1526 :)
Kali ini saya akan berbagi tentang program pascal. Saat ini yang akan saya bahas yaitu tentang deret fibbonaci. anda pasti tau apa itu deret fibbonaci. dengan menggunakan pascal, kita juga dapat membuat deretan fibbonaci dengan menggunakan function.

Langkah-langkahnya yaitu :

1. Anda boleh membuat program utamanya dahulu atau program fungsinya dahulu. Untuk postingan ini saya akan memulai dari program fungsi.
Kita buat program fungsinya terlebih dahulu. Bilangan fibbonaci ke n daoat di cari dengan ((bilangan ke n-1) + (bilangan ke n-2))

"Function Fibbonaci(x : integer) : integer;
Begin
     If x = 1 then Fibbonaci := 1
     Else if x = 2 then Fibbonaci := 1
     Else Fibbonaci := Fibbonaci(x - 1) + Fibbonaci(x - 2);
End; "

itulah fungsi fibbonacinya. Jika bilangan tersebut ke 1 maka hasilnya akan 1.
Jika bilangan tersebut ke 2 maka hasilnya akan 1 juga.
Tetapi jika bilangan ke 3 maka akan menjadi
((bilangan ke 2) + (bilangan ke 1)) = 2

2. Maka Selanjutnya kita buatlah program utamanya lagi.

"Var
n,i : integer;
Begin
       Readln(n);
       For i := 1 to n do Fibbonaci(i);
       For i := 1 to n do write(Fibbonaci(i),' ');
       Readln;
End."

Begitulah bentuk program fungsi pascal untuk membuat deretan fibbonaci

Untuk lengkapnya begini lah pascalnya :

Function Fibbonaci(x : integer) : integer;
Begin
     If x = 1 then Fibbonaci := 1
     Else if x = 2 then Fibbonaci := 1
     Else Fibbonaci := Fibbonaci(x - 1) + Fibbonaci(x - 2);
End;

Var
n,i : integer;
Begin
       Readln(n);
       For i := 1 to n do Fibbonaci(i);
       For i := 1 to n do write(Fibbonaci(i),' ');
       Readln;
End.

Hasilnya nanti akan seperti ini

Read More

Akar Kuadrat untuk Pascal

  Hai sobat blog, udah lama nih saya ga update blog saya, hampir 1 tahun ya.

Sekarang ini saya akan berbagi sedikit informasi tentang komputer. Mungkin anda telah mengenal aplikasi pascal. Jika belum, pascal itu adalah salah satu dari banyak aplikasi yang digunakan untuk  membuat program. Dengan menggunakan pascal kita bisa membuat program. Tpi menurut saya, pascal ini lebih banyak saya gunakan untuk membantu dalam hal matematis atau yang berhubungan dengan mencari-cari gitu. ya supaya lebih cepat dan ga ribet-ribet mencarinya haha :D

Program pascal yang akan saya bahas kali ini adalah program untuk mencari akar kuadrat dari suatu persamaan kuadrat. Biasanya ini untuk anak sekolahan. Kita bakal sering ketemu dengan soal yang terdapat persamaan kuadrat. Kalau untuk angka yang kecil mungkin bisa di cari, tapi jika angkanya besar mungkin kita udah malas untuk mencarinya. Oleh karena itu, kita dapat menggunakan program pascal ini untuk mencari akar-akar kuadratnya. TAPI INGAT, GA BOLEH DIGUNAKAN UNTUK UJIAN YA!! ;)

1. bentuk persamaan kuadrat adalah (ax2+bx+c=0) oleh karena itu yang akan kita tukar-tukar angkanya adalah a,b,c.
Pertama kita masukan angka a,b,c dengan

"Readln(a,b,c); atau read(a,b,c);"

2. Setelah angkanya di masukan, tentu kita harus mencari determinannya dahulu. Untuk menentukan apakah akar-akarnya imaginer atau akarnya sama atau akarnya berbeda.

" Determinan := sqr(b) - 4*a*c;

Stelah itu, kita buat syaratnya, jika  determinan < 0 maka akarnya imaginer. Jadi kita tidak perlu mencari akarnya.
Jika determinan = 0 maka akarnya akan sama, jadi kita cukup mencari satu akar saja.
Jika determinan > 0 maka akarnya berbeda, jdi kuta harus mencari kedua-dua akarnya.

"If Determinan < 0 then writeln('akar imaginer');
If Determinan = 0 then
    Begin
             Akar := (-b + sqrt(Determinan))/(2*a);
             Writeln('Akarnya : ',Akar,' Akar sama');
    End;
If Determinan > 0 then
    Begin
              Akar1 := (-b + sqrt(Determinan))/(2*a);
              Akar2 := (-b - sqrt(Determinan))/(2*a);
              Writeln('Akar1 : ',Akar1:0:2,' Akar2 :                    ',Akar2:0:2,' Akar berbeda');
    End."

Jangan lupa untuk mengenalkan variabelnya

" var
a,b,c : integer;
Determinan,Akar,Akar1,Akar2 : real;

seperti inilah akhirnya

var
a,b,c : integer;
Determinan,Akar1,Akar2,Akar : real;
begin
     readln(a,b,c);
     Determinan := sqr(b) - (4*a*c);
     if Determinan < 0 then writeln('akar imaginer');
     if Determinan = 0 then
         begin
            Akar := (-b + sqrt(Determinan))/(2*a);
            writeln('Akar : ',Akar:0:2,' Akar sama');
         end;
     if Determinan > 0 then
     begin
     Akar1 := (-b + sqrt(Determinan))/(2*a);
     Akar2 := (-b - sqrt(Determinan))/(2*a);
     writeln('Akar1 : ',Akar1:0:2,' ','Akar2 : ',Akar2:0:2,' Akar berbeda');
     end;
     readln;
end.

Semoga bermanfaat ya ;) masih banyak lho yang bisa di buat dari pascal ;) tetap semangat :)

Read More