|
p align="left">Begin kk^.next:= qq; {заносим в адресную часть предыдущего элемента значение конца списка} q:=kk^.next; {запоминание в переменную указателя, значение конца списка для выхода из цикла} dispose(k); //удаляем адрес последнего элемента End; end; End; End; q:=sag^.next; //запоминаем адрес начального элемента if q= Nil then {если адрес начального элемента указывает на конец списка выводим сообщение} Begin WriteLn(rus('Ваш итоговый ЛОС:')); WriteLn(''); print(sag); //процедура вывода ЛОС на экран WriteLn(''); proverka(w); {вход в процедуру проверки корректности ввода данных} oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный} if oper = 0 then //если переменная равна нулю exit; //завершаем работу программы While (oper <> 1) do {цикл работает пока переменная не равна единице} Begin {выводит сообщение, о не верно выбранной операции} WriteLn(''); WriteLn(rus('Выбрана не та операция!')); WriteLn(rus('_____________________________________')); WriteLn(''); WriteLn(rus('Введите номер требуемой операции ')); WriteLn(''); proverka(w); {вход в процедуру проверки корректности ввода данных} oper:= StrToInt(w); {перевод числа из строкового типа данных в целочисленный} if oper = 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 While w<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных} begin WriteLn(''); if w='' 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 While w<>'' do {проверяем был ли просто нажат Enter или пользователь что-то ввел. цикл будет работать пока пользователь не нажмет просто Enter, без ввода данных} begin WriteLn(''); if w='' 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; while oper<>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); {перевод числа из строкового типа данных в целочисленный} While oper=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)» и будет предложено ввести другое число. а) На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться номер превышающий их количество. В ответ выводиться сообщение «Не корректный ввод варианта операции» и будет предложено ввести номер варианта задачи, еще раз. б) На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться буква. В ответ выводиться сообщение «Вы ввели не корректный данные» и будет предложено попробовать еще раз. В ЛОС вводится только один элемент. Далее, выбирается операция по удалению первого и последнего элементов ЛОС. Так, как в ЛОС был только один элемент, выводиться сообщение «В ЛОС был только один элемент!». Далее, запускается процедура вывода на экран содержимого ЛОС. Но! Так, как ЛОС пустой, потому, что мы удалили этот, один элемент, который был в нем. Выводится сообщение «ЛОС пустой, выводить нечего!». Далее, выводиться сообщение с вопросом о ходе дальнейшей работы программы и выводятся варианты работ. С предложением ввести вариант и продолжить. Варианты: 1 - Создать (наполнить ЛОС) 0 - Выйти из программы В ЛОС вводятся два элемента. Далее, выбирается операция по удалению первого и последнего элементов ЛОС. В ЛОС записаны два элемента, первый и последний. Значит они просто удаляются, а далее, запускается процедура вывода на экран содержимого ЛОС. Но! Так, как ЛОС пустой, потому, что мы удалили эти два элемента, которые были в нем. Выводится сообщение «ЛОС пустой, выводить нечего!». Далее, выводиться сообщение с вопросом о ходе дальнейшей работы программы и выводятся варианты работ, с предложением ввести вариант и продолжить. Варианты: 1 - Создать (наполнить ЛОС) 0 - Выйти из программы Будет введено пять значений элементов ЛОС (1, 2, 3, 4, 5), для проверки корректности работы программы. В результате удаления первого и последнего элементов. ЛОС будет выглядеть так: (2, 3, 4). Тест-пример №10 После удаления и выводе вариантов продолжения работы с программой будет введен, номер, превышающий по значению предложенные варианты. В итоге будет выведено сообщение «Выбрана не та операция!» и будет предложено ввести номер требуемой операции еще раз. Вывод: Из результатов тест-примеров можно сказать, что программа функционирует правильно и готова к эксплуатации. Список использованных информационных источников: В.П. Сыромятников, «Структуры и алгоритмы обработки данных», лекции МИРЭА, 2007 уч. год В.В. Фаронов, «TURBO PASCAL 7.0» Начальный курс учебное пособие. -М.: «КНОРУС» 2006г. - 576 с А.Я. Архангельский, «Программирование в Delphi 6». -М.: ЗАО «Издательство БИНОМ» 2002г. - 1120 с. А.Я. Архангельский, Delphi 6 «Справочное пособие». -М.: ЗАО «Издательство БИНОМ» 2001г. - 1124 с.
Страницы: 1, 2, 3
| 
