Struktur Data Kombinasi

Tugas Struktur Data Kombinasi

Program Kombinasi_RianBagus;

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,B,NR,F1,F2,F3:Integer;

   C:Real;

Begin

Writeln('Selamat Datang Di Program Kombinasi');

Writeln;

Write('Masukkan Nilai B = ');Readln(B);

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

     NR:=B-R;

Fak(B,F1);

Fak(NR,F2);

Fak(R,F3);

     C:=F1/(F2*F3);

Writeln;

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

End.

Hasil Print Screen :