C++
1. написать фрагмент кода, в котором вычисляется значение следующего выражения:

Type   point=record       x,y: real       end; procedure getpoint(c: char; var a: point);   var       x,y: real; begin   write('введите координаты x и y точки ',c,': ');   read(x,y);   a.x: =x; a.y: =y end; function distpoint(a,b: point): real; begin   distpoint: =sqrt(sqr(b.x-a.x)+sqr(b.y-a.y)) end; var   a,b,m: point;   d,p,ab,ma,mb: real; begin   getpoint('a',a); getpoint('b',b); getpoint('m',m);   ab: =distpoint(a,b); ma: =distpoint(m,a); mb: =distpoint(m,b);   if ma> =ab+mb then d: =mb   else       if mb> =ma+ab then d: =ma       else begin           p: =(ma+mb+ab)/2;           d: =2*sqrt(p*(p-ab)*(p-ma)*(p-mb))/ab       end;   writeln('минимальное расстояние составляет ',d) end. тестовое решение: введите координаты x и y точки a: -3 -5 введите координаты x и y точки b: 2 5 введите координаты x и y точки m: -3 4 минимальное расстояние составляет 4.02492235949962