Mencari FPB dan KPK dari Dua Bilangan Positif

Posted by Bani Adam Setiadi on 25 Januari 2011 · 4 Komentar 

Sourcecode untuk Mencari Faktor Persekutuan Terbesar (FPB) dan Kelipatan Persekutuan Terkecil (KPK) dari Dua Bilangan Positif

Faktor Persekutuan Terbesar (FPB) dari dua bilangan bulat positif adalah bilangan bulat positif terbesar yang membagi habis kedua bilangan tersebut. FPB berguna untuk menyederhanakan pecahan.

Kelipatan Persekutuan Terkecil (KPK) dari dua bilangan bulat positif adalah bilangan bulat terkecil yang merupakan kelipatan dari kedua bilangan itu.

Berikut ini adalah contoh coding dalam bahasa PASCAL yang saya buat sebagai salah satu tugas kuliah.

{
Bani Adam Setiadi (NPM. 101101006)
STMIK WIT CIREBON >> Teknik Informatika / S1
}

Program CariFPB;

Uses Crt;

Var bil1,bil2:integer;

Label Input;
{Fungsi untuk mencari nilai FPB}

Function FPB(bil1,bil2:integer):integer;

var sisa:integer;

Begin

    sisa := bil1 mod bil2;

    while sisa <> 0 Do

    Begin

       bil1 := bil2;
       bil2 := sisa;
       sisa := bil1 mod bil2;

    End;

       FPB := bil2;

End;

Function KPK(bil1,bil2:integer):integer;

Begin

KPK := (bil1*bil2) div FPB(bil1,bil2);

End;

{Eksekusi Program}

Begin
   Input:
   Clrscr;
   Writeln('Program Pencari FPB dan KPK');
   Writeln('===========================');
   Write ('Bilangan 1: ');Readln(bil1);
   Write ('Bilangan 2: ');Readln(bil2);
   Writeln ('==================');

   {Cek bilangan, apakah bilangan nol atau bukan
   Jika ya, Fungsi FPB akan di eksekusi}
   If (bil1 > 0) and (bil2 > 0) then
   Begin
      Writeln ('FPB = ',FPB(bil1,bil2));
      Writeln ('KPK = ',KPK(bil1,bil2));
   End
   {Jika tidak, tidak ada eksekusi terhadap fungsi FPB}
   Else

   Begin

      Writeln ('WARNING: Input bukan bilangan bulat POSITF!!');
      Writeln ('TEKAN ENTER UNTUK MENGULANG');
      Readln;
      Goto Input;

   End;

   Readln;

End.

Itulah sekelumit code2 untuk mencari FPB dan KPK dari dua bilangan positif.

Disimpan dalam Kampus · Dikaitkatakan dengan Computer, Pascal, Sourcecode