комбинированные типы. операторы присоединения. Опции

[ducky]

помогите пожалуйста из неработающей программы, работающую сделать..

program errors;
 type поле = (а,b);
запись = record a:integer; b:char end;
 var х,у:запись; c:char;
 function f (var r:запись):запись;
 var р:поле;
begin for p := a to b do f.p := succ(z.p) end;
 begin read©;
with x do begin a := ord©; b := c end;
y := x; if x = у then y := f(x);
with у do writeln(a,x) 
end.

[volvo]

выдает Error 41.

А вот это уже серьезнее... Дело в том, что операция сравнения (в Турбо Паскале по крайней мере) допустима только между простыми типами. Запись - это тип сложный, нельзя сравнивать записи между собой таким образом (через оператор "="). В более продвинутых компиляторах возможно переопределить оператор сравнения, тогда можно будет добиться работоспособности программы.

Единственный способ сравнить записи в Турбо Паскале - это сравнить их по каждому полю отдельно. К тому же, ты неправильно написала: функция в первом посте возвращает тип "запись", в 10-м посте у тебя она возвращает вещественное число. Тут - тоже засада: не может в Турбо-Паскале функция возвращать значение сложного типа. То есть, с использованием Турбо-Паскаля невозможно заставить приведенную выше (в самом начале треда) программу компилироваться. Только путем значительной переделки этого удастся достичь...