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