!===============================================
!Αυτό το πρόγραμμα λύνει οποιαδήποτε ταυτότητα
!με τους όρους που επιλέγετε.
!===============================================
ΠΡΟΓΡΑΜΜΑ Ipologismos_tautotitwn
ΜΕΤΑΒΛΗΤΕΣ
ΑΚΕΡΑΙΕΣ: c
ΧΑΡΑΚΤΗΡΕΣ:a,b
ΑΡΧΗ
ΓΡΑΨΕ 'Δώσε α'
ΔΙΑΒΑΣΕ a
ΓΡΑΨΕ 'Δωσε β'
ΔΙΑΒΑΣΕ b
ΑΡΧΗ_ΕΠΑΝΑΛΗΨΗΣ
ΓΡΑΨΕ ' '
ΓΡΑΨΕ 'Διάλεξε τύπο ταυτότητας:'
ΓΡΑΨΕ ' '
ΓΡΑΨΕ '1-(α+β)^2'
ΓΡΑΨΕ '2-(α-β)^2'
ΓΡΑΨΕ '3-(α+β)^3'
ΓΡΑΨΕ '4-(α-β)^3'
ΓΡΑΨΕ '5-(α+β)(α^2-αβ+β^2)'
ΓΡΑΨΕ '6-(α-β)(α^2+αβ+β^2)'
ΓΡΑΨΕ ' '
ΔΙΑΒΑΣΕ c
ΑΝ c<1 ή c>6 ΤΟΤΕ
ΓΡΑΨΕ 'Έβαλες λάθος αριθμό!!!'
ΤΕΛΟΣ_ΑΝ
ΜΕΧΡΙΣ_ΟΤΟΥ c>0 και c<7
ΑΝ c=1 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^2+2*',a,'*',b,'+',b,'^2'
ΑΛΛΙΩΣ_ΑΝ c=2 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^2-2*',a,'*',b,'+',b,'^2'
ΑΛΛΙΩΣ_ΑΝ c=3 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^3+3*',a,'^2',b,'+3*',a,'*',b,'^2+',b,'^3'
ΑΛΛΙΩΣ_ΑΝ c=4 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^3-3*',a,'^2',b,'+3*',a,'*',b,'^2-',b,'^3'
ΑΛΛΙΩΣ_ΑΝ c=5 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^3+',b,'^3'
ΑΛΛΙΩΣ_ΑΝ c=6 ΤΟΤΕ
ΓΡΑΨΕ 'Η λύση της ταυτότητας είναι:',a,'^3-',b,'^3'
ΤΕΛΟΣ_ΑΝ
ΓΡΑΨΕ ' '
ΓΡΑΨΕ ' '
ΓΡΑΨΕ ' '
ΓΡΑΨΕ ' '
ΓΡΑΨΕ '|','---------------','|'
ΓΡΑΨΕ '|','Made By BiOnSaN','|'
ΓΡΑΨΕ '|','---------------','|'
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ