Tugas 3

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 COMBINASI_WITH_PROCEDURE;

USES WINCRT;

VAR

N,R,NR,C,H1,H2,H3:REAL;

I,J,K:INTEGER;

PROCEDURE F1(VAR P,H1:REAL);

BEGIN

H1:=1;

I:=1;

WHILE I<=P DO

BEGIN

H1:=H1*I;

I:=I+1;

END;

END;

PROCEDURE F2(VAR Q,H2:REAL);

BEGIN

H2:=1;

J:=1;

WHILE J<=Q DO

BEGIN

H2:=H2*J;

J:=J+1;

END;

END;

PROCEDURE F3(VAR R,H3:REAL);

BEGIN

H3:=1;

K:=1;

WHILE K<=R DO

BEGIN

H3:=H3*K;

K:=K+1;

END;

END;

BEGIN

WRITE('-----------PROGRAM MENGHITUNG KOMBINASI------------');

WRITELN;

WRITELN;

WRITE('Banyaknya Data yang dikombinasikan = '); READLN(N);

WRITE('Banyaknya Kombinasi = '); READLN(R);

NR:=N-R;

F1(N,H1);

F3(R,H3);

F2(NR,H2);

C:=H1/(H2*H3);

WRITELN('Jumlah Kombinasi yang Terjadi = ',C:10:0);

END.