!ΠΡΟΓΡΑΜΜΑ ΤΟ ΟΠΟΙΟ ΥΠΟΛΟΓΙΖΕΙ ΤΗΝ ΠΑΡΑΓΩΓΟ ΠΟΛΥΩΝΙΜΙΚΗΣ ΣΥΝΑΡΤΗΣΗΣ ΜΕ ΘΕΤΙΚΟΥΣ ΕΚΘΕΤΕΣ!
ΠΡΟΓΡΑΜΜΑ ΠΑΡΑΓΩΓΟΣ
ΣΤΑΘΕΡΕΣ
ΜΕΓ = 100
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Ι , Ν , Β , ΕΚ , Α[ΜΕΓ+1] , Γ[ΜΕΓ+1] , Π , Τ
ΛΟΓΙΚΕΣ: ΣΤΑΘΕΡΟΤΗΤΑ , Σ1
ΑΡΧΗ
ΓΡΑΨΕ 'ΔΩΣΕ ΕΝΑΝ ΘΕΤΙΚΟ ΑΚΕΡΑΙΟ Ν ΜΕΧΡΙ ',ΜΕΓ,' Ο ΟΠΟΙΟΣ ΘΑ ΑΝΤΙΠΡΟΣΩΠΕΥΕΙ'
ΓΡΑΨΕ 'ΤΟΝ ΜΕΓΙΣΤΟΒΑΘΜΙΟ ΜΙΑΣ ΠΟΛΥΩΝΙΜΙΚΗΣ ΣΥΝΑΡΤΗΣΗΣ'
Τ <-- 0
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
Τ <-- Τ + 1
ΑΝ Τ <> 1 ΤΟΤΕ
ΓΡΑΨΕ 'ΕΔΩΣΕΣ ΜΕΓΙΣΤΟΒΑΘΜΙΟ ΑΝΩ ΤΟΥ',ΜΕΓ,'ΠΑΡΑΚΑΛΩ ΔΩΣΕ ΑΡΙΘΜΟ ΜΙΚΡΟΤΕΡΟ ΤΟΥ.'
ΤΕΛΟΣ_ΑΝ
ΑΝ Τ>3 ΤΟΤΕ
ΓΡΑΨΕ 'ΑΝ ΕΠΙΜΕΝΕΙΣ ΝΑ ΔΩΣΕΙΣ ΜΕΓΙΣΤΟΒΑΘΜΙΟ ΑΝΩ ΤΟΥ',ΜΕΓ,'ΑΠΛΑ ΑΛΛΑΞΕ ΤΗΝ ΜΕΤΑΒΛΗΤΗ ΜΕΓ ΚΑΘΩΣ ΚΑΙ ΤΙΣ ΔΙΑΣΤΑΣΕΙΣ ΤΩΝ ΠΙΝΑΚΩΝ Α[] , Γ[]'
ΤΕΛΟΣ_ΑΝ
ΔΙΑΒΑΣΕ Ν
ΜΕΧΡΙΣ_ΟΤΟΥ Ν <= ΜΕΓ
ΣΤΑΘΕΡΟΤΗΤΑ <-- ΨΕΥΔΗΣ
ΓΙΑ Ι ΑΠΟ Ν ΜΕΧΡΙ 0 ΜΕ ΒΗΜΑ -1
ΑΝ Ν = 0 ΤΟΤΕ
ΓΡΑΨΕ 'Η ΣΥΝΑΡΤΗΣΗ ΘΑ ΕΙΝΑΙ ΣΤΑΘΕΡΗ , ΟΠΟΤΕ Η ΠΑΡΑΓΩΓΟΣ ΕΙΝΑΙ f΄(x)=0'
ΣΤΑΘΕΡΟΤΗΤΑ <-- ΑΛΗΘΗΣ
ΑΛΛΙΩΣ_ΑΝ Ι =1 ΤΟΤΕ
ΓΡΑΨΕ 'ΤΩΡΑ ΔΩΣΕ ΤΟΝ ΣΥΝΤΕΛΕΣΤΗ ΤΟΥ Χ'
ΔΙΑΒΑΣΕ Α[Ι+1]
ΑΛΛΙΩΣ_ΑΝ Ι = 0 ΤΟΤΕ
ΓΡΑΨΕ 'ΤΩΡΑ ΔΩΣΕ ΤΟΝ ΣΤΑΘΕΡΟ ΟΡΟ'
ΔΙΑΒΑΣΕ Α[Ι+1]
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΤΩΡΑ ΔΩΣΕ ΤΟΝ ΣΥΝΤΕΛΕΣΤΗ ΤΟΥ Χ^',Ι
ΔΙΑΒΑΣΕ Α[Ι+1]
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ ΣΤΑΘΕΡΟΤΗΤΑ = ΨΕΥΔΗΣ ΤΟΤΕ
Σ1 <-- ΨΕΥΔΗΣ
Π <-- 0
ΓΙΑ Ι ΑΠΟ 1 ΜΕΧΡΙ Ν+1
Π <-- Π + Α[Ι]
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΝ Π = 0 ΤΟΤΕ
Σ1 <-- ΑΛΗΘΗΣ
ΤΕΛΟΣ_ΑΝ
ΑΝ Σ1 = ΨΕΥΔΗΣ ΤΟΤΕ
Ι <-- Ν
ΟΣΟ Α[Ι+1] = 0 ΕΠΑΝΑΛΑΒΕ
Ι <-- Ι-1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΕΚ <-- Ι
ΓΡΑΨΕ 'ΙΔΟΥ Η ΣΥΝΑΡΤΗΣΗ f(x)='
ΓΙΑ Ι ΑΠΟ ΕΚ ΜΕΧΡΙ 0 ΜΕ ΒΗΜΑ -1
ΑΝ Ι=ΕΚ ΚΑΙ ΠΡΟΣΗΜΟ(Α[Ι+1])='+' ΤΟΤΕ
ΑΝ Α[Ι+1] = 1 ΤΟΤΕ
ΓΡΑΨΕ_ 'Χ^',Ι
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ Α[Ι+1],'Χ^',Ι
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Ι=ΕΚ ΚΑΙ ΠΡΟΣΗΜΟ(Α[Ι+1])='-' ΤΟΤΕ
ΑΝ Α[Ι+1] = 1 ΤΟΤΕ
ΓΡΑΨΕ_ '-','Χ^',Ι
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ '-',Α_Τ(Α[Ι+1]),'Χ^',Ι
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Α_Τ(Α[Ι+1]) = 1 ΤΟΤΕ
ΑΝ Ι = 1 ΤΟΤΕ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[2]),'Χ'
ΑΛΛΙΩΣ_ΑΝ Ι = 0 ΤΟΤΕ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[1]),'1'
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[Ι+1]),'Χ^',Ι
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ_ΑΝ Α[Ι+1] = 0 ΤΟΤΕ
ΑΛΛΙΩΣ
ΑΝ Ι = 1 ΤΟΤΕ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[Ι+1]),Α_Τ(Α[Ι+1]),'Χ'
ΑΛΛΙΩΣ_ΑΝ Ι = 0 ΤΟΤΕ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[Ι+1]),Α_Τ(Α[Ι+1])
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Α[Ι+1]),Α_Τ(Α[Ι+1]),'Χ^',Ι
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
Β <-- 0
ΓΙΑ Ι ΑΠΟ Ν ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
Γ[Ι+1] <-- Α[Ι+1]*(Ν+Β)
Β <-- Β-1
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΙΔΟΥ Η ΠΑΡΑΓΩΓΟΣ f΄(x)='
ΓΙΑ Ι ΑΠΟ ΕΚ ΜΕΧΡΙ 1 ΜΕ ΒΗΜΑ -1
ΑΝ Ι=ΕΚ ΚΑΙ ΠΡΟΣΗΜΟ(Γ[Ι+1])='+' ΤΟΤΕ
ΓΡΑΨΕ_ Γ[Ι+1],'Χ^',Ι-1
ΑΛΛΙΩΣ_ΑΝ Ι=ΕΚ ΚΑΙ ΠΡΟΣΗΜΟ(Γ[Ι+1])='-' ΤΟΤΕ
ΓΡΑΨΕ_ '-',Α_Τ(Γ[Ι+1]),'Χ^',Ι-1
ΑΛΛΙΩΣ_ΑΝ Γ[Ι+1] = 0 ΤΟΤΕ
ΑΛΛΙΩΣ
ΑΝ Ι = 2 ΤΟΤΕ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Γ[Ι+1]),Α_Τ(Γ[Ι+1]),'Χ'
ΑΛΛΙΩΣ_ΑΝ Ι = 1 ΤΟΤΕ
ΓΡΑΨΕ ΠΡΟΣΗΜΟ(Γ[Ι+1]),Α_Τ(Γ[Ι+1])
ΑΛΛΙΩΣ
ΓΡΑΨΕ_ ΠΡΟΣΗΜΟ(Γ[Ι+1]),Α_Τ(Γ[Ι+1]),'Χ^',Ι-1
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'ΙΔΟΥ Η ΣΥΝΑΡΤΗΣΗ f(x)= 0'
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΙΔΟΥ Η ΠΑΡΑΓΩΓΟΣ f΄(x)= 0'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ
ΓΡΑΨΕ 'ΕΥΧΑΡΙΣΤΩ ΠΟΥ ΧΡΗΣΙΜΟΠΟΙΗΣΑΤΕ ΤΟ ΠΡΟΓΡΑΜΜΑ.'
ΓΡΑΨΕ ' MADE BY YURIS'
ΓΡΑΨΕ ' 3η ΛΥΚΕΙΟΥ - 2ο ΛΥΚΕΙΟ ΣΠΑΡΤΗΣ.'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΠΡΟΣΗΜΟ (Χ) : ΧΑΡΑΚΤΗΡΑΣ
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: Χ
ΑΡΧΗ
ΑΝ Χ > 0 ΤΟΤΕ
ΠΡΟΣΗΜΟ <-- '+'
ΑΛΛΙΩΣ_ΑΝ Χ < 0 ΤΟΤΕ
ΠΡΟΣΗΜΟ <-- '-'
ΑΛΛΙΩΣ
ΠΡΟΣΗΜΟ <-- '/'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ