! Το πρόγραμμα δέχεται δύο ακεραίους ν και κ ( ν>κ )
! και υπολογίζει και εμφανίζει το πλήθος των συνδυασμών των
! ν αντικειμένων ανά κ . Χρήση της συνάρτησης Παραγοντικό από
! τα παραδείγματα του τμηνατικού προγραμματισμού του site.
! Ο τύπος που χρησιμοποιείται είναι : πλήθος=ν!/κ!*(ν-κ)!
ΠΡΟΓΡΑΜΜΑ Συνδυασμοί
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: ν,κ,πληθος,π1,π2,π3
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε το συνολικό πλήθος των αντικειμένων :'
ΔΙΑΒΑΣΕ ν
ΓΡΑΨΕ 'Δώσε το πλήθος των αντικειμένων του κάθε συνδυασμού ( <ν ):'
ΔΙΑΒΑΣΕ κ
π1 <-- Παραγοντικό(ν)
π2 <-- Παραγοντικό(κ)
π3 <-- Παραγοντικό(ν-κ)
πληθος <-- π1 DIV (π2*π3)
ΓΡΑΨΕ 'Το πλήθος των συνδυασμών είναι :', πληθος
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Τμηματικός_προγραμματισμός_2
!-----------------------------------------------------------
ΣΥΝΑΡΤΗΣΗ Παραγοντικό(αριθμός): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: αριθμός, i, παρ
ΑΡΧΗ
παρ <-- 1
ΓΙΑ i ΑΠΟ 2 ΜΕΧΡΙ αριθμός
παρ <-- παρ*i
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Παραγοντικό <-- παρ ! Η τιμή που θα επιστραφεί
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ