Στις ακολουθίες fibonacci (Φιμπονάτσι) κάθε αριθμός είναι το άθροισμα των 2 προηγούμενων. Έχουν τη ιδιότητα ο λόγος κάθε αριθμού προς τον προηγούμενο να πλησιάζει τη "χρυσή τομή" ή "χρυσή αναλογία", φ=(1+ρίζα(5))/2 που είναι περίπου 1,618.
Ορίστε ένα πρόγραμμα που ζητά τους 2 πρώτους όρους, έχει έλεγχο στην είσοδο καθώς και έλεγχο υπερχείλισης, στην περίπτωση που ξεφύγουμε λίγο και τα νούμερα γίνουν πολύ μεγάλα.
ΠΡΟΓΡΑΜΜΑ ΑΚΟΛΟΥΘΙΕΣ_FIBONACCI
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Α[2],Β,Ν,Ι
ΑΡΧΗ
ΓΡΑΨΕ 'Θέστε τους δύο πρώτους όρους της ακολουθίας:'
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ 2
ΓΡΑΨΕ 'Όρος',Ι,':'
ΔΙΑΒΑΣΕ Α[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Πόσους όρους της ακολουθίας θέλετε;'
Ν <-- 1
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Ν<=0 ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά'
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ Ν
ΜΕΧΡΙΣ_ΟΤΟΥ Ν>0
ΓΡΑΨΕ ''
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν
Β <-- Α[1]+Α[2]
ΑΝ A[2]*Β<0 ΤΟΤΕ
ΓΡΑΨΕ 'Σφάλμα υπερχείλισης'
Ι <-- Ν+1
ΑΛΛΙΩΣ
ΓΡΑΨΕ Β
Α[1] <-- Α[2]
Α[2] <-- Β
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
Σύνδεση 
Εγγραφή
Συχνές Ερωτήσεις
Αναζήτηση
