Сейчас обсуждают

[MotoArhangel]

Сижу не могу сообразить как реализовать на паскале.
Есть, допустим многочлен вида:

-7x^4-8x^2-1x-9

Его необходимо запихнуть в массив в виде

-9
-1
-8
0
-7

Вот нарисовал, а сообразить не могу =) Это если посимвольно строку считывать


Могу финансово отблагодарить если кто поможет=)

Сообщение отредактировал MotoArhangel - 27.5.2014, 1:11

[MotoArhangel]

В чем ошибка? Почему в строка при записи пустая?

» Спойлер (нажмите, чтобы прочесть) «

Код

procedure inputPoly(line: integer; str:string);
var
  i,x,k: integer;
  s:string;
begin
  //обнуляем массив
  for i:=0 to maxpower do
    koeff[i, line] := 0;
  k:=0;
  //от 1 до длины строки
  for i := 1 to Length(str) do
    //если символ в строке
    case str[i] of
     '0'..'9':
        begin
          //если еще не было Х записываем число
          if x=0
            then s:=s+Str[i]
          else
           // if s<>'' then
            begin
              //Записываем в массив S в строку номером = степени
              koeff[strtoint(str[i]), line]:= strtoint(s);
              s:='';
              x:=0;
            end;
        end;
     'x','X':
       begin
         x:=1;
       end;
     '^':
       begin

       end;
     '+','=':
       begin
         // Если минус записываем в строку второе условие для множетеля с x^1
         if (str[i]='-') and (x<>1)
           then s:=s+Str[i]
         else
          // if s<>'' then
           begin
             //запись для множетеля с x^1
             koeff[1, line]:= strtoint(s);
             s:='';
             x:=0;
            // s:=s+Str[i];
           end;
       end;
    end;
end;      

Сообщение отредактировал MotoArhangel - 27.5.2014, 17:18

[mephisto]

Ну во-первых — паскаль. Во-вторых — в строке «'+','=':» должен быть минус, а не знак равенства. Наверное, это не всё.

[MotoArhangel]

Ну во-первых — паскаль.

Я против паскаля ничего не имею=)

Во-вторых — в строке «'+','=':» должен быть минус, а не знак равенства. Наверное, это не всё.

А вот насчет знака правильно, подумал что в глазах двоится=)

Сообщение отредактировал MotoArhangel - 27.5.2014, 17:24

[MotoArhangel]

Так и не отписался=) Теперь работает=)

» Спойлер (нажмите, чтобы прочесть) «

Код

procedure inputPoly(line: integer; str:string);
var
  i,x,k: integer;
  s:string;
begin
  //обнуляем массив перед записью
  for i:=0 to maxpower do
    koeff[i, line] := 0;

  // обнуляем на всякий случай
  k:=0;
  x:=0;
  s:='';

  //от 1 до длины строки
  for i := 1 to Length(str) do
    //если символ в строке
    case str[i] of
     '0'..'9':
        begin
          //если еще не было Х записываем число в строку
          if x=0
            then s:=s+Str[i];

          // Если был x и ^ тогда
          if (x=1) and (k=1) then
            begin
              //Записываем в массив S в строку номером = степени
              koeff[strtoint(str[i]), line]:= strtoint(s);
              s:='';
              x:=0;
              k:=0;
            end;

         // Если конец строки записываем число
         if (i=Length(str))
           then koeff[0, line]:= strtoint(s);
        end;
     'a'..'z','A'..'Z':
       begin
         //встретили x
         x:=1;
         // если просто x или -x добавляем 1
         if (s='') or (s='-')
           then s:=s+'1';

         // Если x последний в строке
         if i=Length(str)
           then
             begin
               koeff[1, line]:= strtoint(s);
               s:='';
               x:=0;
               k:=0;
             end;
       end;
     '^':
       begin
         //Встретили ^
         k:=1;
       end;
     '*':
       begin
        //он есть, но мы его не учитываем
       end;
     '+','-':
       begin
         // Если был x но небыло ^
         if (x=1) and (k=0)
           then
             begin
               koeff[1, line]:= strtoint(s);
               s:='';
               x:=0;
               k:=0;
             end;

         // Если минус записываем в строку
         if (str[i]='-')
           then s:=s+Str[i];
       end;
    end;
end;

Может предложения будут по улучшению, так ради интереса=)

Сообщение отредактировал MotoArhangel - 27.5.2014, 17:41

[MotoArhangel]

А вот итог.
 __________.zip ( 874.59 килобайт ) Кол-во скачиваний: 21

[mail80]

Сижу не могу сообразить как реализовать на паскале.
Есть, допустим многочлен вида:

-7x^4-8x^2-1x-9

Его необходимо запихнуть в массив в виде

-9
-1
-8
0
-7

а 0 записываем потому что нет x^3? встречаось подобное там были степени 1,2,4,8. Так ради интереса спросил

[MotoArhangel]

а 0 записываем потому что нет x^3? встречаось подобное там были степени 1,2,4,8. Так ради интереса спросил

да. ноль просто остается после обнуления массива=) и в это место нет записи..

Сообщение отредактировал MotoArhangel - 28.5.2014, 20:24