Ошибка последовательного выполнения операторов

@PresAlexandr · Регистрация: 16.05.2009

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

Доброго времени суток!
Собственно, работаю с типизированным файлом. Произвожу поиск заданной записи, и если она найдена,редактирую её.
Ошибка в следующем: программа почему-то игнорирует оператор ввода переменной, продолжая работать по коду,
и поэтому алгоритм работает неправильно.
Код программы (место ошибки):

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
while not EOF(f) do
                  begin
                  Read(f, my_f);
                  if my_f.name=name then
                     begin
                     WriteLn;
                     Write(my_f.name);
                     Write('  ',my_f.firm);
                     Write('  ',my_f.colour);
                     WriteLn('  ',my_f.price);
                     {Ошибка здесь}
                     Write('   Otkorrektirovat'' zapis'' (y/n): ');
                     ReadLn;
                     Read(st1);
                    {Ошибка}
                     if st1='y' then
                        begin
                        n:=filepos(f);
                        Write('     Enter name: '); readln; readln(my_f.name);
                        Write('     Enter firm: '); readln(my_f.firm);
                        Write('     Enter colour: '); readln(my_f.colour);
                        Write('     Enter price: '); readln(my_f.price);
                        seek(f, FilePos(f)-1);
                        Write(f, my_f);
                        WriteLn('     Zapis'' otkorrektirovana!');
                        ReadLn;
                        end;
                     end;
                  end;

Что интересно: Если мы введем st1='y' - программа выполняется, но только как st1='n' - сначала выполняется, но при следующем проходе - происходит игнорирование.
Кто сталкивался, помогите советом!))

@Puporev · 16.05.2010, 21:49

Думаю это нужно в скобки

Pascal
1
2
3
4
5
6
7
8
if my_f.name=name then
                     begin
                     WriteLn;
                     Write(my_f.name);
                     Write('  ',my_f.firm);
                     Write('  ',my_f.colour);
                     WriteLn('  ',my_f.price);
                    end;

Добавлено через 1 минуту
естественно здесь

Pascal
1
2
3
4
ReadLn;
                        end;
                     end;
                  end;

1 end; убрать.

@PresAlexandr · 16.05.2010, 21:55 **[ТС]**

Puporev, спасибо!
Хотя я и нахожу это странным, но работает!))
Теперь возник вопрос: почему так работает? Ведь по сути, логика не меняется, последовательность операторов та же...

@Puporev · 16.05.2010, 22:15

Как раз меняется, скобки, они и в Африке скобки, например
2*2+2=6 а 2*(2+2)=8

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
while not EOF(f) do//внешний цикл чтения файла
 begin
  Read(f, my_f);
  if my_f.name=name then//первый вложенный оператор
    begin
     WriteLn;
     Write(my_f.name);
     Write('  ',my_f.firm);
     Write('  ',my_f.colour);
     WriteLn('  ',my_f.price);
    end;//закончили вывод, возвращаемся во внешний цикл
   Write('   Otkorrektirovat'' zapis'' (y/n): ');
   ReadLn;
   Read(st1);
   if st1='y' then//второй вложенный оператор
    begin
      n:=filepos(f);
      Write('     Enter name: '); readln; readln(my_f.name);
      Write('     Enter firm: '); readln(my_f.firm);
      Write('     Enter colour: '); readln(my_f.colour);
      Write('     Enter price: '); readln(my_f.price);
      seek(f, FilePos(f)-1);
      Write(f, my_f);
      WriteLn('     Zapis'' otkorrektirovana!');
      ReadLn;
    end;//закончили, во внешний цикл
  end;

@PresAlexandr · 16.05.2010, 22:28 **[ТС]**

Puporev, наши оба варианты верны.
Тут суть вот в чём: если запись найдена, то мы её можем редактировать, а можем и нет. Поэтому такие скобки у меня и вышли.
Я пробовал выполнять программу посредством F7, вот тут то наглядно и происходило моё чудо - пропуск оператора ввода!
Но Ваш способ помог, поэтому как будет свободное время попробую поэкспериментировать с этой ошибкой. О результатах отпишу.
Ещё раз, спасибо за помощь

!

Новые блоги и статьи Все статьи Все блоги /
Подстановка значения реквизита справочника в табличную часть документа Maks 10.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: при выборе сотрудника (справочник Сотрудники) в ТЧ документа. . .	Очистка реквизитов документа при копировании Maks 09.04.2026 Алгоритм из решения ниже применим как для типовых, так и для нетиповых документов на самых различных конфигурациях. Задача: при копировании документа очищать определенные реквизиты и табличную. . .	модель ЗдравоСохранения 8. Подготовка к разному выполнению заданий anaschu 08.04.2026 https:/ / github. com/ shumilovas/ med2. git main ветка * содержимое блока дэлэй из старой модели теперь внутри зайца новой модели 8ATzM_2aurI	Блокировка документа от изменений, если он открыт у другого пользователя Maks 08.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в конфигурации КА2. Задача: запретить редактирование документа, если он открыт у другого пользователя. / / . . .
Система безопасности+живучести для сервера-слоя интернета (сети). Двойная привязка. Hrethgir 08.04.2026 Далее были размышления о системе безопасности. Сообщения с наклонным текстом - мои. А как нам будет можно проверить, что ссылка наша, а не подделана хулиганами, которая выбросит на другую ветку и. . .	Модель ЗдрввоСохранения 7: больше работников, больше ресурсов. anaschu 08.04.2026 работников и заданий может быть сколько угодно, но настроено всё так, что используется пока что только 20% kYBz3eJf3jQ	Дальние перспективы сервера - слоя сети с космологическим дизайном интефейса карты и логики. Hrethgir 07.04.2026 Дальнейшее ближайшее планирование вывело к размышлениям над дальними перспективами. И вот тут может быть даже будут нужны оценки специалистов, так как в дальних перспективах всё может очень сильно. . .	Горе от ума kumehtar 07.04.2026 Эта мне ментальная установка, что вот прямо сейчас, мол, мне для полного счастья не хватает (нужное вписать), и когда я этого достигну - тогда и полный кайф. Одна из самых сильных ловушек на пути. . . .

@PresAlexandr 43 / 43 / 16 Регистрация: 16.05.2009 Сообщений: 372
	16.05.2010, 21:55 [ТС]
	Puporev, спасибо! Хотя я и нахожу это странным, но работает!)) Теперь возник вопрос: почему так работает? Ведь по сути, логика не меняется, последовательность операторов та же... 0

@PresAlexandr 43 / 43 / 16 Регистрация: 16.05.2009 Сообщений: 372
	16.05.2010, 22:28 [ТС]
	Puporev, наши оба варианты верны. Тут суть вот в чём: если запись найдена, то мы её можем редактировать, а можем и нет. Поэтому такие скобки у меня и вышли. Я пробовал выполнять программу посредством F7, вот тут то наглядно и происходило моё чудо - пропуск оператора ввода! Но Ваш способ помог, поэтому как будет свободное время попробую поэкспериментировать с этой ошибкой. О результатах отпишу. Ещё раз, спасибо за помощь! 0