сделать программу которая найдёт неизвестные x1 и x3 Опции

[moren]

сделать программу которая найдёт неизвестные x1 и x3 методом Гаусса — Жордана.
r, V-вводятся с клавиатуры
x1[1/r2+1/r1+1/r3]-x3[1/r3+1/r1]=V1/r2+V2/r1
x3[1/r4+1/r5+1/r1+1/r3] -x1[1/r1+1/r3]=V3/r5-V2/r1+V4/r4

[moren]

Код

program labrab;
uses crt;
var R1,R2,R3,R4,R5,V1,V2,V3,V4,Ra,Va,Rb,Vb,Rc:real;
begin
clrscr;
write('R1= ');
read(R1);
write('R2= ');
read(R2);
write('R3= ');
read(R3);
write('R4= ');
read(R4);
write('R5= ');
read(R5);
write('V1= ');
read(V1);
write('V2= ');
read(V2);
write('V3= ');
read(V3);
write('V4= ');
read(V4);
  Ra:=1/R2+1/R1+1/R3;
  Rb:=1/R3+1/R1;
  Rc:=1/R4+1/R5+1/R1+1/R3;
  Va:=V1/R2+V2/R1;
  Vb:=V3/R5-V2/R1+V4/R4;
write('Ra= ',Ra:8:4,' Rb= ',Rb:8:4,' Rc= ',Rc:8:4,' Va= ',Va:8:4,' Vb= ',Va:8:4);
readkey;
end.

матрица теперь выглядит так
x1[Ra]-x3[Rb]=Va
x3[Rc] -x1[Rb]=Vb
как решить её методом Гаусса — Жордана?

Сообщение отредактировано: moren - 10.12.2011 15:16