Program Menghitung Kombinasi

PERTEMUAN KE 5 TANGGAL 21 MARET 2012

SEMESTER 2D

TUGAS 3:

• Buat Program Untuk Menghitung Kombinasi.

1. Program Untuk Menghitung Kombinasi

PROGRAM COMBINATION_WITH_PROCEDURE;
USES WINCRT;
VAR
N,R,NR,F1,F2,F3:REAL;
C:REAL;

PROCEDURE FAK(VAR F,HASIL:REAL);
VAR I:INTEGER;
BEGIN
HASIL:=1;
I:=1;
WHILE I<=F DO
BEGIN
HASIL:=HASIL*I;
I:=I+1;
END;
END;

BEGIN
WRITE('-----------PROGRAM MENGHITUNG KOMBINASI------------');
WRITELN;
WRITELN;
WRITELN('MASUKKAN DATA YANG AKAN DIKOMBINASIKAN!');
WRITELN;
WRITE('Banyaknya Data Yang dikombinasikan ='); READLN(N);
WRITE('Banyaknya Kombinasi                ='); READLN(R);
NR:=N-R;
FAK(N,F1);
FAK(NR,F2);
FAK(R,F3);
C:=F1/(F2*F3);
WRITELN('Jumlah Kombinasi Yang Terjadi      =',c:1:0);
END.

2.  Layout Program