! =====================================================================================================================
! Να γραφεί πρόγραμμα το οποίο:
! α) θα διαβάζει έναν ακέραιο θετικό αριθμό Ν μικρότερο ή ίσο του 10,
! β) θα υπολογίζει τις τιμές των στοιχείων του τριγώνου Pascal μέχρι τη Νιοστή γραμμή
! γ) θα δημιουργεί έναν δισδιάστατο πίνακα Nx(N+1), ο οποίος θα έχει ως στοιχεία τις τιμές του παραπάνω τριγώνου Pascal
! Το τρίγωνο Pascal συμπληρώνεται ως εξής: Το πρώτο και το τελευταίο στοιχείο κάθε γραμμής είναι το 1.
! Κάθε ενδιάμεσο στοιχείο είναι το άθροισμα του στοιχείου που βρίσκεται στην προηγούμενη γραμμή,
! ακριβώς πάνω από αυτό, και αυτού που βρίσκεται στην αμέσως αριστερή θέση. Το τρίγωνο Pascal 5 γραμμών έχει ως εξής:
!
! K=1 --> 1 1
! K=2 --> 1 2 1
! Κ=3 --> 1 3 3 1
! Κ=4 --> 1 4 6 4 1
! Κ=5 --> 1 5 10 10 5 1
! =====================================================================================================================
ΠΡΟΓΡΑΜΜΑ Τρίγωνο_Pascal
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:i,j,Ν,Pascal[10,11]
ΑΡΧΗ
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Δώσε πλήθος γραμμών του τριγώνου Pascal(1-10)'
ΔΙΑΒΑΣΕ Ν
ΜΕΧΡΙΣ_ΟΤΟΥ (Ν>=1) ΚΑΙ (Ν<=10)
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν
ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ Ν+1
ΑΝ j-i>1 ΤΟΤΕ
Pascal[i,j] <-- 0
ΑΛΛΙΩΣ_ΑΝ (j=1) Ή (j-i=1) ΤΟΤΕ
Pascal[i,j] <-- 1
ΑΛΛΙΩΣ
Pascal[i,j] <-- Pascal[i-1,j]+Pascal[i-1,j-1]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ Ν ! ΓΙΑ i ΑΠΟ 1 ΜΕΧΡΙ N
j <-- 1 ! ΓΙΑ j ΑΠΟ 1 ΜΕΧΡΙ N+1
ΟΣΟ Pascal[i,j]<>0 ΕΠΑΝΑΛΑΒΕ ! ΓΡΑΨΕ_ Pascal[i,j],' '
ΓΡΑΨΕ_ Pascal[i,j],' ' ! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
j <-- j+1 ! ΓΡΑΨΕ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ! ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ