задача о совместных браках

[Marianna22]

Всем доброго времени суток!
Есть ли у кого нибудь код программы для решения задачи о совместных браках? - Пусть есть массивы процессов Man[1..n] и Women[1..n]. Каждый мужчина оценивает женщин числами от 1 до n, и каждая женщина так же оценивает мужчин (Получаются перестановки целых чисел от 1 до n).
Должны выполнятся оба следующих условия.
1. Man[i] оценивает Women[p] выше, чем Women[q], или Women[q] оценивает Man[j] выше, чем Man[i].
2. Man[j] оценивает Women[q] выше, чем Women[p], или Women[p] оценивает Man[i] выше, чем Man[j].
нашла в инете код, он ошибки выдает. Может у кого то есть?
Буду очень признательна

[northener]

нашла в инете код, он ошибки выдает. Может у кого то есть?

А где уверенность в том что то что "у кого-то есть" не будет выдавать такие же или другие ошибки? Дело то не только в самом коде, но и в кривизне рук того, кто этот код использует. Ты бы для начала привела свой вариант использования найденного кода и сказала бы какие ошибки он выдает.

[Marianna22]

Const n =8;
Type man = 1..n; woman = 1..n; rank = 1..n; // массив мужчин, женщин, ранга
Var m: man; w: woman; r:rank;        // переменные
        Wmr : array [man, rank] of woman;
        mwr : array [woman, rank] of man;
        rwm : array [man, woman] of rank;
        rmw : array [woman, man] of rank;   //Wmr
        X: array [man] of woman;
        Y: array [woman] of man;
        single: array [woman] of boolean;

procedure print;
var m: man; rm, rw: integer;
begin rm:= 0;rw:=0;
      for m:=1 to n do
        begin write(x[m]:4);
          rm:=rm+rmw[m,x[m]]; rw := rw + rwm[x[m],m]
        end;
writeln(rm:8,rw:4);
end; //{print}

procedure try(m: man);
var r: rank; w: woman;
     function stable: boolean;
     var pm: man; pw: woman;
       i, lim: rank; s: boolean;
        begin s:=true; i:=1;
          while(i<r) ^ s do
            begin pw:=wmr[m,i]; i:=i+1;
              if single[pw] then s:=rwm[pw,m]>rwm[pw,y[pw]];
              end;
             i:=1; lim:=rwm[w,m];
          while (i<lim) ^ s do
            begin pm:= mwr[w,i]; i:= i+1;
              if pm < m then s := rmw[pm,w] > rmw[pm,x[pm]];
            end;
   stable: = s;
end{stable};

begin{try}
   for r:=1 to n do
     begin w:=wmr[m,r];
       if single[w] then
        if stable then
          begin x[m]:=w; y[w]:=m; single[w]:=false;
        if m<n then try(succ(m)) else print;
          single[w]:= true
          end;
     end;
end{try};

procedure print;
begin
  for m: = 1 to n do
  for r:= 1 to n do
begin read(wmr[m,r]); rmw[m,wmr[m;r]]:=r;
end;
   for w:=1 to n do
   for r := 1 to n do
begin read(mwr[w,r]); rwm[w,mwr[w,r]] :=r;
end;
          for w:=1 to n do single[w] := true;
          try(1)
end.

ошибка
[Error] Project1.dpr(28): Identifier expected but 'TRY' found
[Error] Project1.dpr(58): Identifier redeclared: 'print'

[newerow1989]

[Error] Project1.dpr(28): Identifier expected but 'TRY' found

Заменить TRY на другое имя - это зарезервированное слово (begin, end, var, const и т.д. нельзя употреблять в качестве переменных, названий процедур/функций и т.д.)

[Error] Project1.dpr(58): Identifier redeclared: 'print'

Употребляется 2 раза procedure print; - заменить 1-ю процедуру на procedure print1;, а 2-ю procedure print2;

Добавлю еще: здесь какие-то "обрывки" - последняя процедура procedure print; находится после конструкции begin ... end, кроме того, она заканчивается точкой после end.

[Marianna22]

Спасибо Вам,я не додумалась

[Marianna22]

Есть еще ошибки, подскажите пожалуйста.
[Error] Project1.dpr(39): Pointer type required (это в while(i<r) ^ s )
[Error] Project1.dpr(44): Pointer type required (while (i<lim) ^ s)
[Error] Project1.dpr(48): ':=' expected but ':' found (stable: = s
[Error] Project1.dpr(65): For loop control variable must be simple local variable (for m = 1 to n do)
[Error] Project1.dpr(67): Expression expected but 'BEGIN' found (begin
read(wmr[m,r]) - почему нет то?

[newerow1989]

[Error] Project1.dpr(39): Pointer type required (это в while(i<r) ^ s )

Надо попробовать писать: while(i<r)

Pointer type required (while (i<lim) ^ s)

while (i<lim)

[Error] Project1.dpr(48): ':=' expected but ':' found (stable: = s

Писать слитно: stable:= s; (между двоеточием и равенством не должно быть пробелов)

[Error] Project1.dpr(65): For loop control variable must be simple local variable (for m = 1 to n do)

for m := 1 to n do (не было двоеточия)
точно так же и на следующей строке

[Error] Project1.dpr(67): Expression expected but 'BEGIN' found (begin

это не надо - оно автоматически уйдет, если исправить предыдущие 2 ошибки

А почему код убрали в 5-м посте?

[Marianna22]

Спасибо Вам еще раз! получается)

[newerow1989]

Пожалуйста!

[Marianna22]

Const n =8;
Type man = 1..n; woman = 1..n; rank = 1..n; // ìàññèâ ìóæ÷èí, æåíùèí, ðàíãà
Var m: man; w: woman; r:rank; // ïåðåìåííûå
Wmr : array [man, rank] of woman;
mwr : array [woman, rank] of man;
rwm : array [man, woman] of rank;
rmw : array [woman, man] of rank; //Wmr
X: array [man] of woman;
Y: array [woman] of man;
single: array [woman] of boolean;

procedure print;
var m: man; rm, rw: integer;
begin rm:= 0;rw:=0;
for m:=1 to n do
begin
write(x[m]:4);
rm:=rm+rmw[m,x[m]];
rw := rw + rwm[x[m],m]
end;
writeln(rm:8,rw:4);
end; //{print}


procedure tryM(m: man);
var r: rank; w: woman;

function stable: boolean;
var pm: man; pw: woman;
i, lim: rank; s: boolean;
begin s:=true; i:=1;
while(i<r) do
begin pw:=wmr[m,i]; i:=i+1;
if single[pw] then s:=rwm[pw,m]>rwm[pw,y[pw]];
end;
i:=1; lim:=rwm[w,m];
while (i<lim) do
begin pm:= mwr[w,i]; i:= i+1;
if pm < m then s := rmw[pm,w] > rmw[pm,x[pm]]
end;
stable:= s;
end{stable};


begin{try}
for r:=1 to n do
begin w:=wmr[m,r];
if single[w] then
if stable then
begin x[m]:=w; y[w]:=m; single[w]:=false;
if m<n then tryM(succ(m)) else print;
single[w]:= true
end
// end
end{try};

begin
for m:= 1 to n do
for r:= 1 to n do
begin
read(wmr[m,r]);
rmw[m,wmr[m,r]]:=r;
end;
for w:=1 to n do
for r := 1 to n do
begin read(mwr[w,r]); rwm[w,mwr[w,r]] :=r
end;

for w:=1 to n do single[w] := true;
tryM(1);

{ TODO -oUser -cConsole Main : Insert code here }
end.

получилось вот так. Я хотела скинуть фото кода из книги. попробую ниже. Сейчас только [Error] Project1.dpr(80): Record, object or class type required пишет.
Подскажите, если можно, что может означать код while(i<r) ^ s (именно ^ s)