ΠΡΟΓΡΑΜΜΑ ΕΞΙΣΩΣΕΙΣ_ΤΡΙΤΟΥ_ΒΑΘΜΟΥ
ΣΤΑΘΕΡΕΣ
ΠΙ=3.14159265
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Α,Β,Γ,Δ,P,Q,Φ,Ω,Υ
ΑΡΧΗ
ΓΡΑΨΕ 'Θέστε τους συντελεστές'
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ 'Θέστε τον τριτοβάθμιο όρο'
ΔΙΑΒΑΣΕ Α
ΑΝ Α=0 ΤΟΤΕ
ΓΡΑΨΕ 'Λάθος δεδομένα προσπαθήστε ξανά'
ΓΡΑΨΕ ''
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ Α<>0
ΓΡΑΨΕ 'Θέστε τον δευτεροβάθμιο όρο'
ΔΙΑΒΑΣΕ Β
ΓΡΑΨΕ 'Θέστε τον πρωτοβάθμιο όρο'
ΔΙΑΒΑΣΕ Γ
ΓΡΑΨΕ 'Θέστε τον σταθερό όρο'
ΔΙΑΒΑΣΕ Δ
P <-- Γ/Α-Β^2/(3*Α^2)
Q <-- (2*Β^3)/(27*Α^3)-(Β*Γ)/(3*Α^2)+Δ/Α
Υ <-- -Β/(3*Α)
Δ <-- (Q/2)^2+(P/3)^3
ΑΝ Δ>0 ΤΟΤΕ
Φ <-- -Q/2+ Τ_Ρ(Δ)
Ω <-- -Q/2- Τ_Ρ(Δ)
ΑΝ Φ<0 ΤΟΤΕ
Φ <-- -Φ
Φ <-- -Φ^(1/3)
ΑΛΛΙΩΣ
Φ <-- Φ^(1/3)
ΤΕΛΟΣ_ΑΝ
ΑΝ Ω<0 ΤΟΤΕ
Ω <-- -Ω
Ω <-- -Ω^(1/3)
ΑΛΛΙΩΣ
Ω <-- Ω^(1/3)
ΤΕΛΟΣ_ΑΝ
Α <-- -(Φ+Ω)/2
Β <-- Τ_Ρ(3)/2*(Φ-Ω)
ΓΡΑΨΕ 'Μοναδική πραγματική λύση:',Φ+Ω+Υ
ΓΡΑΨΕ 'Συζυγείς μιγαδικές λύσεις:'
ΓΡΑΨΕ Α+Υ,'+',Β,'i'
ΓΡΑΨΕ Α+Υ,'-',Β,'i'
ΑΛΛΙΩΣ_ΑΝ Δ=0 ΤΟΤΕ
ΑΝ Q=0 ΤΟΤΕ
ΓΡΑΨΕ 'Τριπλή λύση:',Υ
ΑΛΛΙΩΣ_ΑΝ Q<0 ΤΟΤΕ
ΓΡΑΨΕ 'Λύσεις:'
Q <-- -Q
ΓΡΑΨΕ ' Χ1=',2*(Q/2)^(1/3)+Υ
ΓΡΑΨΕ ' Διπλή λύση:',-(Q/2)^(1/3)+Υ
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Λύσεις:'
ΓΡΑΨΕ ' Χ1=',-2*(Q/2)^(1/3)+Υ
ΓΡΑΨΕ ' Διπλή λύση:',(Q/2)^(1/3)+Υ
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
Φ <-- -Q/2*Τ_Ρ((3/Α_Τ(P))^3)
ΑΝ Φ<0 ΤΟΤΕ
Φ <-- -Φ
Φ <-- Τ_Ρ(1-Φ^2)/(1+Φ)
Ω <-- ΠΙ-2*ΤΟΞΕΦ(Φ)
ΑΛΛΙΩΣ
Φ <-- Τ_Ρ(1-Φ^2)/(1+Φ)
Ω <-- 2*ΤΟΞΕΦ(Φ)
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ 'Λύσεις:'
ΓΙΑ Α ΑΠΟ 0 ΜΕΧΡΙ 2
ΓΡΑΨΕ ' Χ',Α+1,'=',2*Τ_Ρ(Α_Τ(P)/3)*ΣΥΝ((Ω+Α*2*ΠΙ)/3)+Υ
ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
ΣΥΝΑΡΤΗΣΗ ΤΟΞΕΦ(Χ): ΠΡΑΓΜΑΤΙΚΗ
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: Χ
ΑΡΧΗ
ΤΟΞΕΦ <-- Χ/(1+Χ^2)+(2*Χ^3)/(3*(1+Χ^2)^2)+(8*Χ^5)/(15*(1+Χ^2)^3)+(16*Χ^7)/(35*(1+Χ^2)^4)
ΤΕΛΟΣ_ΣΥΝΑΡΤΗΣΗΣ