ΠΡΟΓΡΑΜΜΑ τρίγωνο_πασκαλ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: θεση, σειρα , αποτελεσμα
ΑΡΧΗ
ΓΡΑΨΕ 'δωσε σειρα του τριγώνου πασκαλ '
διάβασε σειρα
ΓΡΑΨΕ ' δωσε θεση του ζητούμενου αριθμού μέσα στην σειρά '
ΔΙΑΒΑΣΕ θέση
αποτέλεσμα <-- α(σειρά,θέση)
αν αποτέλεσμα <>0 τότε
γράψε αποτέλεσμα
αλλιώς
γράψε 'δεν ορίζεται αυτό το στοιχείο στο τρίγωνο πασκαλ '
τελος_αν
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
! κάθε στοιχείο του τριγώνου ορίζεται ως το άθροισμα δυο στοιχείων
! της προηγούμενης σειράς, αυτού που αντιστοιχεί στην ίδια θέση και
! αυτού που βρίσκεται μια θέση πιο αριστερά. Αυτός ο συλλογισμός
! μπορεί πολύ εύκολα να υλοποιηθεί με αναδρομικό ορισμό της συνάρτησης
! που παράγει το κάθε στοιχείο του τριγώνου.
ΣΥΝΑΡΤΗΣΗ α(σειρα, θεση): ΑΚΕΡΑΙΑ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: θεση, σειρα
ΑΡΧΗ
ΑΝ θεση>σειρα ΤΟΤΕ
α <-- 0 !δεν οριζεται
ΑΛΛΙΩΣ
ΑΝ (θεση=1) η (σειρα=θεση) τοτε
α <-- 1
αλλιώς
α <-- α(σειρα-1,θεση) + α(σειρα-1,θεση-1)
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ