Многочлены

← →
Denis__ © (2008-12-18 17:32) [0]

Вопрос не про Делфи, а про алгоритм. Задача - ввести во внутреннее представление многочлен, который вводится как строка - алгебраическая сумма слагаемых вида ax^k, ax, x^k, x, a. Где a, k - целые,>=1. Представление - однонаправленный список, но это не важно. Важно разделить многочлен на одночлены и потом их на коэффициент "а" и степень "k". Сделал, все работает, но сомневаюсь в правильности подхода. Кто чем может:)

procedure ParseMon(s : String; var a, k : Integer); var i, e : Integer; r : Real; begin i := Pos("x", s); if i = 0 then s := s + "x^0"; i := Pos("x", s); if i = 1 then begin s := "1" + s; i := 2; end; if i = Length(s) then s := s + "^1"; (**********************************************************************) {PARSE} i := 1; while s[i] <> "x" do i := i + 1; Val(Copy(s, 1, i - 1), r, e); a := trunc(r); Delete(s, 1, i + 1); Val(s, r, e); k := trunc(r); end; //Это основное!!! procedure InputPolynom(var p : TLink); var s, Mon : String; i, a, k : Integer; next_ : Boolean; begin Write("Input polynom:"); Readln(s); CheckRubbish(s); if s[1] = "-" then begin Delete(s, 1, 1); next_ := True; end else next_ := False; while s <> "" do begin i := 1; while not (s[i] in ["+", "-"]) do i := i + 1; Mon := Copy(s, 1, i - 1); {Monopolian} ParseMon(Mon, a, k); if next_ then a := -a; next_ := s[i] = "-"; AddToList(p, a, k); Delete(s, 1, i); end; end;

← →
Jeer © (2008-12-18 18:27) [1]

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

← →
Denis__ © (2008-12-18 18:31) [2]

Ну вот это
begin i := Pos("x", s); if i = 0 then s := s + "x^0"; i := Pos("x", s); if i = 1 then begin s := "1" + s; i := 2; end; if i = Length(s) then s := s + "^1";

Это добавление до вида ax^k каждого одночлена. Может надо было как-нибудь иначе действовать? Проще, возможно?

← →
Jeer © (2008-12-19 09:41) [3]

Надо понимать так, что a и k - произвольные целые числа и нужно любой из вариантов записи одночлена ( a, x, x^k, ax ) привести к виду ax^k, причем при отсутствии a или k они должны быть введены как "1", а при отсутствии x строка расширяется на "x^0" ?

← →
Denis__ © (2008-12-19 13:50) [4]

Да, именно так. Потом выполняются различные действия с многочленами - их сложение, перемножение, нахождение целых корней, вычисление производной по переменной х, и т.д. Структура, в которой хранится многочлен выглядит так
type TLink = ^TElem; TElem = record a, k : Integer; //т.е. а и k надо выделять в любом одночлене next : TLink; end;

Мой вопрос - целесообразно ли действовать так, как это делал я? Дополнять одночлены до вида ax^k? или можно было сделать проще?
И еще, возможно, есть какие-нибудь замечания по коду?

← →
han_malign © (2008-12-19 14:49) [5]

> Дополнять одночлены до вида ax^k? или можно было сделать проще?

offs:= 1; if( s[1] = "x" )then a:= 1 else val(s, a, offs);//декодирует значение и указывает на первый "неправильный" символ k:= 0 if(offs > 0)then begin//существет литера не относящаяся к цифрам коэффициента if(s[offs] <> "x")then//но она(литера) должна быть "x" exit{invalid format}; if( Length( s ) > offs )then begin//есть символы помимо "x" //должны быть "^" и как минимум одна цифра if((s[offs+1] <> "^") or (Length( s ) < offs+2{^d}))then exit{invalid format}; Delete(s, 1, offs+2); val(s, k, offs); if(offs <> 0)then//степень не является числом exit{invalid format}; end; end;

> И еще, возможно, есть какие-нибудь замечания по коду?

- канонически - в линейной алгебре - таки используют просто вектор ak, k = 0..N

Сейчас разберу, спасибо.

> - канонически - в линейной алгебре - таки используют просто
> вектор ak, k = 0..N

не очень понял, к чему это. Может поясните? )

Разобрался. Немного исправил. Не всегда корректно работало
procedure parse1(s : String; var a1,k1 : Integer); var a, k : real; offs, e : Integer; begin offs:= 1; if( s[1] = "x" )then a:= 1 else val(s, a, offs);//Помещает в а 0.0, если в строке есть х (*) k:= 0; if(offs > 0)then begin if s[1] <> "x" then val(Copy(s, 1, offs - 1), a, e); {пока не нашел, как иначе исправить (*)} if(s[offs] <> "x")then Error("invalid format"); if (Length( s ) > offs )then begin if((s[offs+1] <> "^") or (Length( s ) < offs+2))then Error("invalid format"); Delete(s, 1, offs+1); val(s, k, offs); if(offs <> 0)then Error("invalid format"); end else k := 1.0; end; a1 := trunc(a); k1 := trunc(k); end;

Многочлены Найти похожие ветки