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