Версия для печати темы

Автор: faktorX 2.09.2007 18:05

Проверте пожалуйста задачу. написал одним файлом работает, а с модулем нет. Вот задание:
Решить систему линейных уравнений N-го порядка (2<N<10) методом Крамера. Модуль:
Реализовать в ввиде модуля набор подпрограмм для выполнения следующих операций с квадратными матрицами:

сложение двух матриц;
умножение двух матриц;
умножение одной матрицы на другую;
нахождение транспонированой матрицы;
вычисление определителя матрицы;

Матрицу описать следующим образом:

Const=10
Type matrica=array[1..NMax, 1..NMax] of real

Там есть файл SLR_2.pas - это программа одним файлом, остальное модуль и другая часть.




Прикрепленные файлы
 matrix.rar ( 2.35 килобайт ) Кол-во скачиваний: 200

Автор: volvo 2.09.2007 18:22

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

  ...
  if D<>0 then
  begin
    for j:=1 to m do
    begin
      TX:=T;
      for i:=1 to m do TX[i,j]:=V[i];
      R[j]:=determinant(m,TX)/D; { <--- Здесь - TX, а не C }
    end;
    writeln(' ... ');
    for j:=1 to m do write(R[j]:7:2); { <--- Здесь - R[j], а не X[j] }
    writeln
  end
  ...

(Проверять, извини, не буду... Ибо велосипед. Вот тут: http://forum.pascal.net.ru/index.php?s=&showtopic=3902&view=findpost&p=37721 лежит отлаженная программа. Она тебя не устроила? Дело твое...)

Автор: faktorX 2.09.2007 18:57

Так я й хочу узнать почему переменные также само описаны что в задаче с модулем что без него ,а от задача с модулем не хочет компилироваться, или может что то забыл?