Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Матрица

Matri}{ © (2006-09-28 19:01:00)
привет всем, мне нужно написать программу для решения матриц с пятью неизвестными, я попытался и у меня получилась следующая программа:
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.
но она работает не правильно, подскажите что где не так что можно улучшить.
З.Ы. Пишу на Паскале

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

Anatoly Podgoretsky (2006-09-28 20:02:00) [2]

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

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

Anatoly Podgoretsky (2006-09-28 19:48:00) [3]

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

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

GrayFace (2006-09-28 19:45:00) [4]
Matri}{ (28.09.06 19:01)
привет всем, мне нужно написать программу для решения матриц
Так держать! Порешить их всех!

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

SergP. (2006-09-28 19:29:00) [6]
> А то ты проспал он уже объеснил вчера.

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

Ketmar (2006-09-28 19:28:00) [7]
блин. вежливые люди дают ссылку на оригинальную ветку. %-)

Pavia (2006-09-28 19:22:00) [8]

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

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

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

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

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

SergP. (2006-09-28 19:19:00) [10]
> привет всем, мне нужно написать программу для решения матриц
> с пятью неизвестными,

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

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »