Строковая последовательность

[Powerslave]

Дана строка, изображающая арифметическое выражение вида "<цифра>+
(-)<цифра>+(-)...+(-)-<цифра>, где на место операции "+(-)" нахоится символ "+" или "-" (например, "4+7+2+8). Вывести значение данного выражения(целое число). Вчера весь день думал и сегодня в универе, но что то немогу я сделать(.

[Serge_Bliznykov]

<цифра>+(-)<цифра>+(-)...+(-)-<цифра>

именно цифра? Не число?
Так это же элементарщина тогда:

begin
  Readln(s);
  Rezultat := 0;
  Znak := '+'; {первое число будем добавлять к результату}
  for i:=1 to length(s) do  begin
     if s[i] in ['0'..'9'] then begin
       if Znak='+' then Rezultat := Rezultat + (ord(s[i])-ord('0'))
       else {значит знак минус} Rezultat := Rezultat - (ord(s[i])-ord('0'));
     end
     else begin {если не цифра, значит должен быть знак }
       if s[i] in ['+','-'] then Znak := s[i]
       else begin
         Writeln('обнаружен необрабатываемый символ в ',i,'-й позиции');
         Halt(1); {выход из программы}        
       end
     end;
  end;
  writeLn('Результат: ', Rezultat);
  readln;
end.

[Powerslave]

Да, именно цифра

[Powerslave]

почему тут так? Rezultat + (ord(s[i])-ord('0')). Почему именно символ '0'?

[Риндера]

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

почему тут так? Rezultat + (ord(s[i])-ord('0')). Почему именно символ '0'?

Операция (ord(s[i])-ord('0') дает нам в результате саму цифру. То есть при вычитании кода '0' из кода символа-цифры в s[i].

[Serge_Bliznykov]

это для того чтобы символ преобразовать в число.
например, берём символ '1'. код у него 49 (шестнадцатиричный код 31)
чтобы из этого кода получить 1 (число единица)
нужно отнять код символа ноль '0' (у символа '0' десятичный код 48)
если из кода символа 49 отнять код символа с кодом 48 получим ЕДИНИЦУ.
То же справедливо и для всех других символов с цифрами, т.к. они в любой кодовой таблице стоят строго по порядку.

если такой подход не нравится, можете воспользоваться функцией VAL()
просто ещё одна строчка кода и пара переменных добавится...