N'nin M'li kombinasyonunu bulan program

Dikkat: Bu yazının yazılma tarihinin üzerinden en az 60 gün geçmiş. İçerisindeki bilgiler güncelliğini yitirmiş olabilir. Yorumları ve güncellemeleri göz önünde bulundurarak yazıyı takip ediniz.
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ı :

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

Yorumlar

Üye Resmi tuğçe yıldırım
9 Nisan Perşembe ´09 15:29
bunebiçim bi site yha aradığımı bulamıyorum iğrenç bi site bnce kaptın lütfen daha fazla zarar vermeyin
10 Nisan Cuma ´09 23:35
Tamam Tuğçe özür dileriz, en kısa zamanda kapatıyoruz..
Üye Resmi Ogerid
12 Nisan Pazar ´09 01:45
tuğçe yıldırım ismiyle gelen mesaj bir bot eseri olmalı.
insanı andırmıyor...
12 Nisan Pazar ´09 12:36
ya bırak ya su saçmalıgı kapamalı artık, adamlar PR kascam diye ne yapcagını şaşırdı bundalrda saçma sapan mesajlar gercekten fyz.com bu duruma düşmesi cok acaltıcı bişe
Yeni Yorum *
İletişim Bilgileri
*
*
E-Posta adresiniz gösterilmeyecektir.
(unut)
Güvenlik Kodu *

Gönderiliyor