Скиньте текст программы в программе с++ Результатом работы является программа вычисления корней СЛАУ методом Гаусса:
uses crt;a:array[1..3,1..4] of real;:array[1..3] of real;:array[1..3] of real;,i,j,k:integer;z,r,g:real;(yellow);;(red);
gotoxy (16,5);(Казанский национальный исследовательский технический университет им. А.Н.Туполева-КАИ)
');(27,6);('Информационные системы и технологий факультет');(15,7); //('Кафедра «Машиностроения и информационных технологий»');
textcolor (blue);(31,10);('Практическая работа');
gotoxy (8,11);('Тема: Решение систем линейных алгебраических уравнений.
Метод Гаусса');(green);(34,18);
write ('Выполнил:Каримов А.А.,студент группы №2000709');(34,19);('Руководитель работы: Ягфаров Ю.О.');
textcolor (LightMagenta);(32,23);('Казань 2020');(5500);(18, 24);(blue);;
n:=3;('Введите коэффициенты системы и свободные члены');
for i:=1 to n doj:=1 to n+1 do(A[i,j]);;
clrscr;('Матрица коэффициентов и свободных членов');
for i:=1 to n doj:=1 to n+1 do(A[i,j]:6:2)i:=1 to n do[i]:=a[i,n+1];k:=1 to n doj:=k+1 to n do:=a[j,k]/a[k,k];i:=k to n do[j,i]:=a[j,i]-r*a[k,i];;[j]:=b[j]-r*b[k];;;k:=n downto 1 do:=0;j:=k+1 to n do:=a[k,j]*x[j];:=r+g;;[k]:=(b[k]-r)/a[k,k];;('Корни системы:');i:=1 to n do('x[',i,']=',x[i]:0:2,' ');
writeln;; end. (4)
{
if (a.Length != b.Length || a.Length == 0) throw new Exception("не верные параметры");
double ab = 0;
double a_length = 0;
double b_length = 0;
for (var i = 0; i < a.Length; i++)
{
ab += a[i] * b[i];
a_length = a[i] * a[i];
b_length = b[i] * b[i];
}
if (a_length * b_length == 0) throw new Exception("Нулевые вектора");
return ab / Math.Sqrt(a_length) / Math.Sqrt(b_length);
}