49189 (566560), страница 2

Просмтор этого файла доступен только зарегистрированным пользователям. Но у нас супер быстрая регистрация: достаточно только электронной почты!

Текст из файла (страница 2)

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

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

end

else

ReadLn(stroka); //ввод данных типа String

End;

If st = 1 then {если пользователь выбрал вариант работы, работа с типом Integer}

//st = 1 – работа с типом данных, Integer

begin

While a<>0 do {запускаем цикл выполняющийся пока не будет введен ноль}

Begin

New(q); {создаем адресную переменную для первого элемента}

q^.inf:= a; {заносим в информационную часть, значение данных}

q^.next:= sag^.next; {в адресную часть второго элемента заносим адресную часть первого элемента}

sag^.next:= q; {в адресную часть первого элемента заносим адрес созданного указателя}

//---------сортировка

qq:= sag^.next; //запоминаем адрес первого элемента ЛОС

While qq<>Nil do {запускаем цикл выполняющийся пока не будет достигнут конец списка}

begin

s:= qq; //запоминаем адрес первого элемента ЛОС

qq:= qq^.next; {запоминаем адрес следующего элемента

ЛОС}

if (qq<>nil) then {если адресная переменная не равна указателю конца списка}

begin

begin

if (qq^.inf

begin

a:= qq^.inf; {запоминаем значение информационной части следующего элемента}

qq^.inf:=s^.inf; {в информационную часть следующего элемента запоминаем значение информационной части

предыдущего элемента}

s^.inf:= a; {в информационную часть предыдущего элемента запоминаем значение следующего элемента}

end;

end;

end;

end; //---------конец сортировки

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

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

end;

end

else

begin

While stroka<>'0' do {запускаем цикл выполняющийся пока не будет введен ноль}

Begin

New(q); {создаем адресную переменную для первого элемента}

q^.inf2:= stroka; {заносим в информационную часть, значение данных}

q^.next:= sag^.next; {в адресную часть второго элемента

заносим адресную часть первого

элемента}

sag^.next:= q; {в адресную часть первого элемента заносим адрес созданного указателя}

//---------сортировка

qq:= sag^.next; //запоминаем адрес первого элемента ЛОС

While qq<>Nil do {запускаем цикл выполняющийся пока не будет достигнут конец списка}

begin

s:= qq; //запоминаем адрес первого элемента ЛОС

qq:= qq^.next; {запоминаем адрес следующего элемента

ЛОС}

if (qq<>nil) then {если адрес переменной не равен указателю конца списка}

begin

begin

if (qq^.inf2

begin

a:= qq^.inf2; {запоминаем значение информационной части следующего элемента}

qq^.inf2:=s^.inf2; {в информационную часть следующего элемента запоминаем значение информационной части

предыдущего элемента}

s^.inf2:= a; {в информационную часть предыдущего элемента запоминаем значение следующего элемента}

end;

end;

end;

end;

//---------конец сортировки

ReadLn(stroka); //ввод данных типа String

end;

end;

WriteLn('');

WriteLn(rus('Ваш итоговый ЛОС:'));

print(sag); //вывод ЛОС на экран

WriteLn(' ');

if st2=1 then //если ЛОС наполняется первый раз

Gou(w); {процедура перемещения между

процедурами}

End;

Procedure Vopros ( w: WE); {процедура вывода списка вариантов дальнейших вариантов работы в ЛОС}

Begin

WriteLn(rus('___________________________________________'));

WriteLn(rus('Что Вы хотите выполнить дальше?'));

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('');

WriteLn(rus('0 - Выход'));

WriteLn('');

WriteLn(rus('___________________________________________'));

End;

Procedure Gou( w: WE); {процедура перемещения между

процедурами}

Begin

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;

WriteLn('');

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

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

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

сообщение}

Begin

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

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

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

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

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

end;

end;

. . .

Procedure Delet11 (var sag: PE); {процедура удаления первого и последнего, элементов в ЛОС}

var

k, kk, q, qq: PE; //адресные переменные

Begin

WriteLn(rus('Ваш ЛОС выглядел так:'));

WriteLn('');

print(sag); //процедура вывода ЛОС

WriteLn('');

q:= sag^.next; //запоминаем адрес первого элемента

k:= sag^.next; //запоминаем адрес первого элемента

If q^.next=Nil then {если адрес второго элемента содержит указывает на конец списка}

Begin

sag^.next:=q^.next; {в адресную часть первого элемента заносим указатель на конец списка}

dispose(k); //удаляем адрес первого элемента

WriteLn(rus('В ЛОС был только один элемент!')); //выводим сообщение

WriteLn(' ');

End

Else //иначе

Begin

qq:=sag^.next; //запоминаем адрес первого элемента

q:=qq^.next; //запоминаем адрес второго элемента

if (q^.next= Nil) then {если адресная часть второго элемента указывает на конец списка (это означает что в ЛОС только два элемента)}

Begin

sag^.next:=Nil; {в адресную часть начала ЛОС заносим указатель на конец списка}

dispose(q); //удаляем адрес первого элемента

dispose(q); //удаляем адрес второго элемента

End

Else //иначе

Begin

q:= sag^.next; //запоминаем адрес второго элемента

sag^.next:=q^.next; {в адресную часть первого элемента заносим адрес второго элемента}

dispose(k); //удаляем адрес первого элемента

q:= sag^.next; //запоминаем адрес первого элемента

qq:=q^.next; //запоминаем адрес второго элемента

While (q<>Nil)do {цикл удаления последнего элемента

проходим по списку, до тех пор, пока указатель не будет равен значению, указателя на конец списка}

Begin

kk:=q; //запоминаем адрес текущего элемента

q:=q^.next; //запоминание следующего адреса

k:= qq; //запоминаем адрес следующего элемента

qq:=qq^.next; //запоминание следующего адреса

if qq=Nil then {если адресная часть следующего элемента указывает на значение конца списка значит мы нашли адрес последнего элемента ЛОС}

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. На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться номер превышающий их количество. В ответ выводиться сообщение «Не корректный ввод варианта операции» и будет предложено ввести номер варианта задачи, еще раз.

2. На экран выводиться список вариантов продолжения работы с программой. Вместо номера варианта вводиться буква. В ответ выводиться сообщение «Вы ввели не корректный данные» и будет предложено попробовать еще раз.

В ЛОС вводится только один элемент. Далее, выбирается операция по удалению первого и последнего элементов ЛОС. Так, как в ЛОС был только один элемент, выводиться сообщение «В ЛОС был только один элемент!». Далее, запускается процедура вывода на экран содержимого ЛОС. Но! Так, как ЛОС пустой, потому, что мы удалили этот, один элемент, который был в нем. Выводится сообщение «ЛОС пустой, выводить нечего!». Далее, выводиться сообщение с вопросом о ходе дальнейшей работы программы и выводятся варианты работ. С предложением ввести вариант и продолжить. Варианты:

1 – Создать (наполнить ЛОС)

0 – Выйти из программы

В ЛОС вводятся два элемента. Далее, выбирается операция по удалению первого и последнего элементов ЛОС. В ЛОС записаны два элемента, первый и последний. Значит они просто удаляются, а далее, запускается процедура вывода на экран содержимого ЛОС. Но! Так, как ЛОС пустой, потому, что мы удалили эти два элемента, которые были в нем. Выводится сообщение «ЛОС пустой, выводить нечего!». Далее, выводиться сообщение с вопросом о ходе дальнейшей работы программы и выводятся варианты работ, с предложением ввести вариант и продолжить. Варианты:

1 – Создать (наполнить ЛОС)

0 – Выйти из программы

Будет введено пять значений элементов ЛОС (1, 2, 3, 4, 5), для проверки корректности работы программы. В результате удаления первого и последнего элементов. ЛОС будет выглядеть так: (2, 3, 4).

Тест-пример №10

После удаления и выводе вариантов продолжения работы с программой будет введен, номер, превышающий по значению предложенные варианты. В итоге будет выведено сообщение «Выбрана не та операция!» и будет предложено ввести номер требуемой операции еще раз.

Вывод:

Из результатов тест-примеров можно сказать, что программа функционирует правильно и готова к эксплуатации.

Список использованных информационных источников:

1. В.П. Сыромятников, «Структуры и алгоритмы обработки данных», лекции МИРЭА, 2007 уч. год

2. В.В. Фаронов, «TURBO PASCAL 7.0» Начальный курс учебное пособие. –М.: «КНОРУС» 2006г. – 576 с

3. А.Я. Архангельский, «Программирование в Delphi 6». –М.: ЗАО «Издательство БИНОМ» 2002г. – 1120 с.

4. А.Я. Архангельский, Delphi 6 «Справочное пособие». –М.: ЗАО «Издательство БИНОМ» 2001г. – 1124 с.

Характеристики

Список файлов лабораторной работы