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