три точки заданны своими координатами (x1,x2) (y1,y2) (z1,z2) Выяснить, какие из них находятся на максимальном расстоянии друг от друга? Опции

[remus]

три точки заданны своими координатами (x1,x2) (y1,y2) (z1,z2) Выяснить, какие из них находятся на максимальном расстоянии друг от друга?

[Гость]

в принипе я ее решил, только мне ее нужно решить другим способом, через функцию. а вот что у меня получилось:

uses crt;
var
 a,b,c : array [1..2] of integer;
 {r1 ab
  r2 bc
  r3 ac}
 r1,r2,r3: real;
 max: real;
begin
 clrscr;
 writeln('vvedite koordinati tochki A');
 readln(a[1],a[2]);
 writeln('vvedite koordinati tochki B');
 readln(b[1],b[2]);
 writeln('vvedite koordinati tochki C');
 readln(c[1],c[2]);

 r1:=sqrt((b[1]-a[1])*(b[1]-a[1]) + (b[2]-a[2])*(b[2]-a[2]));
 r2:=sqrt((c[1]-b[1])*(c[1]-b[1]) + (c[2]-b[2])*(c[2]-b[2]));
 r3:=sqrt((c[1]-a[1])*(c[1]-a[1]) + (c[2]-a[2])*(c[2]-a[2]));

 clrscr;
 writeln('Vvedennije koordinati tochek:');
 writeln('A(',a[1],',',a[2],')');
 writeln('B(',b[1],',',b[2],')');
 writeln('C(',c[1],',',c[2],')');

  writeln;
 writeln('Rassroyanya mezhdu tochkami: ');
 writeln('AB->',r1:6:2);
 writeln('BC->',r2:6:2);
 writeln('AC->',r3:6:2);
 writeln;
 max:=r1;
 if r2>max then max:=r2;
 if r3>max then max:=r3;
 if r1=max then writeln('Max rast. mezhdu A i B');
 if r2=max then writeln('Max rast. mezhdu B i C');
 if r3=max then writeln('Max rast. mezhdu A i C');
 writeln;
 readln;
end.