Программа выдает разный результат при работе в обычном режиме и в режиме отладки

@Zombfs · Регистрация: 20.12.2018

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

Здравствуйте. По заданию необходимо: записать одномерный символьный массив, таким образом, что в нем будут находится 'строки' разделенные знаком пробел и найти определенный символ 'x'. Те строки, в которых он был найден, необходимо соединить с предыдущей строкой т.е. убрать пробел. У меня в программе имеются два массива (один исходный, который не меняется, второй должен содержать результат работы программы). Проблема заключается в том, что программа, при запуске в обычном режиме выдает один результат, а при запуске в режиме отладки - другой. (точка является признаком конца текста)

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
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
var
  k, j, i: integer;
  m, y, q: char;
  x:array[1..100] of char;
  u:array[1..100] of char;
 
procedure gor(var r: integer);
var
  t, k: integer;
  f: boolean;
begin
  f := false;
  t := r + 2;
  repeat
    if x[t] = y then f := true;
    t := t + 1;
  until (f = true) or (x[t] = m) or (x[t] = q);
  if f = true then
    r := r + 1;
end;
 
begin
  m := ' ';y := 'x';q := '.';
  j := 1;
  read(x[j]);
  while (x[j] <> q) do
  begin
    j := j + 1;
    read(x[j]);
  end;
  writeln('Исходный массив');
  for k := 1 to (j - 1) do
    write(x[k]);
  writeln;
  writeln('Результат');
  j := 1;
  repeat
    u[j] := x[j];
    if (x[j + 1] = m) then  gor(j);
    j := j + 1;
  until(x[j] = q);
  writeln(j);
  writeln(u[6]);
  for i:=1 to j do 
  write(u[i]);
  writeln;
  writeln(i);
end.

Окно вывода при работе программы в обычном режиме: (Первый вариант работы)
fen lax de pex m na pox.
Исходный массив
fen lax de pex m na pox
Результат
24
a
fen

Окно вывода при работе программы в режиме отладки: (Второй вариант работы)
fen lax de pex m na pox.
Исходный массив
fen lax de pex m na pox
Результат
24
a
fenlax depex m napox
24

Как видно результат разный. В первом варианте при запросе в программе вывода 6-го элемента массива 'u', он показывает, что этим элементом является 'a' Более того в первом варианте программа не только не закончила вывод массива, но и пропустила 47-ую строку, а перед выводом массива, когда программа выводит переменную 'j', показывает нам, что эта переменная имеет значение 24 и значит, что цикл for в 44-ой строке должен был отработать 24 раза. (наличие процедуры обязательно, но по правде, если ее занести в основную программу, то ничего не изменяется, уже проверял)

Решение задачи ненужно. Просто укажите на причину возникновения такой проблемы

@Sun Serega · 20.12.2018, 03:02

Да, воспроизводится. Сейчас поищу что не так.

Добавлено через 7 минут
Дело в неправильных знаках, они ломают IDE.

Вот, к примеру, знак chr(0) или просто #0 - это неправильный знак, в юникоде он значит что что то пошло не так. Ну и по совместительству это значение по-умолчанию, оно присваивается всем элементам вашего массива до того как вы им присвоите что то ещё:

Pascal
1
2
3
4
5
6
7
begin
  var a := Arr(#65,#0,#65);
  foreach var ch in a do
    write(ch);
  writeln;
  writeln(a.Length);
end.

В режиме отладки программу ставит на паузу и IDE успевает быстрее опомнится от поломки, поэтому в режиме отладки выводит всё что должно.

@Zombfs · 20.12.2018, 03:08 **[ТС]**

Благодарю

@Sun Serega · 20.12.2018, 03:11

Вот тут можно следить за процессом исправления этого бага IDE:
https://github.com/pascalabcne... ssues/1608

Новые блоги и статьи Все статьи Все блоги /
Автозаполнение реквизита при выборе элемента справочника Maks 27.03.2026 Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. При выборе "Спецтехники" (Тип Справочник. Спецтехника), заполняется. . .	Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Программный код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита,. . .	Команды формы и диалоговое окно Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". Программный код из решения ниже на примере нетипового документа "ЗаявкаНаРемонтСпецтехники" разработанного в конфигурации КА2. В качестве источника данных. . .
Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .	Отправка уведомления на почту при создании или изменении элементов справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной записи электронной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .

@Zombfs 1 / 0 / 1 Регистрация: 20.12.2018 Сообщений: 10
	20.12.2018, 03:08 [ТС]
	Благодарю 0

@Sun Serega 2355 / 1458 / 526 Регистрация: 07.04.2017 Сообщений: 4,798
	20.12.2018, 03:11
	Вот тут можно следить за процессом исправления этого бага IDE: https://github.com/pascalabcne... ssues/1608 0