Faktor Bilangan – FPC


Program FPC faktor bilangan untuk mencari faktor bilangan, program ini sudah dicoba di OS Linux ubuntu, program ini diberi nama file Fbilangan.pas. Untuk mencompile dan menjalankan langkahnya :

$fpc FBilangan.pas   {mengkompile}

$./FBilangan   {menjalakan program}

Skrip FBilangan.pas sebagai berikut :

Program Faktor_bilangan;
uses crt;

type
larik = array [1..100] of integer;

var
Bil,i,sb,jfb : integer;

fb : larik;

begin
 clrscr;

REPEAT
  BEGIN  
    CLRSCR;
    WRITE (‘Masukan Bilangan (1..1000) : ‘);READLN(Bil);
  END;
 UNTIL (Bil >= 1 );

 jfb := 0;
 for i:= 1 to Bil do
 begin
    sb := Bil Mod i;
    if sb = 0 then  
    begin
         jfb := jfb + 1;
         fb[jfb] := Bil DIV i;
    end;
 end;

 write(‘Faktor Bilangan ‘,Bil,’ adalah ‘);
 for i:= jfb downto 1 do
 begin
    write (fb[i],’, ‘);
 end;
 writeln(”);

 for i:= jfb downto 1 do
 begin
    writeln(Bil,’ : ‘,fb[i],’ = ‘,Bil Div fb[i]);
 end;
 writeln(”);
end.

 

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