Решение мат. выражений, из файла. Delphi7

[savraska]

Из файла считываются математические выражения, записанные через точку с запятой. Программа должна выводить результат, записанный через точку с запятой соотвественно.Проблемы с считыванием.

[_-Re@l-_]

Ваш код не смотрел, но можно считывать так(если могут быть только знаки +,-, *,/)

readln(f,s);
ch:='';i:=0;
while (copy(s,i,1)<>'+') or (copy(s,i,1)<>'-')
     or(copy(s,i,1)<>'*') or (copy(s,i,1)<>'/') do
begin
       i:=i+1;
      ch:=ch+copy(s,i,1);
end;

Вот можно считывать первое число. Далее просто: к i прибавляете единицу, считываете из строки s следующий символ(это и будет знак выражения), а далее наподобии моему циклу(только пока символ не равен точке с запятой) считываете следующий символ.
Ах, да. Не забудьте потом преобразовать получившиеся строковые числа в числа.

[Serge_Bliznykov]

savraska, совет хотите?
Вот здесь я выкладывал пример Unit'а, который считает математические выражения на Pascal. Поддерживаются все математические выражения + приоритет операций + скобки. фактически там парсер математических выражений. Возьмите его. Вашу входную строчку разбивайте по if Pos(';',s) > 0 then sMath := Copy(s,1,Pos(';',s)) и вызывайте функцию расчёта. (кстати, она и ошибки возвращает, если строка с ошибками.) результат записывайте в файл. всё. делов на 15 минут!

[260526052605]

э... _-Re@l-_ , а зачем так парится? разве так не проще:

readln(f,s);
ch:=''; i:=0;
while not (s[i] in ['+','-','*','/']) do
begin
      Inc(i);
      ch:=ch+s[i];
end;

зачем использовать Copy для одного символа?

[phomm]

В rxLib есть компонент TrxMathParser