Γυμνάσιο Νέας Αλικαρνασσού

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) ]]

Τέλος