Listing Program Permutasi dan Kombinasi dgn Basic

PERMUTASI

CLS
INPUT "MASUKKAN BILANGAN KE1:", N
FOR I = 1 TO N
TEMP1 = 1
FOR J = 1 TO I
TEMP1 = TEMP1 * J
NEXT J
FAK = FAK + TEMP1
NEXT I
INPUT "MASUKKAN BILANGAN KE2:", M
X = N - M
FOR I = 1 TO X
TEMP2 = 1
FOR J = 1 TO I
TEMP2 = TEMP2 * J
NEXT J
FAK = FAK + TEMP2
NEXT I
Y = TEMP1 / TEMP2
PRINT "PERMUTASINYA:", Y
END

KOMBINASI

CLS
INPUT "MASUKKAN BILANGAN KE1:", N
FOR I = 1 TO N
TEMP1 = 1
FOR J = 1 TO I
TEMP1 = TEMP1 * J
NEXT J
FAK = FAK + TEMP1
NEXT I
INPUT "MASUKKAN BILANGAN KE2:", M
FOR I = 1 TO M
TEMP2 = 1
FOR J = 1 TO I
TEMP2 = TEMP2 * J
NEXT J
FAK = FAK + TEMP2
NEXT I
X = N – M
FOR I = 1 TO X
TEMP3 = 1
FOR J = 1 TO I
TEMP3 = TEMP3 * J
NEXT J
FAK = FAK + TEMP3
NEXT I
Y = TEMP1 / (TEMP2 * TEMP3)
PRINT "KOMBINASINYA ADALAH", Y
END

Artikel Terkait:

Posted in: Basic