Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Задачи _ Многочлены

Автор: Jimmy 21.06.2007 1:27

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

Автор: Jimmy 21.06.2007 2:56

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

Код
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 21.06.2007 3:15

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) это чтобы результаты шли подряд, а не через какие-то интервалы... Зачем тебе вкрапления нулей в массиве данных?