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

Animasi Dari Pascal - Animasi 2 (Simulasi Chatting)

  Lagi tidak punya kerjaan, dosen masuk di dalam kelas tapi tidak mengajar hanya curhat-curhat, eh tiba-tiba ada ide buat bikin animasi. berhubung tidak punya kerjaan dan untuk menghilangkan perasaan galau yang dikarenakan dosen yang sedang curhat maka jadilah animasi penghilang galau ini :D..

inilah hasilnya, di perumpamakan, yang biru si saya dan yang pink si dia, walaupun dia tidak pernah chatting dengan saya. -_- SURAM., 

Animasi Dari Pascal - Animasi 1 (Animasi Mutar kedalam keluar maju mundur keluar didalam)

Lagi bosan tunggu orang ujian jadi cari kerjaan deh.
tiba-tiba terlintas sesuatu di dalam pikiran, dan kemudian saya mencoba untuk menuangkan sesuatu yang terlintas di pikiran saya ke dalam sebuah basaha pemograman DOS, yang tempoe doloe itue.,

Maklum ya saya lagi pusing jadi ya begini deh jadinya. mutar kedalam lalu mutar keluar maju kedepan dan mundur ke belakang, jadinya maju mundur keluar masuk deh, trus pas lagi keluar masuk eh keluarnya di dalam, aduh gimana nih jadi pusing,.

Animasi mutar kedalam keluar maju mundur keluar didalam., :D

Contoh Game Snake Dari Pascal

Contoh Game Snake dari Pascal               

Repost : Blog Lama saya (http://basriyasin.blogspot.com)

    Game jaman dulu yang pernah popule ini kini menjadi sebuah pembelajaran bagi kita semua yang baru memasuki dunia komputer, berikut adalah salah satu dari sekian banyak game jadul yang masih ingin kita ulas cara membuatnya,

    Berikut ini adalah contoh game snake buatan saya yang sangat jelek dan tidak pernah masuk dalam sejarah,, hehehehehehehe..

    hanya untuk sekedar berbagi pengetahuan, dan sebagai pembelajaran bagi kita semua yang baru memasuki dunia komputer, berikut ini adalah tampilan game buatan saya yang sangat jelek, maklum yg buat game-nya lagi GALAU, hehehehehehe..