БЕСПЛАТНОЕ РЕШЕНИЕ ЗАДАЧ

Решение однородной системы

Если заданы два линейных уравнения, но с тремя неизвестными, то получается не так просто: можно найти одно частное и общее решение системы. Руководствуйтесь подсказками программы и вам все будет понятно.

$$ \cases { a_{1}x+b_{1}y+c_{1}z=0\cr a_{2}x+b_{2}y+c_{2}z=0 }$$
uses crt;
(*Нахождение одного частного и общего решения однородной системы
 двух уравнений с тремя неизвестными*)
 var a,b,c: array[1..2] of real;
 d1, d2, d3: real;
 i: integer;
begin
 clrscr;
 writeln('Введите через пробел коэф. ур-ния: a*x+b*y+c*z=0');
 writeln('После ввода трех коэф. нажмите ');
 for i:=1 to 2 do
 begin
 write('для ', i,'-го уравнения: ');
 read(a[i],b[i],c[i]);
 end;
 clrscr; writeln('Система двух уравнений с тремя неизвестными');
 for i:=1 to 2 do
 writeln(a[i]:4:2,'*x+',b[i]:4:2,'*y+',c[i]:4:2,'*z=0');
 d1:=b[1]*c[2]-b[2]*c[1];
 d2:=a[1]*c[2]-a[2]*c[1];
 d3:=a[1]*b[2]-a[2]*b[1];
 writeln('Решение:');
 writeln('x=', d1:4:2,' y=',-d2:4:2,' z=', d3:4:2);
 writeln('Любое решение может быть получено: ');
 writeln('( ',d1:4:2,'*t,', -d2:4:2,'*t,',d3:4:2,'*t )',
' t-любое число');
 repeat until keypressed;
end.

Оставить комментарий

Вы должны быть авторизованы , чтобы оставить или оценить комментарий.

Онлайн всего: 4
Гостей: 4
Пользователей: 0

STUDLAB Сообщить про опечатку на сайте