ΠΡΟΓΡΑΜΜΑ EPILYSH_TRITOVATHMIAS ΜΕΤΑΒΛΗΤΕΣ ΑΚΕΡΑΙΕΣ: k ΠΡΑΓΜΑΤΙΚΕΣ: i, j, A, B, C, D, Y1,Y2,Y3,Y4 ΑΡΧΗ ΓΡΑΨΕ '********************************************************************' ΓΡΑΨΕ '* ΠΡΟΓΡΑΜΜΑ ΕΥΡΕΣΗΣ ΠΡΑΓΜΑΤΙΚΩΝ ΡΙΖΩΝ ΜΕ ΠΡΟΣΕΓΓΙΣΗ ΕΚΑΤΟΣΤΟΥ *' ΓΡΑΨΕ '* ΤΡΙΤΟΒΑΘΜΙΑΣ ΕΞΙΣΩΣΗΣ ΣΤΟ ΔΙΑΣΤΗΜΑ [-100 .. 100] *' ΓΡΑΨΕ '* ΕΚΔΟΣΗ 1.0 *' ΓΡΑΨΕ '* Program made by periptero *' ΓΡΑΨΕ '********************************************************************' ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΥΣ ΣΥΝΤΕΛΕΣΤΕΣ ΤΟΥ ΤΡΙΩΝΥΜΟΥ αx^3+βx^2+γx+δ' ΓΡΑΨΕ 'ΔΩΣΕ ΤΟΝ α: ' ΔΙΑΒΑΣΕ A ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ β: ' ΔΙΑΒΑΣΕ B ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ γ: ' ΔΙΑΒΑΣΕ C ΓΡΑΨΕ 'ΔΩΣΕ ΤΟ δ: ' ΔΙΑΒΑΣΕ D k <-- 1 ΓΡΑΨΕ 'ΕΥΡΕΣΗ ΡΙΖΩΝ ΣΤΟ ΔΙΑΣΤΗΜΑ ΑΠΟ [-100, 100] ΜΕ ΑΚΡΙΒΕΙΑ ΕΚΑΤΟΣΤΟΥ...' ΓΙΑ i ΑΠΟ -100 ΜΕΧΡΙ 100 ΜΕ ΒΗΜΑ 0.25 Y1 <-- A*i^3+B*i^2+C*i+d Y2 <-- A*(i+1)^3+B*(i+1)^2+C*(i+1)+D ΑΝ Y1*Y2<0 ΤΟΤΕ ΓΙΑ j ΑΠΟ i ΜΕΧΡΙ i+0.25 ΜΕ ΒΗΜΑ 0.01 Y3 <-- A*j^3+B*j^2+C*j+d Y4 <-- A*(j+0.01)^3+B*(j+0.01)^2+C*(j+0.01)+D ΑΝ Y3*Y4<0 ΤΟΤΕ ΓΡΑΨΕ 'Η', k,'η ΛΥΣΗ ΤΗΣ ΕΞΙΣΩΣΗΣ ΕΙΝΑΙ Η :', j k <-- k+1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΑΛΛΙΩΣ_ΑΝ Y1 = 0 ΤΟΤΕ ΓΡΑΨΕ 'Η', k,'η ΛΥΣΗ ΤΗΣ ΕΞΙΣΩΣΗΣ ΕΙΝΑΙ Η :', i k <-- k+1 ΤΕΛΟΣ_ΑΝ ΤΕΛΟΣ_ΕΠΑΝΑΛΗΨΗΣ ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ