[Delphi] объяснить почему так

[andy95]

тема избитая конечно, но все таки. Задали мне кароче задание на паскале, я его сделал, расчет делает, но высчитывает были немного отличны от истины или вообще не совпадали. Решил обратиться за помощью в наш всеми любимы гугл. После 5 часовой ходьбе по просторам интернета наткнулся наконец- то на то что искал. Но появилась ещё одна небольшая проблема. Та часть которую я написал не правильно в скаченной программе работает но КАК? собственно моя просьба объясните мне как это все работает.

Repeat
    inc(k); (-что это и как оно работает)
     if k <> 1 then
       for i:=1 to n do
         x_prev[i]:=x_tmp[i];
    for i:=1 to n do
      begin
         sum1:=0;
        for j:=1 to i-1 do
          sum1:=sum1 + a[i,j] * x_prev[j];
          sum2:=0;
        for j:=i+1 to n do
          sum2:=sum2 + a[i,j] * x_prev[j];
          x_cor[i]:=(b[i] - sum1 - sum2)/a[i,i];
      end;
    for i:=1 to n do
      x_tmp[i]:=x_cor[i];
      max:=1;
    for i:=1 to n-1 do
      if abs(x_cor[max]-x_prev[max]) < abs(x_cor[i+1]-x_prev[i+1]) then
         max:=i+1;
  Until  abs(x_cor[max]-x_prev[max]) < e; (- что такое abs?я думаю что модуль но ведь и могу ошибаться)

[FPaul]

Если у вас TurboPascal, установите курсор на непонятное слово и нажмите Ctrl-F1.

[min@y™]

Как звучит оригинал задания?

[ViktorR]

По вопросам:
1. inc(k); (-что это и как оно работает)
Это

k := k + 1;

В общем случае это:

inc(k,N);    {k := k + N;}

2.

Until abs(x_cor[max]-x_prev[max]) < e; (- что такое abs?я думаю что модуль но ведь и могу ошибаться)

Правильно думаешь. Поскольку разность может быть как положительной, так и отрицательной, то для сравнения с положительным числом, в этом случае, следует брать модуль разности.

PS: Код легче читается, если его форматировать и заключать в специальные скобки. Выдели код и нажми символ # , который есть на панели окна редактора.

Как-то так, ...

[min@y™]

PS: Код легче читается, если его форматировать и заключать в специальные скобки.

код лучше читается, когда пишешь и отлаживаешь его сам.

[andy95]

ViktorR Спасибо огромное

[andy95]

Сообщение от min@y™

код лучше читается, когда пишешь и отлаживаешь его сам.

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

[min@y™]

Не надо судить строго.

Да мне пофиг ваще. Я имел в виду, что чужой код ковырять сложнее, чем свой. И всё.

[Вадим Мошев]

По поводу inc(a, b).

По действию/результату кажется, что эта операция эквивалентна a:=a + b (для целых чисел). На самом деле здесь есть некоторые особенности.

1. Согласно информации, прочитанной ещё в институте (поскольку это было методическое пособие с заданиями на курсовое проектирование, её можно считать достоверной), операция инкремента (inc) работает быстрее, чем сложение через "плюс".

2. В достоверности того, о чём сейчас буду говорить, убедился на собственном опыте.
Я не знаю, как обстоят дела в turboPascal, но в Delphi (по крайней мере версия 7.0) есть сущность, имеющая вроде бы как тип Integer, для которой результаты работы inc(a, b) и a:=a+b - различаются между собой. Это свойство визуального компонента stringGrid rowCount.
Так, код

StringGrid1.RowCount:=2;
StringGrid1.RowCount:=StringGrid1.RowCount + 2;

компилируется и даёт вполне ожидаемый результат, в то время как такой код:

StringGrid1.RowCount:=2;
inc(StringGrid1.RowCount, 2);

не компилируется и приводит к ошибке:

[Error]: Left side cannot be assigned to

.
Курсор встаёт на красную строку.

[min@y™]

1. Согласно информации, прочитанной ещё в институте (поскольку это было методическое пособие с заданиями на курсовое проектирование, её можно считать достоверной), операция инкремента (inc) работает быстрее, чем сложение через "плюс".

зависит от компайлера, его настроек и оптимизации.

Курсор встаёт на красную строку.

вадик, ты белены обкурился? Это ж не переменная и не поле, а свойство! Ясен пень, его нельзя передавать, как var-параметр!

ну ваще!...