Begin
WriteLn(rus('Ваш итоговый ЛОС:'));
WriteLn('');
print(sag); //процедура вывода ЛОС на экран
WriteLn('');
proverka(w); {вход в процедуру проверки корректности ввода данных}
oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
ifoper = 0 then //если переменная равна нулю
exit; //завершаем работу программы
While (oper <> 1) do {цикл работает пока переменная не равна
единице}
Begin {выводит сообщение, о не верно выбранной операции}
WriteLn('');
WriteLn(rus('Выбрана не та операция!'));
WriteLn(rus('_____________________________________'));
WriteLn('');
WriteLn(rus('Введите номер требуемой операции '));
WriteLn('');
proverka(w); {вход в процедуру проверки корректности ввода данных}
oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
ifoper = 0 then //если переменная равна нулю
exit; //завершаем работу программы
end;
end
Else
Begin
Write(rus('После удаления первого и последнего элементов Ваш ЛОС’));
Writeln(rus(‘ выглядит так:'));
WriteLn('');
print(sag); //процедура вывода ЛОС на экран
WriteLn('');
Gou(w); {процедура перемещения между
процедурами}
End;
End;
. . .
Begin //Выполнение самой программы
WriteLn(rus('Лабораторная работа студента группы ВСМ 6 05'));
WriteLn(rus('Антонова А.Е.'));
WriteLn(rus('Номер лабораторной # 1.18'));
WriteLn('');
WriteLn(rus('Для более удобной работы в программе'));
WriteLn(rus('разверните окно программы на максимальный размер'));
WriteLn('');
WriteLn(rus('Нажмите Ввод для продолжения'));
ReadLn(W); //ждем нажатия Enter
Whilew<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных}
begin
WriteLn('');
ifw='' then {если был нажат Enter без ввода данных продолжаем работу процедуры}
else {иначе выдаем сообщение}
WriteLn(rus('Будьте внимательны, нужно просто нажать на ввод!'));
ReadLn(W); //ждемнажатия Enter
end;
WriteLn(' ');
WriteLn(rus('В данной лабораторной, присутствуют следующие'));
WriteLn(rus('возможности работы с ЛОС:'));
WriteLn(rus('___________________________________________'));
WriteLn('');
WriteLn(rus('1 - Создать ЛОС'));
WriteLn('');
WriteLn(rus('2 - Добавить элемент в начало списка'));
Write(rus('3 - Добавить элемент в середину списка, перед указанным’));
WriteLn(rus(‘ значением'));
Write(rus('4 - Добавить элемент в середину списка, после указанного’));
WriteLn(rus(‘ значениея'));
WriteLn(rus('5 - Добавить элемент в конец списка'));
WriteLn(rus(''));
WriteLn(rus('6 - Удалить элемент в начале списка'));
Write(rus('7 - Удалить элемент ЛОС стоящий перед указанным ’));
WriteLn(rus(‘значением списка'));
Write(rus('8 - Удалить элемент ЛОС стоящий после указанного ’));
WriteLn(rus(‘значением списка'));
WriteLn(rus('9 - Удалить определенный элемент в списке'));
WriteLn(rus('10 - Удалить элемент в конце списка'));
WriteLn(rus('11 - Удалить первый и последний элементы ЛОС'));
WriteLn('');
WriteLn(rus('12 - ОчиститьЛОС'));
WriteLn('');
WriteLn(rus('13 - Поиск элемента по его значению'));
WriteLn('');
WriteLn(rus('14 - Сортировка элементов'));
WriteLn('');
Write(rus('15 - Подсчитать количество идентичных по содержанию’));
WriteLn(rus(‘элементов'));
WriteLn(rus(' с указанным'));
WriteLn('');
WriteLn(rus('0 - Выход'));
WriteLn('');
WriteLn(rus('___________________________________________'));
WriteLn('');
Write(rus('Вы будете работать с числами (Тип Integer) - 1 '));
WriteLn(rus('или со строками (Тип String) - 2'));
While (st <> 1) and (st <> 2) do {цикл проверки ввода номера варианта
работы}
Begin
WriteLn(' ');
WriteLn(rus('Выберите номер нужного варианта работы'));
WriteLn(' ');
ReadLn(w);
if (w <> '1') and (w <> '2') then //если выбран не тот вариант работы
begin //выводим сообщение
WriteLn(' ');
WriteLn(rus('Не правильно выбран номер варианта работы'));
end
else
st:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
end;
WriteLn(' ');
Create2(sag); //процедурасозданияЛОС
st2:=1;
WriteLn('');
WriteLn(rus('Нажмите Ввод для продолжения'));
ReadLn(W); //ждем нажатия Enter
Whilew<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных}
begin
WriteLn('');
ifw='' then {если был нажат Enter без ввода данных продолжаем работу процедуры}
else //иначе выдаем сообщение
WriteLn(rus('Будьте внимательны, нужно просто нажать на ввод!'));
ReadLn(W); //ждемнажатия Enter
end;
WriteLn('');
WriteLn('');
Vopros(w); {процедура вывода списка вариантов дальнейших вариантов работы в ЛОС}
WriteLn;
Begin {Определение какая операция должна
быть запущена}
proverka(w); {вход в процедуру проверки корректности ввода данных}
oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
if oper=1 then {если была выбрана первая операция, а ЛОС не пуст, выводим сообщение}
Begin
Write(rus('Ваш ЛОС не пустой, для создания нового '));
Writeln(rus('удалите все элементы текущего.'));
Writeln(rus('Выберите вариант дальнейших действий.'));
proverka(w); {вход в процедуру проверки корректности ввода данных}
oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
end;
whileoper<>0 do {цикл работает пока не выбрана операция выхода из программы}
begin
if (oper>=1) and (oper<=15) then {проверка проходит между пятнадцатью
операциями}
begin
if oper= 1 then
begin
WriteLn;
WriteLn('');
Write(rus('Вы будете работать с числами (Тип Integer) - 1 '));
WriteLn(rus('или со строками (Тип String) - 2'));
st:=0;
While (st <> 1) and (st <> 2) do {цикл проверки ввода номера варианта
работы}
Begin //выводим сообщение
WriteLn(' ');
WriteLn(rus('Выберите номер нужного варианта работы'));
WriteLn(' ');
ReadLn(w);
if (w <> '1') and (w <> '2') then //если выбран не тот вариант работы
begin
WriteLn(' ');
WriteLn(rus('Не правильно выбран номер варианта работы'));
end
else
st:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный}
end;
Create2(sag); //процедура создания ЛОС
WriteLn;
end;
. .
if oper= 11 then
begin
WriteLn;
Delet11(sag);
WriteLn;
end;
. . .
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, при вводе значений будет введена не цифра, а буква
5. при работе с данными типа Integer, при вводе значений будет введено число, превышающее максимальное значение типа Integer
6. при выборе варианта продолжения работы программы, вместо нужного варианта будет введена буква или номер варианта, превышающий их количество
7. будет введен один элемент
8. будет введено два элемента
9. будет введено пять значений элементов ЛОС для проверки корректности работы программы
10. после удаления и выводе вариантов продолжения работы с программой будет введен, номер, превышающий по значению предложенные варианты
РЕЗУЛЬТАТЫ КОНТРОЛЬНОГО ПРОГОНА
Тест-пример №1
При просьбе нажать ввод, вводиться единица. В ответ выводиться сообщение «Будьте внимательны, нужно просто нажать на ввод».
При вопросе, с какими данными Вы будете работать, вместо ввода варианта работы 1 или 2 вводиться вариант три, которого не существует. В ответ выводиться сообщение «Не правильно выбран вариант работы», дальше предлагается выбрать номер нужного варианта из предъявленных.
При вводе данных, не введя значение, нажимается ввод. В ответ выводиться сообщение «Вы не ввели данные или они не корректны, попробуйте еще раз».
При работе с ранее выбранным типом данных Integer, вводиться не число, а буква. После отработки процедуры проверки на корректность вводимых данных, выводиться сообщение «Вы ввели не корректные данные» и будет предложено повторить ввод данных еще раз.
При работе с данными типа Integer, вводится значений превышающее максимальное значение типа Integer. В ответ выводиться сообщение
«Вы ввели не число или число превышающее диапазон типа Integer
(-32768..32767)» и будет предложено ввести другое число.
а) На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться номер превышающий их количество. В ответ выводиться сообщение «Не корректный ввод варианта операции» и будет предложено ввести номер варианта задачи, еще раз.
б) На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться буква. В ответ выводиться сообщение «Вы ввели не корректный данные» и будет предложено попробовать еще раз.
В ЛОС вводится только один элемент. Далее, выбирается операция по удалению первого и последнего элементов ЛОС. Так, как в ЛОС был только один элемент, выводиться сообщение «В ЛОС был только один элемент!». Далее, запускается процедура вывода на экран содержимого ЛОС. Но! Так, как ЛОС пустой, потому, что мы удалили этот, один элемент, который был в нем. Выводится сообщение «ЛОС пустой, выводить нечего!». Далее, выводиться сообщение с вопросом о ходе дальнейшей работы программы и выводятся варианты работ. С предложением ввести вариант и продолжить. Варианты: