1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 |
CLS PRINT "N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM" INPUT "N = ", N INPUT "M = ", M IF M > N THEN COLOR 15 PRINT "COZUM YOK" END END IF IF M = N THEN COLOR 14 PRINT "N'NIN M'LI KOMBINASYONU = 1" END END IF I = 0 S = 1 HESAP: I = I + 1 S = S * I IF I = N THEN COLOR 15 PRINT "N FAKTORIYEL = ", S GOTO HESAP1 END IF GOTO HESAP HESAP1: K = 0 L = 1 A1: K = K + 1 L = L * K IF K = M THEN COLOR 14 PRINT "M FAKTORIYEL = ", L GOTO A5 END IF GOTO A1 A5: H = 0 F = 1 A2: H = H + 1 F = F * H IF H = (N - M) THEN COLOR 15 PRINT "N-M FAKTORIYEL = ", S GOTO A8 END IF GOTO A2 A8: W = S / (L * F) COLOR 14 PRINT "N'NIN M'LI KOMBINASYONU = ", W END |
Örnek Çıktı :
1 2 3 4 5 6 7 |
N'NIN M'LI KOMBINASYONUNU BULAN PROGRAM N = 10 M = 6 N FAKTORIYEL = 3628800 M FAKTORIYEL = 720 N-M FAKTORIYEL = 3628800 N'NIN M'LI KOMBINASYONU = 210 |