Строки, вычисление выражения Опции

[vovka239]

Помогите пожалуйста решить задачу:
Дана последовательность литер, имеющая следующий вид: +-d1+-d2+-d3+-dn(где di - цифра от 0 до
9). Последовательность заканчивается знаком "=". Вычислить значение алгебраической суммы.
С чего надо начать? Я вообще не въезжаю Дотянул до последнего дня, ещё и спать охота...

[vovka239]

Замени
read(s[i]);
на
readLn(s[i]);

Заменил, всё-равно не пашет. Запускаю программу, Ввожу "+", жму интер, оно мне выдаёт 0, снова "+" или "-", интер и всё, закрывается...

[Lapp]

Заменил, всё-равно не пашет. Запускаю программу, Ввожу "+", жму интер, оно мне выдаёт 0, снова "+" или "-", интер и всё, закрывается...

Моя ошибка, извини. Я не заметил, что ты читаешь посимвольно. Нужно не
ReadLn(s[i]);
, а вот так:
ReadLn(s);
- то есть ты должен читать всю строку сразу, а не по одному символу.

Теперь твои ошибки.. Одну уже сказал, вторая, видимо, вытекает из нее. При вводе нужно набирать всю строку - энтер нужно нажимать один раз в самом конце строки (и еще один раз после вывода результата). То есть ты вводишь:

+2+5-4+3-1= (и жмешь энтер)

Получаешь:

5

Жмешь энтер еще раз, чтобы выйти из проги.

Строка всегда должна начинаться со знака (+ или -), содержать только однозначные числа и заканчиваться знаком "=".

Вот тебе на всякий случай полный код, без излишеств и правильно отформатированный.

program Project2;
var
  i,m: integer;
  s: string;
begin
  m:=0;
  i:=1;
  Write('Vvedite s: ');
  ReadLn(s);
  while (i<=Length(s))and(s[i]<>'=') do begin
    if s[i]='+' then m:=m+Ord(s[i+1])-48 else m:=m-Ord(s[i+1])+48;
    i:=i+2;
  end  ;
  Writeln(m);
  readln;
end.

Успехов.