Dirijabl

27.12.2022 04:48 •  Информатика

Скиньте текст программы в программе с++ Результатом работы является программа вычисления корней СЛАУ методом Гаусса:

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)