script mencari kombinasi di pascal

setelah lama saya tidak posting, ini saya posting tentang mencari kombinasi di freepascal. walaupun script nya panjang banget tapi semoga bermanfaat bagi pembaca semua nya. script nya ini lebih banyakmenggunakan fungsi perulangannya walaupun masih ada fungsi percabangannya. selamat membaca. :D

ini script nya

program kombinasi;

uses crt;

var a,c,i,j,k,m,n,o,p,r,x,y,z: longint;

    ul: string;

begin

  clrscr;

  write('masukkan nilai n nya= '); readln(n);

  write('masukkan nilai r nya= '); readln(r);

  if n>r then

  begin

    a:=n-r;

    x:=1;

    y:=1;

    z:=1;

      for i:=n downto 1 do begin

        m:=x*i;

        x:=m;

      end;

      for j:=r downto 1 do begin

        o:=y*j;

        y:=o;

      end;

      for k:=a downto 1 do begin

        p:=z*k;

        z:=p;

      end;

      c:=m div (o*p);

      write('hasilnya= ',c);

    end

    else

    writeln('nilai r yang anda masukkan lebih besar daripada n nya');

    readln;

end.

ini screenshotnya

mohon maaf apabila ada kekurangan. :D

»»  READMORE...