Паралельное решение системы n линейных уравнений на паскале

[ice_venom]

На турбо паскале 7 под дос требуется реализовать параллельное решение системы n линейных уравнений методом гауса. Должна быть псевдопараллельность, а в комментариях к коду указано, что
этот кусочек может выполняться на 1 процессоре, другой - на (n+1) процессоре параллельно с 1-м и т.д.
Разумеется, программа выполняется на одном процессоре и пишется только с использованием доступных команд.

Как пример почти того что нужно http://www.viva64.com/ru/a/0032/#ID0E6SIM

Это кошмар какой-то. Что хочет препод? Я никак понять не могу. Помогите пожалуйста.

[andrewpalkin]

Сообщение от ice_venom

На турбо паскале 7 под дос требуется реализовать параллельное решение системы n линейных уравнений методом гауса. Должна быть псевдопараллельность, а в комментариях к коду указано, что
этот кусочек может выполняться на 1 процессоре, другой - на (n+1) процессоре параллельно с 1-м и т.д.
Разумеется, программа выполняется на одном процессоре и пишется только с использованием доступных команд.

Как пример почти того что нужно http://www.viva64.com/ru/a/0032/#ID0E6SIM

Это кошмар какой-то. Что хочет препод? Я никак понять не могу. Помогите пожалуйста.

А почему бы не спросить самого препода

[ice_venom]

А почему бы не спросить самого препода

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

[andrewpalkin]

Сообщение от ice_venom

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

Как я понял , он хочет что бы ты использовал Thread Process in Pascal , вот только я понятия не имею как это сделать на Паскале , но идея вроде в этом

[ice_venom]

Он хочет не Thread Process, а псевдо Thread Process, ибо дос.
А вот как такое реализовать... За этим я собственно сюда и обратился

[andrewpalkin]

Сообщение от ice_venom

Он хочет не Thread Process, а псевдо Thread Process, ибо дос.
А вот как такое реализовать... За этим я собственно сюда и обратился

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

[ice_venom]

Вообщем надо разбить код на небольшие процедуры/функции, которые смогут выполняться одновременно. Как это сделать? Свой код привел ниже.

program asd;


uses
  crt;
const
  e=0.000001;{поскольку числа вещественные, при проверке точно не сойдется, поэтому вводим погрешность расчетов}
  al = ['A'..'Z','a'..'z'];
var a:array[1..20,1..21] of real;{масив коэфф. и св. членов }
    b:array[1..20] of real;{массив свободных членов  }
    x:array[1..20] of real;  {массив корней уравнения    }
    n,i,j,k:integer;
    r,g:real;


begin
  //clrscr;
  randomize;
  n:=4;
  {Ввод матрицы}
  writeln('Vvedite koeficenti i svobodnie chleni');
  for i:=1 to n do
    for j:=1 to n+1 do
    begin
      write('vvedite a[',i,',',j,'] ');
      read(A[i,j]);
      {a[i,j]:=random(5);  }
    end;
  readln;
  //clrscr;
  {Выводим матрицу пользователю}
  writeln('Matrica koeficentov i svobodnih chlenov');
  for i:=1 to n do
    begin
      for j:=1 to n+1 do
        write(A[i,j]:6:2);
      writeln;
    end;
  readln;
  for i:=1 to n do  { запоминаем свободные члены   }
    b[i]:=a[i,n+1];
  for k:=1 to n do {прямой ход Гаусса, приведение матрицы коэффициентов к треугольному виду}
       begin
         for j:=k+1 to n do
            begin
              if a[k,k]<>0 then
                begin
                  r:=a[j,k]/a[k,k];
                  for i:=k to n do
                     begin
                       a[j,i]:=a[j,i]-r*a[k,i];
                     end;
                   b[j]:=b[j]-r*b[k];
                 end;
             end;
        end;
  writeln('Preobrazovanaya  matrica');
  for i:=1 to n do
    begin
      for j:=1 to n do
        write(A[i,j]:6:2);
        write(b[i]:6:2);
      writeln;
    end;
          readln;

  for k:=n downto 1 do {обратный ход Гаусса, вычисление корней}
       begin
         r:=0;
         for j:=k+1 to n do
           begin
             g:=a[k,j]*x[j];
             r:=r+g;
           end;
		 {Учитываем деление на 0}
        if a[k,k]<>0 then
           x[k]:=(b[k]-r)/a[k,k];
       end;
  {Выводим получившийся ответ}
  writeln('Korni sistemi:');
  for i:=1 to n do
    write('x[',i,']=',x[i]:0:2,'   ');
  writeln;
  readln;


end.

[Stilet]

Если я не ошибаюсь распараллелить тут не получится, потому что последующие действия должны работать на основе предидущих.
Сначала нужно получить a[j,i] а только после его наполнения g