!----------------------------------------------------------------------
! Ασκηση ΔΕ2, σελίδα 67 από το τετράδιο του μαθητή Ανάπτυξης Εφαρμογών
! ---------------------------------------------------------------------
ΠΡΟΓΡΑΜΜΑ ΔΕ2_Απόσταση_δυο_σημείων
!Τμήμα δηλώσεων
ΜΕΤΑΒΛΗΤΕΣ
ΠΡΑΓΜΑΤΙΚΕΣ: x1,x2,y1,y2,d
ΑΡΧΗ
ΓΡΑΨΕ 'Το σημείο του καρτεσιανού επιπέδου είναι A(x1,y1)'
ΓΡΑΨΕ_'x1='
ΔΙΑΒΑΣΕ x1
ΓΡΑΨΕ_'y1='
ΔΙΑΒΑΣΕ y1
ΓΡΑΨΕ 'Το σημείο του καρτεσιανού επιπέδου είναι B(x2,y2)'
ΓΡΑΨΕ_'x2='
ΔΙΑΒΑΣΕ x2
ΓΡΑΨΕ_'y2='
ΔΙΑΒΑΣΕ y2
! d: Απόσταση μεταξύ των δύο σημείων
d <-- Τ_Ρ((x1-x2)^2+(y1-y2)^2)
ΓΡΑΨΕ 'Η απόσταση μεταξύ των σημείων Α(',x1,',',y1,') και B(',x2,',',y2,') είναι',d
ΤΕΛΟΣ_ΠΡΟΓΡΑΜΜΑΤΟΣ