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('После ввода трех коэф. нажмите <Enter>');
 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.
Оценка - 1.0 (11)
2010-08-18 • Просмотров [ 1498 ]
Однородная система
