Faktor Perseketuan Besar 2 Bilangan

Program Faktor_Perseketuan_Besar;
uses crt;

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

var
Bil1,Bil2,i,j,sb,jfb1,jfb2,jfpb : integer;

fb1,fb2,fpb : larik;

begin
 clrscr;

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

REPEAT
  BEGIN  
    WRITE (‘Masukan Bilangan Kedua   (1..1000) : ‘);READLN(Bil2);
  END;
 UNTIL (Bil2 >= 1 );
 writeln(”);

 jfb1 := 0;
 for i:= 1 to Bil1 do
 begin
    sb := Bil1 Mod i;
    if sb = 0 then  
    begin
         jfb1 := jfb1 + 1;
         fb1[jfb1] := Bil1 DIV i;
    end;
 end;

 jfb2 := 0;
 for i:= 1 to Bil2 do
 begin
    sb := Bil2 Mod i;
    if sb = 0 then  
    begin
         jfb2 := jfb2 + 1;
         fb2[jfb2] := Bil2 DIV i;
    end;
 end;

 jfpb := 0;
 for i:= jfb1 downto 1 do
 begin
    for j:= jfb2 downto 1 do
    begin
          if fb1[i]=fb2[j] then  
          begin
               jfpb := jfpb + 1;
               fpb[jfpb] := fb1[i];
          end;  
    end;
 end;

 write(‘Faktor Bilangan ‘,Bil1,’ adalah ‘);
 for i:= jfb1 downto 1 do
 begin
    write (fb1[i],’ ‘);
 end;
 writeln(”);

 write(‘Faktor Bilangan ‘,Bil2,’ adalah ‘);
 for i:= jfb2 downto 1 do
 begin
    write (fb2[i],’ ‘);
 end;
 writeln(”);

 write(‘Faktor Bilangan ‘,Bil1,’ & ‘,Bil2,’ yg sama adalah ‘);
 for i:= 1 to jfpb do
 begin
    write(fpb[i],’ ‘);
 end;
 writeln(”);

 writeln(”);
 writeln(‘Faktor Pesekutuan Terbesar Bilangan ‘,Bil1,’ dan ‘,Bil2,’ adalah ‘,fpb[jfpb]);
 writeln(”);

end.

 

Jika dijalankan program di atas :

Masukan Bilangan Pertama (1..1000) : 30
Masukan Bilangan Kedua   (1..1000) : 72

Faktor Bilangan 30 adalah 1 2 3 5 6 10 15 30
Faktor Bilangan 72 adalah 1 2 3 4 6 8 9 12 18 24 36 72
Faktor Bilangan 30 & 72 yg sama adalah 1 2 3 6

Faktor Pesekutuan Terbesar Bilangan 30 dan 72 adalah 6

 

Faktor Prima dan Faktorisasi Prima

Program FBPrima;
uses crt;

Const

prima : array [1..25] of integer = (2,3,5,7,11,13,17,23,27,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);

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

var
Bil,i,sb,jfb,p,fbp : integer;

KBil : String[25];
fb : larik;

begin
 clrscr;

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

 jfb := 0;
 p := 1;
 fbp := Bil;
 REPEAT
 BEGIN
    sb := fbp Mod prima[p];
    if sb = 0 then  
    begin
         jfb := jfb + 1;
         fb[jfb] := prima[p];
         fbp := fbp div prima[p];
    end
    else
    begin
         p := p + 1;
         if fbp < prima[p] then
         begin
            {
            jfb := jfb + 1;
        fb[jfb] := fbp;    }
        p := 0;
         end;
    end;      
 END;
 UNTIL (P = 0) ;

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

 fbp := Bil;
 for i:= 1 to jfb do
 begin

    writeln(fbp,’ : ‘,fb[i],’ = ‘,fbp Div fb[i]);
    fbp := fbp div fb[i];
 end;
 writeln(”);

 fbp := 1;
 write(‘Faktorisasi Prima Bilangan ‘,Bil ,’ = ‘);
 for i:= 1 to jfb do
 begin
    write(fb[i]);
    fbp := fbp * fb[i];
    if i = jfb then write(‘ = ‘) else write(‘ x ‘);
 end;
 write(fbp);
 writeln(”);
end.

 

Jika program diatas dijalankan :

Masukan Bilangan (1..1000) : 243
Faktor Bilangan Prima 243 adalah 3, 3, 3, 3, 3,
243 : 3 = 81
81 : 3 = 27
27 : 3 = 9
9 : 3 = 3
3 : 3 = 1

Faktorisasi Prima Bilangan 243 = 3 x 3 x 3 x 3 x 3 = 243

 

Menentukan Bilangan Prima – FPC

Program BPrima;
uses crt;

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

var
Bil,i,sb,jfb : integer;

KBil : String[25];
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(”);

KBil := ‘Bilangan Prima’;
if jfb > 2 then KBil := ‘Bukan Bilangan Prima’;

writeln(‘Bilangan ‘,Bil,’ adalah ‘,KBil);
writeln(”);

end.

 

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.

 

 

Membuat Program Free Pascal di Ubuntu 10.10

Untuk menginstall Free Pascal di Ubuntu 10.10 langkahnya sebagai berikut :

• Pastikan komputer anda koneksi internet
• Pilih perintah : System => Administration => Sysnaptic Package Manager => (masukan pass root)=> anda akan masuk pada program  Sysnaptic Package Manager
• Pada Quick search : ketik FPC
• Akan muncul file 2 Aplikasi ubuntu sesuai kunci FPC, pilih file FPC dengan mencontreng (menandai file untuk diinstall)
• Pilih perintah Mark for Installation
• Pilih perintah Apply
• Proses instalasi mulai dilakukan dengan mendownload aplikasi FPC dari server ubuntu, jika proses berhasil akan dilanjutkan instalasi FPC di system operasi ubuntu.
• Keluar dari Sysnaptic Package Manager

Mencoba FPC
Masuk pada perintah terminal : Application => Accessories => Terminal
ketik fpc pada prompt $ :

$ fpc
Free Pascal Compiler version 2.4.0-2ubuntu1.10.10 [2011/06/17] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
/usr/lib/fpc/2.4.0/ppc386 [options] <inputfile> [options]
Put + after a boolean switch option to enable it, – to disable it
  -a     The compiler doesn’t delete the generated assembler file
      -al        List sourcecode lines in assembler file
      -an        List node info in assembler file
      -ap        Use pipes instead of creating temporary assembler files
      -ar        List register allocation/release info in assembler file
      -at        List temp allocation/release info in assembler file
  -A<x>  Output format:
      -Adefault  Use default assembler
      -Aas       Assemble using GNU AS
      -Anasmcoff COFF (Go32v2) file using Nasm
      -Anasmelf  ELF32 (Linux) file using Nasm
      -Anasmwin32Win32 object file using Nasm
      -AnasmwdosxWin32/WDOSX object file using Nasm
      -Awasm     Obj file using Wasm (Watcom)
      -Anasmobj  Obj file using Nasm
      -Amasm     Obj file using Masm (Microsoft)
      -Atasm     Obj file using Tasm (Borland)
      -Aelf      ELF (Linux) using internal writer
*** press enter ***

Jika muncul tampilan seperti di atas maka FPC sudah berhasil diinstall di Ubuntu Anda.

Mulai membuat program FPC

Untuk memudahkan sebaiknya dibuat forder khusus untuk menampung file program FPC yang kita buat misalnya kita buat forlder dengan nama fpc

Membut folder fpc :

$mkdir fpc

Masuk ke folder fpc:

$cd fpc

Sekarang kita mulai membuat contoh program pascal, bisa menggunkan aplikasi Text Editor (Application => Accessories => Text Editor)
tulis program pascal dibawah ini :

program hello;

begin
  write(‘Hello’);

end.

Simpan pada folder fpc dengan nama file hello.pas

Compiler dan menjalan program pascal :

Setelah anda membuat file program pascal hello.pas yang disimpan di folder fpc, anda kembali ke terminal, aktif difolder fpc

meng compiler program pascal

$fpc hello.pas
Free Pascal Compiler version 2.4.0-2ubuntu1.10.10 [2011/06/17] for i386
Copyright (c) 1993-2009 by Florian Klaempfl
Target OS: Linux for i386
Compiling hello.pas
Linking hello
/usr/bin/ld: warning: link.res contains output sections; did you forget -T?
8 lines compiled, 0.3 sec

jika muncul seperti di atas program pascal sudah berhasil di compiler.
untuk menjalankan program hello.pas

$ ./hello
Hello