[poli-smen]

Сообщение от SHIFT999

Ага, я тоже так подумал, так что вот, вроде работает:

Код:

x := min;
    while x < max do
    begin
      s := formula;
      for i := Length(s) downto 1 do
        if s[i] = 'x' then
        begin
          if s[i+1] = 'p' then
            break;

Только наверное не "break", а "continue", иначе такая формула не посчитается: 'x + exp(x)'