Файлы Опции

[Emerson]

Ребят,помогите решить задачу по файлам(лекции не было,а задачу дали).Дан файл,содержащий текст и арифмитическое выражение вида axb,где x один из знаков +.-.*./. Выписать все арифмитические выражения и вычислить их значения

[volvo]

type
  charset = set of char;

function pos_ex(chars: charset; s: string; start: integer): integer;
var i: integer;
begin
  pos_ex := 0;
  for i := start + 1 to length(s) do
    if s[i] in chars then begin
      pos_ex := i; exit;
    end;
end;

var
  f: text;
  s: string;
  p, start: integer;

begin
  assign(f, 'arit_ex.txt');
  reset(f);

  while not eof(f) do begin
    readln(f, s);
    writeln(s);

    start := 1;
    repeat

      p := pos_ex(['+', '-', '*', '/'], s, start);

      if p <> 0 then begin
        start := p;
        writeln('p = ', p, ' s[p] = ', s[p]);
      end;

    until p = 0;
  end;
  close(f);
end.

Этот кусок читает файл построчно, и ищет все заданные символы операций... (Тестировалось на

this is an example of file
it contains 12+126 and 45*15 expressions

) Тебе осталось от позиции P пройти по строке вперед и назад, пока встречаются ЦИФРЫ (не забывая контролировать выход за пределы строки, конечно), так ты выделишь нужные выражения... Ну, а потом вырезаешь их, передаешь для вычисления в другую функцию (в поиск, по слову Интерпретатор, там есть то, что тебе нужно), и продолжаешь искать в строке следующие вхождения операций...

Пробуй, что не получится - поможем...