Биіктікті математикада қалай есептейтіні есіме түспей жатыр, білсең жазып жібер, арасына қосып жібересін, әзірше қабырғаларын есептейтін болады.
var x1,x2,x3,y1,y2,y3:real;
a,b,c:real;
Begin
write('x1= '); read(x1);
write('y1= '); read(y1);
write('x2= '); read(x2);
write('y2= '); read(y2);
write('x3= '); read(x3);
write('y3= '); read(y3);
a:= sqrt(sqr(x2-x1)+sqr(y2-y1));
b:= sqrt(sqr(x3-x2)+sqr(y3-y2));
c:= sqrt(sqr(x1-x3)+sqr(y1-y3));
writeln('a= ',a:3:1,' b= ',b:3:1,' c= ',c:3:1);
End;
var x1,x2,x3,y1,y2,y3:real;
a,b,c:real;
Begin
write('x1= '); read(x1);
write('y1= '); read(y1);
write('x2= '); read(x2);
write('y2= '); read(y2);
write('x3= '); read(x3);
write('y3= '); read(y3);
a:= sqrt(sqr(x2-x1)+sqr(y2-y1));
b:= sqrt(sqr(x3-x2)+sqr(y3-y2));
c:= sqrt(sqr(x1-x3)+sqr(y1-y3));
writeln('a= ',a:3:1,' b= ',b:3:1,' c= ',c:3:1);
End;