Contoh program Pascal Permutasi,Kombinasi ,FPB dan KPK

Program C_P_KPK_FPB;
uses wincrt;
var a,b,i,m,n,r,z:integer;
    fn,fr,fn_r,Kombinasi,permutasi:real;
   
    lagi:char;
label ulang;
label baca;
label again;
begin
ulang: clrscr;
writeln('          TUGAS IDIFIDU             ');
writeln('                                    ');
writeln('   Nama:Fuatman     NPM:10144100090 ');
writeln('                                    ');
writeln('                                    ');
writeln('   Pilihan:                         ');
writeln('   1.Mencari FPB dan KPK            ');
writeln('   2.Mencari Kombinasi dan Permutasi');
writeln('   3.Keluar dari Program            ');
writeln('                                    ');
writeln('  Silahkan pilih. Masukkan angka 1,2 atau 3 untuk keluar program !');
readln(z);
if z>3 then
     begin writeln('ANDA KURANG BERUNTUNG!');end else
if z<1 then
     begin writeln('ANDA KURANG BERUNTUNG!');end else

if z=1 then
begin
 again: clrscr;
 writeln('Program Mencari FPB dan KPK');
 writeln('===========================');
 write('Masukkan bilangan asli pertama a= ');readln(a);
 write('Masukkan bilangan asli kedua   b= ');readln(b);
 m:=a;n:=b;
 repeat
  r:=m mod n;
  if (r<>0) then
   begin
    m:=n;
    n:=r;
   end;
  until(r=0);
  writeln('Jadi, FPB dari ',a,' dan ',b,' = ',n);
  writeln('  dan KPK dari ',a,' dan ',b,' = ',a*b div n);
  write('Mau coba lagi? <Y/T>: ');readln(lagi);
     if upcase(lagi)='Y' then goto again;
     if upcase(lagi)='T' then goto ulang;
     donewincrt;
end;
if z=2 then
begin
    baca:clrscr;
    writeln('MENGHITUNG PERMUTASI DAN KOMBINASI');
        writeln('=====================================');
    write('Masukkan bilangan n =');readln(n);
    write('Masukkan bilangan r =');readln(r);
    fn:=1;
    fr:=1;
    fn_r:=1;
    for i:= 2 to n do
    fn:=fn*i;
    for i := 2 to r do
    fr:=fr*i;
    for i:= 2 to (n-r) do
    fn_r:=fn_r*i;
    kombinasi:=fn/(fr*fn_r);
    permutasi:=fn/(fn_r);
    writeln(n,' Kombinasi ',r, ' = ',Kombinasi:0:0);
    writeln(n,' Permutasi ',r, ' = ',Permutasi:0:0);
    write('Mau coba lagi?<Y/T>:');readln(lagi);
    if upcase(lagi)='Y' then goto baca;
        if upcase(lagi)='T' then goto ulang;
    donewincrt;
end;
if z=3 then
   begin
        writeln('Tekan Enter untuk keluar');
        end;
        write('Jika ingin coba lagi tekan Y: ');readln(lagi);
        if upcase(lagi)='Y' then goto ulang;
        donewincrt;
end.    

Hasilnya :

Semoga Bermanfaat..

Menghitung Permutasi dan Kombinasi dengan Pascal

program kombinasi_permutasi;
uses wincrt;
var
    fn,fr,fn_r,Kombinasi,permutasi:real;
    i,n,r:integer;
    lagi:char;
label baca;
begin
    baca:clrscr;
    writeln('MENGHITUNG PERMUTASI DAN KOMBINASI:') ;
    write('Masukkan bilangan n =');readln(n);
    write('Masukkan bilangan r =');readln(r);
    fn:=1;
    fr:=1;
    fn_r:=1;
    for i:= 2 to n do
    fn:=fn*i;
    for i := 2 to r do
    fr:=fr*i;
    for i:= 2 to (n-r) do
    fn_r:=fn_r*i;
    kombinasi:=fn/(fr*fn_r);
    permutasi:=fn/(fn_r);
    writeln(n,' Kombinasi ',r, ' = ',Kombinasi:0:0);
    writeln(n,' Permutasi ',r, ' = ',Permutasi:0:0);
    write('Mau coba lagi?<Y/T>:');readln(lagi);
    if upcase(lagi)='Y' then goto baca;
    donewincrt;
end.

Hasilnya:

Semoga Bermanfaat...

Cara Merubah Bahasa Windows 7 ke Bahasa Indonesia di Laptop/PC

Saat ini Bahasa yang digunakan di Windows baik Windows XP, Windows Vista maupun Windows 7 terbaru, adalah secara default menggunakan Bahasa Inggris. Jika Anda sudah terbiasa menggunakan Bahasa Inggris tentu tidak masalah dengan kondisi itu, namun lain halnya jika Anda terbiasa menggunakan Bahasa Indonesia dan baru pertama kali menggunakan laptop atau netbook, tentu Windows 7 dengan tampilan Bahasa Indonesia bisa menjadi alternatif agar Anda bisa beradaptasi dengan laptop atau netbook.

Untuk merubah bahasa Windows 7 ke Bahasa Indonesia atau Bahasa Lainnya misal Cina, Spanyol, Urdu ataupun Bahasa Persia, ikuti tips singkat berikut ini :

Pertama Download Paket Bahasa Indonesia yang Anda inginkan sesuai dengan Windows yang Anda pakai entah itu Windows 7 atau Windows Vista disini .
Setelah file paket Bahasa Indonesia yang Anda ingin sudah selesai di download, selanjutnya jalankan file tersebut dengan cara double klik, atau klik kanan pada file tersebut (misalnya LIP_id-ID-32bit.mlc) dan pilih Install. Proses instalasi Bahasa Indonesia di Windows 7 ini akan sedikit lama, jadi bersabarlah sampai proses selesai.
Setelah Bahasa Indonesia terinstall langkah selanjutnya mengaktifkan pilihan Bahasa Indonesia. Masuk ke Start Menu – Control Panel dan pilih Clock, Language and Region/ Change the display language, pastikan bahwa Control Panel Anda dalam View by Category.

Selanjutnya pada Tab Keyboards and Languages, pada menu Choose a Display Language rubah ke dalam Bahasa Indonesia, dan klik Apply.

Terakhir Anda Restart Laptop atau Netbook agar Bahasa Indonesia yang dipilih bisa langsung terlihat.