Исправить ошибки, Исправить переведенную программу Опции

[Accer]

Я просил помочь перевести программу на паскаль( Перевести программу на Pascal )
Мне помогли, но программа не компилируется. Пожалуйста помогите это исправить!

const
  n = 3;
  A: array[0 .. pred(n), 0 .. pred(n)] of double = (
    (10, 1, 1), (2, 10, 1), (2, 2, 10)
  );
  B: array[0 .. pred(n)] of double = (
    12, 13, 14
  );

var
  X: array[0 .. pred(n)] of double;
  i, j, k: integer;
  multiplier: double;

begin
  writeln('Linear system of equations:');
  writeln;

  for i := 0 to pred(n) do begin
    for j := 0 to pred(n-1) do
      write('(', A[i][j]:0:2, ') * x', j, ' + ');
    writeln('(', A[i][n-1]:0:2, ') * x', pred(n), ' = ', B[i]:0:2);
  end;

  for i := 0 to pred(n-1) do begin
    for j := i+1 to pred(n) do begin
      multiplier := A[j][i] / A[i][i];
      for k := 0 to pred(n) do
        A[j][k] := A[j][k] - A[i][k] * multiplier;
      B[j] := B[j] - B[i] * multiplier;
    end;
  end;

  for i := n-1 downto 0 do begin
    X[i] := B[i];
    for j := n-1 downto succ(i) do
      X[i] := X[i] - A[i][j] * X[j];
    X[i] := X[i] / A[i][i];
  end;

  writeln;
  writeln('Result vector X:');
  for i := 0 to pred(n) do begin
    writeln('X[', i, '] = ', X[i]:0:2);
  end;
end.

[volvo]

Ну, вообще-то - да. Если видишь, что у друга что-то настроено НЕПРАВИЛЬНО, то почему бы не исправить?

Да ты что? А друг, вот незадача, разрабатывает приложения под компьютер БЕЗ сопроцессора, и ему эта "галочка" ни никаким боком просто не сдалась в настройках (вот бывают же в наше время такие раритеты, да? И еще работают... И работают исправно, заметь. У меня есть несколько знакомых, которые пишут под 286 процессор - без сопроцессора, и хозяева не собираются менять аппаратуру)...

И вообще: что у тебя за привычка, расскажи мне? Почему надо дать ДУРНОЙ совет, и считать себя просто гением? Что бы ты сказал, если бы кто-то пришел к тебе домой и поменял ТЕБЕ установки компилятора? Для чего ВООБЩЕ по-твоему нужны директивы компилятора? Просто так? Для красоты? Ан нет, вообще-то они как раз и используются (если ты этого делать не хочешь, или не умеешь - это не повод давать идиотских советов по перенастройке "всего и вся" НА СВОЙ ВКУС) для того, чтобы независимо от настроек IDE программа работала одинаково... Да что я с тобой говорю-то вообще? Человек, не имеющий TP лезет в каждую тему раздела "Задачи" и о чем-то с умным видом рассуждает...

Кто сказал, что директива {$N+} чем-то дучше остальных? Следовательно, если уж явно описывать ее, то вполне логично точно также явно описать и еще два десятка директив.

Если то значение, которым ты пользуешься ОТЛИЧАЕТСЯ от значения по умолчанию - то да, надо... А ты что, этого тоже не делаешь?

2. Запоминание строки с двумя десятками директив - удовольствие ниже срежнего.

Программирование вообще удовольствие ниже среднего...

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

Начало фразы правильное, а вот окончание - ну, как всегда у тебя - ты опять извращаешься, и потом-таки будешь говорить, что "ты это и имел в виду"... Так вот, для того, чтобы НЕ было проблем при компилировании модулей и программ с настройками по умолчанию, надо пользоваться директивами... Повторяю для тебя специально вопрос еще раз: почему приоритет директивы выше приоритета настроек через IDE? Почему ты вообще решил, что все пользуются только IDE? Если ты пользуешься ей (это я загнул, конечно, ибо ты теоретик, Turbo Pascal-ем не пользуешься вообще, только раздаешь налево/направо советы, как другие должны им пользоваться) - это еще ничего не значит, есть и консольные компиляторы (никогда не писал программы, которые не помещаются в 640К, выделенные IDE Паскаля?), при работе с которыми гораздо проще записать строку директив, чем вызывать TPC/TPCX с десятком - другим ключей (CFG-файлы можешь не предлагать, будет отвергнуто с цитатой твоих же слов)...

Сообщение отредактировано: volvo - 2.01.2008 22:06