Рекурсия и списки Опции

[Sara]

дан полином

Код

type
TPolynom = ^TElement;
TElement = record
 coef: real;
 degree: integer;
 next: TPolynom;
end;

так вот надо инвертирвать(написать наоборот) полином НЕ используя for while repeat
полином: икс в степени что угодно + икс в степени что угодно и т.д. плюс к тому же при иксах могут стоять аргументы

Сообщение отредактировано: volvo - 18.12.2004 2:46

[ALex___]

Код

procedure InvertPolynom(var Head: TPolynom);
var
P: Pointer;

procedure Rec(H: TPolynom);
begin

if H^.Next <> nil then begin
 Rec(H^.Next);
 H^.Next.Next := H;
end else Head := H

end;

begin

if Head <> nil then begin
 P := Head;
 Rec(Head);
 TElement(P^).Next := nil
end

end;

вот те рабочий код
как лучше сделать нинаю, только не спрашивай как оно
работает - это всё "путано путано и не понятно..."
но поставленная задача всё же в ауте

Сообщение отредактировано: volvo - 18.12.2004 2:47