Перевести с Языка PASCAL в С++ uses crt; var a, b, c, ma, mb, mc: real; function Mediana (x, y, z: real): real; var m: real; begin m:=0.5*((2*sqr(y))+(2*sqr(z))-sqr(x)); Mediana:=m; end; begin write('a='); readln(a); write('b='); readln(b); write('c='); readln(c); writeln('Медиана к стороне А =', Mediana (a, b, c):0:1); writeln('Медиана к стороне B =', Mediana (b, c, a):0:1); writeln('Медиана к стороне C =', Mediana (c, a, b):0:1); readkey end.

Код программы:

#include <iostream>

#include <locale>

using namespace std;

double Mediana(double x, double y, double z) {

double m;

m = 0.5*(2 * y*y + 2 * z*z - x*x);

return m;

}

int main()

{

setlocale(LC_ALL, "Russian");

double a, b, c, ma, mb, mc;

cout << "a = ";

cin >> a;

cout << "b = ";

cin >> b;

cout << "c = ";

cin >> c;

cout<<"Медиана к стороне А = "<< Mediana(a, b, c)<<endl;

cout <<"Медиана к стороне B = "<< Mediana(b, c, a)<<endl;

cout <<"Медиана к стороне C = "<< Mediana(c, a, b)<<endl;

return 0;

}