Работа со строками Опции

[PavelM]

Добрый день!
Подскажите пожайлуста как это оформить(решить задачку)?
сама задача:
Дана цепочка символов вида "число1+число2*число3". Вычислить числовое значение выражения и напечатать.

цепочка вводится с клавиатуры (строка2+3*5), необходимо сначало определить 1-ю переменную, знак вычисления, 2-ю переменную, знак, 3-ю, и вычислить.на 2 числа вроде работает, а на 3 не хочет.
заранее благодарен.

[Client]

uses crt;
var
   a,b,c,k:integer;
   d:longint;
   s:string;
begin
     clrscr;
     readln(s);
     while pos(' ',s)>0 do delete(s,pos(' ',s),1); // удаляем пробелы
     writeln(s);
     val(copy(s,1,pos('+',s)-1),a,k); // если хочешь, то можешь отслеживать ошибки
     delete(s,1,pos('+',s));
     val(copy(s,1,pos('*',s)-1),b,k);
     delete(s,1,pos('*',s));
     val(s,c,k);
     writeln(a,' ',b,' ',c); //это, так, для проверки
     writeln(a+b*c);
     readkey
end.

Так же можешь проверить если '+' находится после '*', то выдать сообщение об ошибке или

writeln(a*b+c);

но это уже как хочешь

Сообщение отредактировано: Client - 19.03.2008 7:13