Заполнение массива цифрами со знаком

[proser93]

Здравствуйте! Требуется написать программу: "Дана последовательность символов d1+-d2+-d3+-...+-dn (каждое di - цифра, n>1), которая заканчивается точкой. Найти данную алгебраическую сумму."
Язык программирования: Паскаль.
Почему хочу создать массив - так как цифр может быть довольно много, возможно переполнение, но конечная сумма может входить в допустимый диапазон, то есть мне нужно считывать с клавиатуры символ (естественно с проверкой на правильные входные данные), и записывать в массив с соответствующим знаком (+или-), затем отсортировать массив так, чтобы в нем чередовались элементы со знаком + и -, и посчитать сумму.
Поможете мне с написанием такой программы? Я новичок, и плохо знаю синтаксис Паскаля. Заранее спасибо!)

[Stilet]

затем отсортировать массив так, чтобы в нем чередовались элементы со знаком + и -, и посчитать сумму.

Зачем? от перестановки слагаемых сумма не меняется.
Фтопку массив, считай сумму по мере ввода чисел, и по барабану как они идут.

[proser93]

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

[Stilet]

частичная сумма

Тоесть? Что имеется ввиду?

[proser93]

К примеру есть сумма 8+7-6 = 9, есть частичная сумма, равная 8+7=15, а ограничение стоит на 10, и получается, что вся сумма попадает в допустимый диапазон (<=10 в нашем случае), а частичная сумма 15 - не попадает, и возникает переполнение, и вся сумма посчитается неправильно.
А если чередовать цифры с разными знаками, то можно привести нашу сумму к такому виду: 8-6+7=9, при этом любая сумма первых n слагаемых <=10
как-то так)

[Stilet]

А-а-а...
Ну пипец задача...
М.м.м. Я даже не знаю, но ИМХО я бы делал два массива - один для положительных другой для отрицательных, сортировал их оба, и уже из обоих выбирал бы по очереди.

[Serge_Bliznykov]

а ограничение стоит на 10

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


p.s. ну, ладно 8+7-6=9 c ограничением 10. а как Вы вычислите, если будет 8-1+9 - ничего, никаких "переполнений" частичной суммы не будет?!


p.p.s. а так, согласен с Виталием - отсортировать числа по модулю и брать одно положительное - одно отрицательное...

[proser93]

ограничение 10 - немного преувеличил) и кстати насчет 8-1+9 легко, ведь частичная сумма тут одна - 8-1, равная 7 - все нормально))) (частичная сумма НЕ первых n слагаемых меня не интересует - ведь сложение идет последовательно слева направо)
ограничение - Maxint, т.к. цифр может быть очень много, и много подряд с одним знаком.
вот что написал, забив на это ограничение, но использовал строку:

program Project1;

uses
    Crt;
const
    N=['0'..'9'];
label 11;
var
    s:string;
    i,sum,t,c:integer;
    quit:integer;
begin
    quit:=0;
    repeat
    begin
11:
writeln('Hello, press "q" to quit, other button to continue');
 if readkey()='q' then quit:=1;
 writeln('Enter summ:');
repeat readln(s) until s[length(s)]='.';
val(s[1],t,c); sum:=t;
if s[1] in N then
for i:=2 to length(s)-1 do
  begin
    if (s[i] in N)and(s[i-1]='+')then
       begin
          val(s[ i ],t,c);
          sum:=sum+t;
       end
    else if (s[ i ] in N)and(s[i-1]='-')then
       begin
          val(s[ i ],t,c);
          sum:=sum-t;
      end
      else writeln('Wrong symbol in string:'); goto 11
  end
  else writeln('Wrong symbol in string'); goto 11;
writeln('sum=',sum);
quit :=1;
end
until quit=1;
writeln('Press Enter to quit');
readln;
end.

Возникли следующие проблемы: надо избавиться от goto, а так же я не могу разобраться, из-за чего программа не выходит при нажатии "q", хотя вроде цикл такой, какой нужно... и если так нельзя, тогда как, не используя метки, описать вышеизложенное?

[proser93]

Тема закрыта, т.к. прогу написал