Многочлены, Помогите с функцией Опции

[Jimmy]

Пожалуйста помогите написать функцию, которая осуществляет форматный ввод\вывод многочленов, те например пользователь вводит многочлен: 3*x^2+4*x^7 а функция создает два динамических массива со степенями и с коэффициентами, 3 4 и 2 7 соответственно. Также и в обратную сторону. Заранее благодарен.

[Jimmy]

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

Код

program formvvod;
const n=20;
type tmas=array[1..n] of real;
procedure readp(s:string; var a:tmas);
const lim=['*','+','x','^'];
var i,j,k,fk,code:integer; v:real; m:string; fl:boolean;
begin
k:=length(s);
m:='';
j:=1;
           for i:=1 to k do begin
               while not(s[i] in lim) and (i<=k) do begin
                     m:=m+s[i];
                     inc(i);
                     end;
                     val(m,v,code);
                     a[j]:=v;
                     inc(j); m:='';
                     end;
end;
var ss:string;
    ob:tmas;
    i:integer;
begin
     writeln('Vvedi mnogochlen ');
     readln(ss);
     readp(ss,ob);
     writeln('Vid');
     writeln;
     for i:=1 to n do
     write(ob[i]);
     readln;
end.

помогите пожалуйста, буду очень благодарен, можно даже со статикой)

[volvo]

program formvvod;
const n=20;
type tmas=array[1..n] of real;
procedure readp(s:string; var a:tmas);
const lim=['*','+','x','^'];
var i,j,k,fk,code:integer; v:real; m:string; fl:boolean;
begin
k:=length(s);
m:='';
j:=1;

  i := 1;
  while i <= k do begin { Здесь нельзя делать цикл FOR - см. ниже }
    while (i <= k) and not(s[i] in lim) do begin
      m:=m+s[i];
      inc(i);
    end;

    if m <> '' then begin { <--- не обрабатываем пустые строки }
      val(m,v,code);
      a[j]:=v;
      inc(j); m:='';
    end;
    inc(i);
  end;

end;
var ss:string;
    ob:tmas;
    i:integer;
begin
     writeln('Vvedi mnogochlen ');
     { readln(ss);}
     ss := '3*x^2+4*x^7';
     readp(ss,ob);
     writeln('Vid');
     writeln;
     for i:=1 to n do
     write(ob[i]:5:2);
     readln;
end.

1) цикл FOR неприменим, потому что при его использовании значение i не должно изменяться никоим образом внутри цикла, а у тебя оно изменяется, что приводит к неправильной работе программы... Заменяем его на While (не забываем вручную увеличивать i в конце цикла)

2) это чтобы результаты шли подряд, а не через какие-то интервалы... Зачем тебе вкрапления нулей в массиве данных?