Лабораторная работа: Структуры и алгоритмы обработки данных

. . .

else

Begin

Writeln(rus('Не корректный ввод варианта операции '));

Writeln(rus('Попробуйте еще раз'));

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

Whileoper=1 do {если ЛОС не пустой то выводим

сообщение}

Begin

Write(rus('Ваш ЛОС не пустой, для создания нового '));

Writeln(rus('удалите все элементы текущего.'));

Writeln(rus('Выберите вариант дальнейших действий.'));

proverka(w); {вход в процедуру проверки корректности ввода данных}

oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}

end;

end;

end;

if oper= 0 then //еслипеременнаяравнанулю, то

begin

exit; //выход из программы

end;

end;

end. //Конец программы

ОПИСАНИЕ ТЕСТ-ПРИМЕРОВ

В контрольном прогоне программы используются следующие тест-примеры:

1. при просьбе нажать ввод, будет введена единица

2. при вопросе, с какими данными Вы будете работать, вместо 1 или 2, будет введена тройка

3. при вводе данных будет нажат Enter без ввода значения

4. при работе с данными типа Integer, при вводе значений будет введена не цифра, а буква