Учебно-методическое пособие. Алматы, 2017 ббк

2.6. УЛУЧШЕННЫЙ КАЛЬКУЛЯТОР (ПРОДОЛЖЕНИЕ)

2.6.1. Оператор цикла с постусловием (проверка на ноль)

Вернемся к программе калькулятор. Загрузите ее в интегрированную среду ВР и запустите на выполнение. В качестве исходных данных введите следующие данные:

Число1 – 5;

Знак действия - *;

Число2 – 0.

В результате работы программы будет 0. Действительно, если любое число умножить на ноль в результате получим ноль. Опять запустим программу, но теперь вместо действия умножения предложим программе произвести деление.

Программа выдаст сообщение об ошибке. Действительно делить на ноль нельзя. Что же делать?

Конечно, можно вывести предупреждение в процедуру Init , например

begin

Readln(Chislo1);

Writeln('Insert Znak');

Readln(Znak);

Writeln('Insert chislo 2');

Readln(Chislo2);

{проверка возможности деления на ноль}

If (Znak=’/’) and (Chislo2=0) then

begin

Writeln(' chislo 2=0,Insert chislo 2<>0');

end;

Обратите внимание, что для того чтобы программа вывела на экран и предупреждение, и попросила повторить ввод второго числа, эти два действия помещены в операторные скобки:

begin

. . . . . . .

Это позволяет интерпретировать группу операторов как один оператор. Такие операторы называются составными. Операторными скобками мы определяем иерархию (порядок) выполнения действий.

Хорошо если попадется добросовестный пользователь и введет число неравное 0, а если нет? Увы, программа опять покажет ошибку. Как быть? Что нужно сделать, что бы защитить нашу программу?

Понятно, что программа должна в случае с делением повторять ввод данных пока второе число не будет равно 0. Сколько раз программа должна попросить повторить ввод данных, мы заранее незнаем. Но, по крайней мере, хотя бы один раз она должна запросить ввести второе число. Таким образом, мы должны использовать:

а) цикл с нефиксированным количеством действий;

б) цикл с пост условием.

Repeat

Действие 1;

Действие 2;

. . . . . . .

Действие N;

Until <условие>;

Как мы знаем, выполнение цикла с постусловием прекращается тогда когда условие является истиной.

В нашем случае одно условие это znak=’/’ и второе условие Chislo2=0.

Составим таблицу истинности

znak=’/’	Chislo2=0	Ожидаемый результат	А and B	Not(A and B)
Истина	Истина	Ложь	Истина	Ложь
Ложь	Истина	Истина	Ложь	Истина
Истина	Ложь	Истина	Ложь	Истина
Ложь	Ложь	Истина	Ложь	Истина

Введем изменения в процедуру Init.

procedure Init;

begin

Readln(Chislo1);

Writeln('Insert Znak');

Readln(Znak);

Writeln('Insert chislo 2');

Readln(Chislo2);