9. Το
πρόγραμμα ζητάει 3 πραγματικούς αριθμούς α, β, γ και λύνει την εξίσωση
αx^2+βx+γ=0
αρχή
|
ΠΡΟΓΡΑΜΜΑ Δευτεροβάθμια_εξίσωση
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ:
α, β, γ, Δ
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε
το συντελεστή α:'
ΔΙΑΒΑΣΕ α
ΓΡΑΨΕ 'Δώσε
το συντελεστή β:'
ΔΙΑΒΑΣΕ β
ΓΡΑΨΕ 'Δώσε
το συντελεστή γ:'
ΔΙΑΒΑΣΕ γ
ΓΡΑΨΕ
ΑΝ α<>0
ΤΟΤΕ
Δ <--
β^2-4*α*γ
ΑΝ Δ<0
ΤΟΤΕ
ΓΡΑΨΕ 'Η
εξίσωση είναι ΑΔΥΝΑΤΗ'
ΑΛΛΙΩΣ_ΑΝ
Δ>0 ΤΟΤΕ
ΓΡΑΨΕ 'Η
εξίσωση έχει ΔΥΟ ΡΙΖΕΣ:'
ΓΡΑΨΕ 'ρ1
= ', (-β+Τ_Ρ(Δ))/(2*α)
ΓΡΑΨΕ 'ρ2
= ', (-β-Τ_Ρ(Δ))/(2*α)
ΑΛΛΙΩΣ
ΓΡΑΨΕ 'Η
εξίσωση έχει ΜΙΑ ΔΙΠΛΗ ΡΙΖΑ:'
ΓΡΑΨΕ 'ρ
= ', -β/(2*α)
ΤΕΛΟΣ_ΑΝ
ΑΛΛΙΩΣ
ΑΝ
β<>0 ΤΟΤΕ
ΓΡΑΨΕ 'Η
εξίσωση έχει ΜΙΑ ΡΙΖΑ:'
ΓΡΑΨΕ 'ρ
= ', -γ/β
ΑΛΛΙΩΣ
ΑΝ
γ<>0 ΤΟΤΕ
ΓΡΑΨΕ
'Η εξίσωση είναι ΑΔΥΝΑΤΗ'
ΑΛΛΙΩΣ
ΓΡΑΨΕ
'Η εξίσωση είναι ΑΟΡΙΣΤΗ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ Δευτεροβάθμια_εξίσωση
|
10. Μετά το
διάβασμα δύο αριθμών να εμφανίζει το μήνυμα «και οι δύο ΘΕΤΙΚΟΙ» ή «και οι
δύο ΑΡΝΗΤΙΚΟΙ» αν οι αριθμοί είναι και οι δυο θετικοί ή και οι δύο αρνητικοί
αρχή
|
ΠΡΟΓΡΑΜΜΑ ΑΡΙΘΜΟΣ1_Α
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ:A,Β
ΑΡΧΗ
ΔΙΑΒΑΣΕ A
ΔΙΑΒΑΣΕ Β
ΑΝ (A>=0)
ΚΑΙ (Β>=0) ΤΟΤΕ
ΓΡΑΨΕ
'ΘΕΤΙΚΟΙ'
ΑΛΛΙΩΣ_ΑΝ
(Α<0) ΚΑΙ (Β<0) ΤΟΤΕ
ΓΡΑΨΕ
'ΑΡΝΗΤΙΚΟΙ'
ΤΕΛΟΣ_ΑΝ
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ
|