Программа перестает работать правильно, если более одного раза используются директивы компилятора {$I-+}

@mlechway · Регистрация: 29.04.2011

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

Первый пост на форуме)
Начал на досуге изучать паскаль. Пытаюсь написать простенькую программку, которая складывала бы два числа. Решил еще до кучи организовать проверку вводимых значений с помощью директив компилятора, чтобы избежать критических вылетов. И тут всплыла проблема: если в программе такая проверка делается более одного раза, то программа начинает вести себя неадекватно, точнее нештатно завершается, если после запроса на повторение вычисления было введено численное значение. В чем моя ошибка?

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
program example;
var
x,y,s:integer;
ch:char;
label 1;
begin
1:
repeat
writeln('Введите значения X и Y');
{$I-}
readln(x,y);
{$I+}
if ioresult<>0 then
begin
writeln('Обнаружены недопустимые значения переменных');
goto 1;
end
else
begin
s:=x+y;
writeln('Сумма x+y=',s);
end;
repeat
writeln('Повторить вычисление (Y/N)?');
{$I-}
readln(ch);
{$I+}
i:=ioresult;
if i<>0 then
writeln('Введите буквенное значение!');
until i=0
until upcase(ch)<>'Y';

@Puporev · 29.04.2011, 20:48

Просто поправил ошибки, все работает, не понял о чем Вы.

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
program example;
var
x,y,s,i:integer;
ch:char;
label 1;
begin
1:
repeat
writeln('Введите значения X и Y');
{$I-}
readln(x,y);
{$I+}
if ioresult<>0 then
begin
writeln('Обнаружены недопустимые значения переменных');
goto 1;
end
else
begin
s:=x+y;
writeln('Сумма x+y=',s);
end;
repeat
writeln('Повторить вычисление (Y/N)?');
{$I-}
readln(ch);
{$I+}
i:=ioresult;
if i<>0 then
writeln('Введите буквенное значение!');
until i=0
until upcase(ch)<>'Y';
end.

Кстати, попытка проверять таким образом буквы,
то глупость, Паскалю все равно символ А или 5, все равно символ.

@mlechway · 29.04.2011, 20:58 **[ТС]**

Сообщение от Puporev

Просто поправил ошибки, все работает, не понял о чем Вы.

В том-то и дело, что не работает. У меня получается так: выводится сообщение "Повторить вычисление (Y/N)?", отвечаю, например, 8 - и программа завершает работу.
Или тут дело в том, что при вводе цифры программа считает, что выполнилось условие выхода из цикла?

@Puporev · 29.04.2011, 21:20

Сообщение от mlechway

отвечаю, например, 8 - и программа завершает работу.

А что ты хочешь? программа продолжается только при условии ch='Y'
иначе выход

Pascal
1
until upcase(ch)<>'Y';

@mlechway · 29.04.2011, 23:04 **[ТС]**

Сообщение от Puporev

А что ты хочешь? программа продолжается только при условии ch='Y'
иначе выход

Pascal
1
until upcase(ch)<>'Y';

Не по теме:

Я начал вникать буквально позавчера, хочу разобраться, что оно да как.

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .