Sabtu, 31 Maret 2012

Tugas 3 (Kombinasi Faktorial)

0 komentar Diposting oleh Febria Isnaini - 2B - 111221038 di 09.42

Nama : Febria Isnaini
Nim : 111221038
Kelas : 2B

Program Kombinasi_Febria;
Uses
   WinCrt;

Procedure Faktorial(Var Fak,Hasil:Integer);
Var
   I:Integer;
   T:String;

Begin
     Hasil:=1;
     For I:=2 to Fak do
     Hasil:=Hasil*I;
End;

Var
   N,R,NR,F1,F2,F3:Integer;
   C:Real;

Begin
Writeln('Program Kombinasi');
Writeln;
Write('Masukkan N = ');Readln(N);
Write('Masukkan R = ');Readln(R);
     NR:=N-R;
Faktorial(N,F1);
Faktorial(R,F2);
Faktorial(NR,F3);
     C:=F1/(F3*F2);
Writeln;
Writeln('Kombinasinya Adalah : ',c:9:0);
End.


Berikut hasil running program diatas :  

 

;;
Subscribe to: Postingan (Atom)

By :
Free Blog Templates