Найти арифметическую сумму выражения - индекс выходит за пределы массива

@Кудинович · Регистрация: 10.02.2016

Студворк — интернет-сервис помощи студентам

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Program n4str100;
Var s,pod :String;
Var A:Array[1..10] of Integer;
Var i,x,x1,r,sum,p:Integer;
begin
Writeln('Введите арифмитическое выражение...');
Read(s);
i:=1;
repeat
p:=Pos('+',s);
If p<>0 then begin
pod:=Copy(s,1,p);
Delete(pod,p,1);
Val(pod,x,r);
A[i]:=x;
i:=i+1;
end;
until p=0;
i:=i-1;
Val(s,x1,r);
For i:=1 to i do sum:=sum+A[i];
Sum:=sum+x1;
Writeln('Сумма чисел равна = ',sum);
end.

@Mogobeast · 18.02.2016, 21:10

Какое именно арифметическое выражение?

@capricornus CF · 18.02.2016, 21:46

Кудинович, жаль что программа не знает о своем долге)).
Вы попробуйте трассировку сделать, ваша программа число до "+" пишет в массив А, в котором 10 элементов. И на попытке обратиться 11-й раз вылетает.

@Кудинович · 18.02.2016, 21:48 **[ТС]**

capricornus CF,
спасибо , разобрался. вот правильный вариант:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Var s,pod :String;
Var A:Array[1..10] of Integer;
Var i,x,x1,r,sum,p:Integer;
begin
Writeln('Введите арифмитическое выражение...');
Read(s);
i:=1;
repeat
p:=Pos('+',s);
If p<>0 then begin {Проверяем условие - остался ли знак +}
pod:=Copy(s,1,p-1);{копируем подстроку, исключая последний знак }
Delete(s,1,p);{удаляем из строки первое число и знак}
Val(pod,x,r);{преобразование строка-->число}
A[i]:=x;
i:=i+1; 
end;
until p=0;{если знаков больше нету-выход из цикла}
i:=i-1;{в цикле с пост условием при выходе счетчик больше на 1 }
Val(s,x1,r);{преобразуем последнее строковое представление числа}
For i:=1 to i do sum:=sum+A[i];
Sum:=sum+x1;
Writeln('Сумма чисел равна = ',sum);
end.

@capricornus CF · 18.02.2016, 22:00

Длину вводимой строки править не будем?

результатВведите арифмитическое выражение...
11111111111+11111111111
Сумма чисел равна = 0

@Кудинович · 19.02.2016, 16:52 **[ТС]**

capricornus CF, это ведь надо вводить int64???

@capricornus CF · 19.02.2016, 20:19

Я не знаю, у вас задача то какая? Если решение без длинной арифметики, то нужно проверять число разрядов вводимых. И массив A[] у вас всего на 10 единиц. Ставьте задачу будем наблюдать, помогать, думать, учиться))

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Mogobeast 8 / 8 / 4 Регистрация: 14.02.2016 Сообщений: 53
	18.02.2016, 21:10
	Какое именно арифметическое выражение? 0

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	18.02.2016, 21:46
	Кудинович, жаль что программа не знает о своем долге)). Вы попробуйте трассировку сделать, ваша программа число до "+" пишет в массив А, в котором 10 элементов. И на попытке обратиться 11-й раз вылетает. 1

@Кудинович 1 / 1 / 0 Регистрация: 10.02.2016 Сообщений: 43
	19.02.2016, 16:52 [ТС]
	capricornus CF, это ведь надо вводить int64??? 0

@capricornus CF 318 / 208 / 162 Регистрация: 08.12.2015 Сообщений: 863
	19.02.2016, 20:19
	Я не знаю, у вас задача то какая? Если решение без длинной арифметики, то нужно проверять число разрядов вводимых. И массив A[] у вас всего на 10 единиц. Ставьте задачу будем наблюдать, помогать, думать, учиться)) 0

Опции темы