Normal 0 MicrosoftInternetExplorer4 /* Style Definitions */ table.MsoNormalTable {mso-style-name:"Κανονικός πίνακας"; mso-tstyle-rowband-size:0; mso-tstyle-colband-size:0; mso-style-noshow:yes; mso-style-parent:""; mso-padding-alt:0cm 5.4pt 0cm 5.4pt; mso-para-margin:0cm; mso-para-margin-bottom:.0001pt; mso-pagination:widow-orphan; font-size:10.0pt; font-family:"Times New Roman";}
Γράψτε διαδικασία στη logo που επιλύει μια δευτεροβάθμια εξίσωση με συντελεστές α, β, γ (θεωρείστε ότι
το α είναι διάφορο του μηδενός).
Λύση
Για δευτεροβάθμια
Ερώτηση [Δώσε το α:]
Κάνε "α απάντηση
Ερώτηση [Δώσε το β:]
Κάνε "β απάντηση
Ερώτηση [Δώσε το γ:]
Κάνε "γ απάντηση
Κάνε "δ (:β) * (:β) - 4 * (:α) * (:γ)
ΑνΔιαφορετικά (:δ) < 0 [Ανακοίνωση [Η εξίσωση είναι αδύνατη!!] ]
[ ΑνΔιαφορετικά (:δ) = 0 [κάνε "χ1 ((-1) * :β / (2 * :α) ) Ανακοίνωση (φρ [Διπλή λύση = ] :χ1) ]
[ Κάνε "χ1 ( (-1) * :β + τετραγωνικήρίζα (:δ) ) / ( 2 * :α)
Κάνε "χ2 ((-1) * :β - τετραγωνικήρίζα (:δ))/(2 * :α)
Ανακοίνωση (φρ [λύση1 = ] :χ1 [λύση2 = ] :χ2) ]]
Τέλος