1 день на то чтоб разобраться в коде

[ололошенько]

народ,раньше учил чуть С++ а тут нада здать на завтра курсач по Числительным Методам(предмет такой),и проблема не только в том что я в этом предмете 0,а то что она проверяла,нечего не спрашивала,но задала вопросы по коду,а я делфи некогда и не видел,нечего немог сказать точно,где сама задача в коде и т.д... вот само задание
Постановка задачі.
Дана система лінійних алгебраїчних рівннянь.Необхідно дослідити її на стійкість. Знайти характеристичний многочлен методом Левур’є. Зробити відповідні висновки щодо її стійкості.
вобщем вот код гляньте плз

Текст програми.    

program leverie;
uses wincrt;
type matr=array[1..10,1..10] of real;
     mas=array[1..10] of real;
var n,i,j,k,l,g,v:integer;
    p,s:mas;
    a,b,c:matr;
    stiykist:real;
procedure mnogmatr(a,b:matr;n:integer; var c:matr);
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=0;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
c[k,i]:= c[k,i]+a[j,i]*b[k,j];
end;
end;
begin
writeln('vvedit rozmirnict matrici n=');
readln(n);
writeln('vvedit koeficienti matrici');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
 c[i,j]:=a[i,j];
for i:=1 to n do
 s[1]:=s[1]+a[i,i];
p[1]:=s[1];
for l:=2 to n do
begin
  for i:=1 to n do
  for j:=1 to n do
    b[i,j]:=c[i,j];
  mnogmatr(a,b,n,c);
  for j:=1 to n do
    s[l]:=s[l]+c[j,j];
  for k:=1 to l do
    p[l]:=p[l]-p[k]*s[l-k];
  p[l]:=(s[l]+p[l])/l;
end;
writeln('haracteristichniy mnogochlen');
g:=n; v:=0;
repeat
write(p[g]:2:3,'*l^',v,'+');
g:=g-1; v:=v+1;
until g=0;
writeln('-l^',v,'=0');
for i:=1 to n do
stiykist:=stiykist+abs(p[i]);
if stiykist>1 then writeln('sistema ne stiyka') else writeln('sistema stiyka');
end.

[Symba]

в чем заключается метод решения?
( я просто ни слышал о таком методе , извините)
по моему решение на этом участке, а где конкретно какие итерации происходят....вопрос

for i:=1 to n do
for j:=1 to n do
 c[i,j]:=a[i,j];
for i:=1 to n do
 s[1]:=s[1]+a[i,i];
p[1]:=s[1];
for l:=2 to n do
begin
  for i:=1 to n do
  for j:=1 to n do
    b[i,j]:=c[i,j];
  mnogmatr(a,b,n,c);
  for j:=1 to n do
    s[l]:=s[l]+c[j,j];
  for k:=1 to l do
    p[l]:=p[l]-p[k]*s[l-k];
  p[l]:=(s[l]+p[l])/l;
end;
writeln('haracteristichniy mnogochlen');
g:=n; v:=0;
repeat
write(p[g]:2:3,'*l^',v,'+');
g:=g-1; v:=v+1;
until g=0;
writeln('-l^',v,'=0');
for i:=1 to n do
stiykist:=stiykist+abs(p[i]);
if stiykist>1 then writeln('sistema ne stiyka') else writeln('sistema stiyka');

хотя вот, еще в самом начале происходят вычисления с элементами массивов,

begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=0;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
c[k,i]:= c[k,i]+a[j,i]*b[k,j];
end;
end;

[ололошенько]

метод решения...ну я чесно сказать сам хз,мб если скину теоритическу часть курсача,то более понятно будет,курсач зделан блин уже,но разобраться в нем немогу.Нада хотяб в коде разобр. и она поставит наверное...

[ололошенько]

блин ну хелп плс ктото...кто в делфи шарит роскажите про каждую строку что она делает,а то я за пол суток не успею выучить делфи,а потом ещё и разобраться в етом коде...(

[Valio]

Сообщение от ололошенько

блин ну хелп плс ктото...кто в делфи шарит роскажите про каждую строку что она делает,а то я за пол суток не успею выучить делфи,а потом ещё и разобраться в етом коде...(

Какие строчки имено? Тут только кучка стандартных циклов с элементарщиной в теле.

[Alex11223]

Дык а что учить? Вроде ничего сложного не применяется, если С++ знаете, то легко разберетесь в синтаксисе. И это скорее Паскаль, чем Дельфи.

[Symba]

Сообщение от ололошенько

метод решения...ну я чесно сказать сам хз,мб если скину теоритическу часть курсача,то более понятно будет,курсач зделан блин уже,но разобраться в нем немогу.Нада хотяб в коде разобр. и она поставит наверное...

если я правильно перевел на русский текст, то по моему

program leverie;
uses wincrt;
type matr=array[1..10,1..10] of real;
     mas=array[1..10] of real;
var n,i,j,k,l,g,v:integer;
    p,s:mas;
    a,b,c:matr;
    stiykist:real;
procedure mnogmatr(a,b:matr;n:integer; var c:matr);
begin
for i:=1 to n do
for j:=1 to n do
c[i,j]:=0;
for k:=1 to n do
for i:=1 to n do
for j:=1 to n do
begin
c[k,i]:= c[k,i]+a[j,i]*b[k,j];
end;
end;
begin
writeln('vvedit rozmirnict matrici n=');
readln(n);
writeln('vvedit koeficienti matrici');
for i:=1 to n do
for j:=1 to n do
begin
write('a[',i,',',j,']=');
readln(a[i,j]); // задается матрица А (5)
end;
for i:=1 to n do
for j:=1 to n do
 c[i,j]:=a[i,j];
for i:=1 to n do
 s[1]:=s[1]+a[i,i]; // это формула (7) из работы
p[1]:=s[1]; // по формуле (8)
for l:=2 to n do
begin
  for i:=1 to n do
  for j:=1 to n do
    b[i,j]:=c[i,j];
  mnogmatr(a,b,n,c);
  for j:=1 to n do
    s[l]:=s[l]+c[j,j];
  for k:=1 to l do
    p[l]:=p[l]-p[k]*s[l-k];                       // вычисляется коэффициент p с индексом k
  p[l]:=(s[l]+p[l])/l;                             //
end;
writeln('haracteristichniy mnogochlen');           //
g:=n; v:=0;                                       //
repeat                                              // выводиться характеристический многочлен
write(p[g]:2:3,'*l^',v,'+');                     //
g:=g-1; v:=v+1;
until g=0;
writeln('-l^',v,'=0');                            // 
for i:=1 to n do
stiykist:=stiykist+abs(p[i]);
if stiykist>1 then writeln('sistema ne stiyka') else writeln('sistema stiyka');
end.

это все что я смог разобрать =(

[ололошенько]

да,нерассмотрел както,на паскаль чуть похоже вроде,сказали одногрупники что делфи это...вот немогу щас понять что делает строка

for j:=1 to n do

вот эта например

[Valio]

Сообщение от ололошенько

да,нерассмотрел както,на паскаль чуть похоже вроде,сказали одногрупники что делфи это...вот немогу щас понять что делает строка

for j:=1 to n do

вот эта например

Вообще странно учитывая что:
- Регистрация: 10.08.2010
- Сообщений: 142
- Репутация: 20
- раньше учил чуть С++

На форуме пол года сидишь и не знаешь про цикл for?

[Пепел Феникса]

for j:=1 to n do

for(j=1;j<=n;j++)