Mencari Bilangan Faktorial (Rekursif)

Dalam pemograman metode rekursif adalah kondisi dimana sebuah prosedur atau fungsi memanggil dirinya sendiri untuk mendapatkan result. Contohnya :

#PHP

1. function faktorial($a){
2.   if(($a-1) > 0) {
3.     $b = faktorial($a - 1);
4.   }
5.   else {
6.     $b = 1; 
7.   } 
8.   return $a * $b;
9. } 

#Pascal

1. function faktorial(a : integer) : integer;
2. var
3.   b: integer;
4. begin
5.   if((a-1) > 0) then
6.     b := faktorial(a - 1)
7.   else
8.     b := 1;
9.   result := a * b;
10. end;

Semoga Bermanfaat.

Free Pascal Bilangan Faktorial

FAKTORIAL adalah hasil perkalian dari seluruh bilangan, misalkan N! maka hasilnya adalah N*(N-1)*(N-2)*....*1.

Contoh :
- 3! = 3 * 2 * 1 = 6
- 5! = 5 * 4 * 3 * 2 * 1 = 120

untuk mencari faktorial sebuah bilangan pada bahasa pemograman maka kita membutuhkan sebuah perulangan, disini saya menggunakan perulangan FOR...TO....DO, maka hasilnya


For i := N downto 1 do
    hasil := hasil * i;


simpel saja, mudah kan...!
- N adalah bilangan yang akan dicari,
- kemudian dilakukan perulangan menurun dari N sampai 1.
- misalkan N = 10 maka perulangannya akan menjadi 10, 9, 8, 7, 6, 5, 4, 3, 2, 1.
- didalam perulangan akan dilakukan hasil perkalian sebelumnya akan dikalikan dengan nilai berikutnya pada perulangan.


FULL CODE

Uses CRT;
Var
  I: byte;
  N, Hasil: Integer;
Begin
   writeln('Faktorial Dari  ');
   readln(N);
  for i := N downto 1 do
    hasil := hasil * i;
  writeln('adalah ',Hasil);
readln;
End.



Semoga Bermanfaat

Membuat Tulisan bejalan pada Pascal

Pernahkan anda melihat tulisan selamat datang yang biasanya berada di depan pintu gerbang di pusat-pusat perbelanjaan dan toko-toko, seperti dibawah ini

|

|

|

V

.:|:. bicaradengankomputer.blogspot.com

Dengan algoritma sederhana kita dapat membuat tulisan seperti diatas pada pascal, caranya adalah dengan memindahkan karakter pertama pada tulisan ke akhir tulisan.

untuk SOURCE CODEnya silahkan klik DISNI

Menghitung Nilai Cos, Sin, Tangen, Log pada Pascal

Kosinus atau cosinus dalam matematika adalah perbandingan sisisegitiga yang terletak di sudut dengan sisi miring (dengan catatan bahwa segitiga itu adalah segitiga siku-siku atau salah satu sudut segitiga itu 90^o)

Sinus (lambang: sin; bahasa Inggris: sine) dalam matematika adalah perbandingan sisi segitiga yang ada di depan sudut dengan sisi miring (dengan catatan bahwa segitiga itu adalah segitiga siku-siku atau salah satu sudut segitiga itu 90^o). 

Tangen (lambang tg, tan; bahasa Belanda: tangens; bahasa Inggris: tangent) dalam matematika adalah perbandingan sisi segitiga yang ada di depan sudut dengan sisi segitiga yang terletak di sudut (dengan catatan bahwa segitiga itu adalah segitiga siku-siku atau salah satu sudut segitiga itu 90^o)

Logaritma adalah oerasi matematika yangerupakan kebalikan (atau invers)dari eksponen atau pemangkatan.

Rumus dasar logaritma:

b^c= a ditulis sebagai ^blog a = c (b disebut "basis")

Beberapa orang menuliskan ^blog a = c sebagai log_b a = c.

Untuk SOURCE CODEnya silahkan klik DISNI

Mengurutkan Array Pada pascal menggunakan algoritma Buble Sort

Array atau larik adalah sebuah tipe data yang dapat menampung banyak data yang bertipe sama, secara pribadi saya menyebutnya array sebagai sebuah himpunan. contoh

misalkan sebuah array untuk menampung 10 NAMA BINATANG, cara pendeklarasianya adalah

Var
      Nama : ARRAY [1..10] OF  binatang String;

[1..10] -> indeksnya dimulai dari angka 1 smpai dengan 10 jadi Nama[1], Nama[2], dst..

pada program dibawah ini akan dilakukan  :

1. Megisi data Array (manual / acak)
2. Mengurutkan isi Array secara Ascending
3. mengurutkan isi Array secara Descending

untuk SOURCE CODEnya silahkan klik DISINI

Menkonversi Suhu dari Celcius ke Fahrenheit, Rreamur & Kelvin

Rumus untuk mengkonversi suhu dari Celcius ke Fahrenheit adalah
       Fahrenheit = ( (9/5) x Celcius) + 32

 Rumus untuk mengkonversi suhu dari Celcius ke Reamur adalah
       Reamur = (4/5) x Celcius

 Rumus untuk mengkonversi suhu dari Celcius ke Kelvin adalah
       Kelvin = Celcius + 273

untuk SOURCE CODEnya silahkan klik DISNI

Animasi Dari Pascal - Animasi 3 (Jalan-jalan, Makan-makan, PIPE)

Pernahkan anda melihat screen saver classic yang dimiliki oleh widows XP yang berbentuk PIPA yang berjalan secara acak kemudian membentuk sebuat gambar ABSTRACT. 

Pernahkah anda membayangkan untuk membuat algoritma SCREEN SAVER tersebut dari PASCAL..?

Mencari Bilangan Prima Pada Pascal

Pada matematika kita mengenal istilah "Bilangan Prima", dimna bilangan prima adalah bilangan yang hanya dapat dibagi dengan angka 1 dan bilangan itu sendiri.

Mari kita rancang programya

Kata kunci :

• bilangan prima

• hanya bisa dibagi 1 dan dirinya sendiri