Матрица

← →
Matri}{ (2006-09-28 19:01) [0]

привет всем, мне нужно написать программу для решения матриц с пятью неизвестными, я попытался и у меня получилась следующая программа:
uses crt;
var x,x1,x2,x3,x4,x5,p:real;
m:array[1..30] of real;

begin
clrscr;
writeln;
readln(m[1],m[2],m[3],m[4],m[5],m[6],m[7],m[8],m[9],m[10],m[11],m[12],m[13],m[14 ],m[15],m[16],m[17],m[18],m[19],m[20]);
readln(m[21],m[22],m[23],m[24],m[25],m[26],m[27],m[28],m[29],m[30]);
x:=-(m[6]/m[1]);
m[6]:=m[6]+x;
m[7]:=m[7]+(m[2]*x);
m[8]:=m[8]+(m[3]*x);
m[9]:=m[9]+(m[4]*x);
m[10]:=m[10]+(m[5]*x);
m[27]:=m[27]+(m[26]*x);
x:=-(m[11]/m[1]);
m[11]:=m[11]+x;
m[12]:=m[12]+(m[2]*x);
m[13]:=m[13]+(m[3]*x);
m[14]:=m[14]+(m[4]*x);
m[15]:=m[15]+(m[5]*x);
m[28]:=m[28]+(m[26]*x);
x:=-(m[16]/m[1]);
m[16]:=m[16]+x;
m[17]:=m[17]+(m[2]*x);
m[18]:=m[18]+(m[3]*x);
m[19]:=m[19]+(m[4]*x);
m[20]:=m[20]+(m[5]*x);
m[29]:=m[29]+(m[26]*x);
x:=-(m[21]/m[1]);
m[21]:=m[21]+x;
m[22]:=m[22]+(m[2]*x);
m[23]:=m[23]+(m[3]*x);
m[24]:=m[24]+(m[4]*x);
m[25]:=m[25]+(m[5]*x);
m[30]:=m[30]+(m[26]*x);
{}
x:=-(m[12]/m[2]);
m[12]:=m[12]+x;
m[13]:=m[13]+(m[3]*x);
m[14]:=m[14]+(m[4]*x);
m[15]:=m[15]+(m[5]*x);
m[28]:=m[28]+(m[26]*x);
x:=-(m[17]/m[2]);
m[17]:=m[17]+x;
m[18]:=m[18]+(m[3]*x);
m[19]:=m[19]+(m[4]*x);
m[20]:=m[20]+(m[5]*x);
m[29]:=m[29]+(m[26]*x);
x:=-(m[22]/m[2]);
m[22]:=m[22]+x;
m[23]:=m[23]+(m[3]*x);
m[24]:=m[24]+(m[4]*x);
m[25]:=m[25]+(m[5]*x);
m[30]:=m[30]+(m[26]*x);
{}
x:=-(m[18]/m[3]);
m[18]:=m[18]+x;
m[19]:=m[19]+(m[4]*x);
m[20]:=m[20]+(m[5]*x);
m[29]:=m[29]+(m[26]*x);
x:=-(m[23]/m[3]);
m[23]:=m[23]+x;
m[24]:=m[24]+(m[4]*x);
m[25]:=m[25]+(m[5]*x);
m[30]:=m[30]+(m[26]*x);
{}
x:=-(m[24]/m[4]);
m[24]:=m[24]+x;
m[25]:=m[25]+(m[5]*x);
m[30]:=m[30]+(m[26]*x);
x5:=m[30]/m[25];
x4:=(m[29]-m[20]*x5)/m[19];
x3:=(m[28]-m[15]*x5-m[14]*x4)/m[13];
x2:=(m[27]-m[18]*x5-m[9]*x4-m[8]*x3)/m[7];
x1:=(m[26]-m[5]*x5-m[4]*x4-m[3]*x3-m[2]*x2)/m[1];
writeln(x1:5:2," ",x2:5:2," ",x3:5:2," ",x4:5:2," ",x5:5:2);
readln;
end.
но она работает не правильно, подскажите что где не так что можно улучшить.
З.Ы. Пишу на Паскале

← →
SergP. (2006-09-28 19:19) [1]

> привет всем, мне нужно написать программу для решения матриц
> с пятью неизвестными,

Сначала ты объясни всем что такое "матрица с пятью неизвестными"?
А то я вообще не знаю что это такое... Думаю что и все остальные такого не слышали...
Телепатор пока включать не буду....

← →
Ketmar © (2006-09-28 19:21) [2]

>[1] SergP. 28-Sep-2006, 19:19
>Сначала ты объясни всем что такое "матрица с
>пятью неизвестными"?
это, наверное, Нео, Тринити, Морфей и прочие в масках...

← →
Pavia © (2006-09-28 19:22) [3]

> Сначала ты объясни всем что такое "матрица с пятью неизвестными"?
>
> А то я вообще не знаю что это такое... Думаю что и все остальные
> такого не слышали...
> Телепатор пока включать не буду....

А то ты проспал он уже объеснил вчера.

> но она работает не правильно, подскажите что где не так
> что можно улучшить.
> З.Ы. Пишу на Паскале

Ты циклы добавь тогда и код можно будет посмотреть.

← →
Ketmar © (2006-09-28 19:28) [4]

блин. вежливые люди дают ссылку на оригинальную ветку. %-)

← →
SergP. (2006-09-28 19:29) [5]

> А то ты проспал он уже объеснил вчера.

зачем же он тогда новую ветку создал?

← →
Ketmar © (2006-09-28 19:32) [6]

>[5] SergP. 28-Sep-2006, 19:29
>зачем же он тогда новую ветку создал?
то ли старую потерял, то ли фиг его знает... %-)

← →
GrayFace © (2006-09-28 19:45) [7]

Matri}{ (28.09.06 19:01)
привет всем, мне нужно написать программу для решения матриц
Так держать! Порешить их всех!

> это, наверное, Нео, Тринити, Морфей и прочие в масках...

Нео, Тринити, Морфей знаю, а кто такие Это и Наверное

> А то ты проспал он уже объеснил вчера.

это другой человек, возможно из той же школы

>[8] Anatoly Podgoretsky(c) 28-Sep-2006, 19:48
>а кто такие Это и Наверное
про них ещё не сняли...

Матрица Найти похожие ветки