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

[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.

[мисс_граффити]

Интересно, а к организаторам олимпиад по программированию тоже надо прийти и настроить компилятор под себя правильно? Или отсылать им решения без директив ("А что, у меня-то работает!"), а потом возмущаться и орать, что все места куплены, а твоя супер-пупер программка по их мнению даже не откомпилировалась?

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

никто не сказал. я, например, и другими нередко пользуюсь. по мере необходимости.
а ее явно описываю только при использовании определенных типов переменных.

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

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

Почему же? Отличная тренировка памяти... Если хелпом пользоваться не получается...

Вот, еще пример.
Сможешь сделать настройками компилятора аналог такой вещи:

{$I-}
reset(f);
{$I+}
if IOResult<>0 then...

то есть изменить настройки для какого-то кусочка программы?

Сообщение отредактировано: мисс_граффити - 2.01.2008 16:50