start
real x1,y1,x2,y2,d,xm,ym
citeste x1,y1,x2,y2
d<-sqrt((x2-x1)*(x2-x1)+(y2-y1)*(y2-y1))
xm<-(x1+x2)/2
ym<-(y1+y2)/2
scrie d, xm, ym
stop
Explicatie:
Odata citite coordonatele, programul calculeaza distanta dintre ele folosind formula [tex] \sqrt{(x_2-x_1)^2+(y_2-y_1)^2} [/tex]
iar mai apoi calculeaza coordonatele punctului de mijloc al segmentului de dreapta.
La terminarea calculelor, se afiseaza distanta dintre cele doua puncte, precum si coordonatele punctului de mijloc.
Succes!
