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

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

По хорошему, надо не лепить в каждой программе {$N+}, а настроить компилятор: Options->Compiler-> Отметить 8087/80287.

Это - ОЧЕНЬ спорное утверждение.. Ну, установил я у себя эту опцию, и что? Завтра пошел к другу, а у него не установлена - опять перенастраивать? А в университете вообще по мозгам могут дать за перенастройку компилятора. А вот с директивой (которая, кстати, имеет преимущество над настройками среды) все будет в порядке...

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

[andriano]

Это - ОЧЕНЬ спорное утверждение..

Хочешь поспорить?
Пожалуйста...

Во-первых, следует вспомнить (а тем, кто не знал - узнать), для чего нужна эта опция.
Первоначально в IBM PC (а также IBM PC XT) устанавливался процессор Intel 8088 и пустое гнездо для математического сопроцессора Intel 8087. В дальнейшем на смену IBM PC (XT) пришли IBM PC AT, собранные на процессоре Intel 80286, но также с пустым гнездом под сопроцессор. Примерно аналогичная ситуация произршла и с AT 386, правда, уже не IBM, а Compaq, но не суть важно. И сопроцессор там был уже 80387, оснащенный рядом новых команд.
Начиная с 80486 Intel располагает устройство для обработки чисел с плавающей точкой (FPU) внутри самого процессора. Надобность в гнезде для сопроцессора, а также в самом сопроцессоре отпала, а также ВСЕ выпускаемые компьютеры автоматически оказывались оснащенными FPU.
Borland Pascal 7.0 был разработан в расчете на компьютеры с процессорами 8086/88 и 80286, т.е. на те, кда мог как присутствовать, так и отсутствовать блок FPU. Отсюда и наличие переключателей в опциях компилятора.
Таким образом, на ВСЕХ компьютерах с процессорами 486 и выше, а также на 386, 286 и 86/88, оснащенных блоком FPU должны быть именно рекомендуемые установки.
Если где-нибудь сегодня обнаружите компьютер, на котором используется ТР 7.0 и не имеющий FPU - сообщите мне.

Ну, установил я у себя эту опцию, и что? Завтра пошел к другу, а у него не установлена - опять перенастраивать?

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

А в университете вообще по мозгам могут дать за перенастройку компилятора.

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

А вот с директивой (которая, кстати, имеет преимущество над настройками среды) все будет в порядке...

Что касается лирективы, то возражений по существу нет (т.к. быть не может), но есть несколько соображений, по которым это может оказаться не совсем удобным:
1. Кто сказал, что директива {$N+} чем-то дучше остальных? Следовательно, если уж явно описывать ее, то вполне логично точно также явно описать и еще два десятка директив.
2. Запоминание строки с двумя десятками директив - удовольствие ниже срежнего.
3. При различии в настройках при компиляции различных модулей и основной программы могут возникнуть проблемы. Поэтому "компилировать все с настройками по умолчанию" заведомо надежнее, чем "компилировать все с индивидуальными настройками".