чтение из файла математического выражения

[Student1992]

добрый день, в файле имеется математическое выражение, типа 1+2-3+4 и так далее.
При попытке считать его и сразу же найти выражение программа вылетает, при попытке считать посимвольно. столкнулся с проблемой, что число например 123 считывается отдельно, т.е. по цифрам 1 потом 2 потом 3

program filereader;
uses crt;
var
f:text;
file_symbol:char;
sum,number:integer;
begin
     assign(f,'1.txt');
     reset(f);
     while not eof(f) do begin
            read(f,file_symbol);
            writeln(file_symbol);

     end;
end.

была идея считать строку и дальше ее разбирать, но как-то не очень.

program filereader;
uses crt;
var
f:text;
file_string,help_string:string;
number,sum,i:integer;
begin
assign(f,'1.txt');
reset(f);
read(f,file_string);
for i:=1 to length(file_string) do
begin
     if (file_string[i]<>'+') and (file_string[i]<>'-') then begin help_string:=help_string+file_string[i]; end;
end;
writeln(help_string);
end.

кто как решал данную задачу?

[TinMan]

Если у тебя в выражении могут быть только целые и только + и -, то можно как-то вот так сделать

s:= 0;
a:= 0;
z:= 1;
while not EoL do begin
  read(c);
  case c in
    '0'..'9': a:= a*10+Ord(c)-48;
    '-': z:= -1;
    '+': begin
      s:= s*10+a*z;
      a:= 0;
      z:= 1
    end;
    ' ':;
    else begin
      writeln('character "',c,'" is not permitted');
      halt
    end
  end
end;
s:= s+a*z;
writeln(s);

[Student1992]

  case c in
    '0'..'9': a:= a*10+Ord(c)-48;
    '-': z:= -1;
    '+': begin
      s:= s+a*z;
      a:= 0;
      z:= 1
    end;
    ' ':;
    else begin
      writeln('character "',c,'" is not permitted');
      halt

т.е. вы тут получив символ смотри число это или нет, а дальше уже прибавляете его к сумме?
И еще вопрос, тогда как он отреагирует например на число 5162?

[TinMan]

Я извиняюсь, посмотрел сейчас и нашел ошибку. s перед сложением надо домножать на 10 (исправлено).
Теперь должен нормально отреагировать.

[Student1992]

извините, а какого типа переменная с
и что это за конструкция:

while not EoL do begin
  read(c);

я просто не видел еще такого)

[TinMan]

Упс! Еще одна ошибка.. Не EoL, а EoLn. Извиняюсь, исправил выше.

В данном случае c имеет тип char (символьный).

var
  c: char;

EoLn(f) - End of Line, это функция, которая возвращает true, когда при чтении текстового файла f достигнут конец очередной строки (чтобы перейти на следующую, надо употрелить readln(f)). Она находится в модуле System, так что не требует подключения модуля (модуль System всегда подключен). Если она вызвана без скобок (как в этом случае), то подразумевается стандартный ввод (клавиатура). Она аналочична функции EoF (потому я и забываю постоянно последнюю буковку)).

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