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