Tugas 3 (Struktur Data)

Program Kombinasi_Rodikya;

Uses

    WinCrt;

Procedure Fak(Var F,Hasil:Integer);

Var

   I:Integer;

   T:String;

Begin

     Hasil:=1;

     For I:=2 to F do

     Hasil:=Hasil*I;

End;

Var

   R,N,NR,F1,F2,F3:Integer;

   C:Real;

  

Begin

     Writeln('Selamat Datang Di Program Kombinasi');

     Writeln;

     Write('Masukkan N = ');Readln(N);

     Write('Masukkan R = ');Readln(R);

     NR:=N-R;

     Fak(N,F1);

     Fak(NR,F2);

     Fak(R,F3);

     C:=F1/(F2*F3);

     Writeln;

     Writeln('Maka Kombinasinya Adalah : ',c:9:0);

     Writeln;

     Writeln;

End.

Prt Scr :