Н.П. Трифонов, В.Н. Пильщиков - Практикум на ЭВМ, страница 4

Правильный ввод даты в нижней строке окна означает конец ввода всей исходной последовательности (можно сделать и так, чтобы признаком конца ввода всей последовательности было нажатие какой-нибудь особой клавиши). В этом случае в правой части экрана должны появиться два новых окна и должна начать свою работу процедура сортировки, которая в одном из этих окон будет показывать состояние упорядочиваемой последовательности перед каждым очередным шагом сортировки, а в другом - после этого шага. Содержимое этих окон должно оставаться на экране до тех пор, пока пользователь не нажмет какую-нибудь клавишу, иначе нельзя будет уследить за работой процедуры. Когда последовательность будет полностью упорядочена, следует указать на экране число выполненных при сортировке сравнений и перемещений. И эта "картинка" должна сохраняться на экране до тех пор, пока пользователь не нажмет какую-нибудь клавишу. Далее следует убрать с экрана два правых окна и очистить левое окно, чтобы пользователь мог набрать в левом окне новую последовательность дат (при той же длине n).

(Замечание. Под "шагом сортировки" в методах челнока, простых и бинарных вставок понимается установка очередного элемента на новое место, в быстрой сортировке - установка выбранного элемента на свое окончательное место, а в остальных методах - очередной просмотр всей сортируемой последовательности.)

Если при вводе дат (в любой момент) нажата клавиша Esc, то это означает отказ от задания новой исходной последовательности и возврат к предыдущему этапу работы программы (запросу длины); экран должен быть приведен в состояние, соответствующее предыдущему этапу.

Сценарий 2

Работа программы начинается с очистки экрана и высвечивания в его верхней строке основного меню из 5 разделов (см. рис. 3), один из которых должен быть выделен особым цветом. Курсор в этот момент невидим. В нижней строчке экрана должна появиться строка-подсказка примерно такого вида:

ВЫБЕРИТЕ РАЗДЕЛ: ←,→ - сдвиг Enter-выбор

При нажатии клавиши со стрелкой выделяется соседний (по кругу) раздел меню, а при нажатии клавиши Enter выбирается выделенный раздел.

При выборе раздела МЕТОД на экране (ниже основного меню) должно появиться меню методов, а в нижней строке экрана - соответствующая подсказка (см. рис. 3). Как и в сценарии 1, пользователь выбирает один из методов. После чего экран очищается от меню методов и происходит возврат в основное меню (с восстановлением его подсказки).

Рис. 3

При выборе в основном меню раздела РЕЖИМ на экране появляется окно режима (со своей подсказкой), и пользователь выбирает нужный ему режим (см. этап 2 в сценарии 1), после чего следует убрать это окно с экрана и вернуться в основное меню. Аналогичные действия производятся при выборе раздела ДЛИНА (см. этап 3 в сценарии 1). Выбор раздела РАБОТА означает запуск в работу процедуры сортировки (см. этапы 4а и 4б в сценарии 1), а выбор раздела ВЫХОД - завершение всей работы системы.

Замечание. Следует учитывать, что разделы основного меню могут выбираться независимо друг от друга, поэтому возможны неприятные ситуации. Например, раздел РАБОТА может быть выбран до того, как будут заданы метод, режим или длина. Или в режиме счета была установлена длина 60, но затем этот режим был заменен на режим отладки, где такая длина недопустима. Поэтому при использовании этого сценария необходимо заранее продумать реакцию системы на подобные ситуации.

ЛИТЕРАТУРА

1. Абрамов В.Г., Трифонов Н.П., Трифонова Г.Н. Введение в язык Паскаль. - М.: Наука, 1988.

2. Епанешников А.М., Епанешников В.А. Программирование в среде Turbo Pascal 7.0 - М.: "ДИАЛОГ-МИФИ", 2000.

МЕТОДИЧЕСКИЕ РЕКОМЕНДАЦИИ

1. Модули CRT и CRT1

Для реализации подсистемы интерфейса следует использовать возможности, которые предоставляют стандартный модуль CRT системы программирования Турбо Паскаль 7.0 и модуль CRT1, специально созданный для данного задания (ниже процедуры и функции из модуля CRT1 помечены звездочкой). Для того чтобы можно было воспользоваться процедурами, константами и т.п. из этих модулей, следует в начале текста программы сразу за ее заголовком поместить строку

uses crt, crt1;

1.1 Работа с окнами и цветом

Окном называется прямоугольный участок экрана. Установка окна (с помощью процедуры window) не вызывает никаких изменений на экране, но означает, что все последующие действия с экраном ведутся только в рамках окна, как будто бы и нет иной части экрана. В частности, все координаты позиций отсчитываются от левого верхнего угла окна; исключение составляет обращение к процедуре window, координаты для которой всегда задаются как абсолютные, т.е. отсчитываются от верхнего левого угла экрана. В начале работы программы текущим окном является весь экран.

Координаты позиций на экране (в текущем окне) задаются парой (x,y), где x означает номер колонки экрана (окна), а y - номер строки. Отсчет координат ведется от левого верхнего угла экрана (окна), который имеет координаты (1,1). Правый нижний угол всего экрана имеет координаты (80,25).

При высвечивании любого символа на экране используются два цвета: фоновый цвет, которым закрашивается тот участок экрана, где показывается символ, и передний цвет, которым высвечивается сам символ. Все допустимые цвета (их всего 16) нумеруются целыми числами от 0 до 15. При этом передний цвет может быть любым, а фоновый цвет должен иметь номер от 0 до 7. Для более наглядного обозначения цветов в модуле CRT описаны следующие константы:

black=0; {черный} darkgray=8; {темно-серый}

blue=1; {синий} lightblue=9; {светло-синий}

green=2; {зеленый} lightgreen=10; {салатовый}

cyan=3; {сине-зеленый} lightcyan=11; {голубой}

red=4; {красный} lightred=12; {светло-красный}

magenta=5; {малиновый} lightmagenta=13; {светло-малиновый}

brown=6; {коричневый} yellow=14; {желтый}

lightgray=7; {серый} white=15; {белый}

Рекомендуется использовать эти названия вместо числовых кодов цветов; например, вместо textcolor(14) лучше писать textcolor(yellow).

Для работы с окнами и цветом в модулях CRT и CRT1 имеются следующие процедуры (тип byte обозначает целые числа от 0 до 255):

textmode(3) - процедура при фактическом параметре 3 устанавливает цветной текстовый режим работы с экраном из 80 колонок и 25 строк; с обращения к этой процедуре надо начинать работу подсистемы интерфейса

window(x1,y1,x2,y2:byte) - процедура объявляет прямоугольную часть экрана с левым верхним углом в точке (x1,y1) и правым нижним углом в точке (x2,y2) текущим окном; все координаты здесь - абсолютные, т.е. отсчитываются от левого верхнего угла всего экрана

* windcoord(var x1,y1,x2,y2:byte) - процедура присваивает своим параметрам (абсолют-ные) координаты текущего окна

textcolor(fc:byte) - процедура делает цвет с номером fc (от 0 до 15) цветом символов (передним цветом) для всех последующих выдач на экран, осуществляемых стандартной процедурой вывода write

textbackground(bc:byte) - процедура делает цвет с номером bc (от 0 до 7) фоновым цветом для всех последующих выдач на экран, осуществляемых процедурой вывода write

* getcolors(var fc,bc:byte) - процедура присваивает параметрам fc и bc номера текущих переднего и фонового цветов, соответственно

clrscr - процедура очищает текущее окно (записывает во все его позиции пробелы), закрашивая его текущим фоновым цветом

1.2 Работа с курсором

Курсор всегда показывает позицию на экране, в которую будет помещен очередной символ, вводимый с клавиатуры стандартной процедурой ввода read или выводимый стандартной процедурой вывода write.

Для работы с курсором полезны следующие процедуры из модулей CRT и CRT1:

gotoxy(x,y:byte) - процедура перемещает курсор в позицию (x,y) текущего окна

* wherexy(var x,y:byte) - процедура присваивает своим параметрам координаты текущей позиции курсора

* crsoff - процедура делает курсор невидимым на экране

* crson - процедура восстанавливает видимость курсора

1.3 Непосредственный доступ к экрану

Вывод на экран можно осуществлять без обращения к стандартной процедуре вывода write. В этом случае используется тот факт, что информация, отображаемая на экране, хранится в специальном месте оперативной памяти, называемом видеопамятью. Каждую секунду видеопамять многократно просматривается и ее содержимое отображается на экране, поэтому любая запись в нее означает вывод на экран. Чтение же из ячеек видеопамяти позволяет узнать текущее содержимое экрана. (Замечание: в этих операциях положение курсора не учитывается и не меняется.)

Каждый элемент видеопамяти состоит из двух байтов: один - это кода символа, который сейчас высвечивается в соответствующей позиции экрана, а другой - так называемый цветовой атрибут, указывающий фоновый и передний цвета, которые используются при высвечивании символа в этой позиции экрана, и признак "мерцания" символа. Более точно, цветовой атрибут - это величина fc+16*bc+128*blink, где fc - номер переднего цвета, bc – номер фонового цвета, а blink равен 1, если символ должен мерцать на экране, и равен 0 в противном случае. Например, атрибут "белый символ на синем фоне, без мерцания" задается так: white+16*blue (или 15+16*1).

Для работы с видеопамятью в модуле CRT1 имеются следующие процедуры и функции:

* putch(x,y:byte; c:char) - процедура записывает символ c в позицию (x,y) текущего окна, не меняя цветовой атрибут в этой позиции

* putattr(x,y:byte; a:byte) - процедура меняет цветовой атрибут позиции (x,y) текущего окна на новое значение a, не меняя сам символ в этой позиции

* getch(x,y:byte):char - значением функции является символ, высвечиваемый в данный момент в позиции (x,y) текущего окна

* getattr(x,y:byte):byte - значением функции является цветовой атрибут позиции (x,y) текущего окна

1.4 Ввод с клавиатуры "без эха"

Использовать в задании для ввода длин и элементов (дат) сортируемых последовательностей стандартную паскалевскую процедуру read нельзя: она не учитывает границы поля ввода, трактует даты как неправильные числа и т.д. Поэтому ввод длины и дат (с возможностью редактирования вводимой информации) необходимо реализовать иначе, используя так называемый ввод "без эха".

Когда на клавиатуре нажимается клавиша (вводится символ), то данный символ автоматически не высвечивается на экране - это дополнительное действие, которое может быть выполнено, а может быть и не выполнено. В связи с этим различаются два вида ввода - "с эхом", когда введенный символ тут же высвечивается на экране (именно так работает процедура read, которая сама и высвечивает символ), и "без эха", когда символ не высвечивается. Во втором случае вопрос о том, высвечивать символ или нет, а если высвечивать, то в какой позиции экрана, должен решаться дополнительно. Например, если нажата управляющая клавиша (типа Enter или ←), то на экране обычно ничего не высвечивается, а если нажата клавиша с обычным символом, то этот символ, как правило, надо выводить на экран. Такое отделение операции ввода от операции вывода на экран позволяет запрограммировать свой редактор ввода, который "в темную" вводит символ за символом и определяет, что делать с каждым из них.

Для ввода "без эха" можно использовать следующую процедуру из модуля CRT1:

* inkey(var c:char; var spec:boolean) - процедура вводит "без эха" символ первой из клавиш, нажатых на клавиатуре, и присваивает его параметру c (если никакая клавиша еще не была нажата, процедура ждет нажатия первой же клавиши); при нажатии клавиши с обычным символом параметру spec присваивается значение false, при нажатии управляющей клавиши – значение true

Замечание. Количество символов, которые можно ввести с клавиатуры (с учетом управляющих клавиш и комбинаций типа Ctrl+Shift), столь велико, что для них не хватает имеющихся 256 кодов. Поэтому все эти символы разделены на две группы, в одну из которых включены обычные символы (буквы, цифры, знаки операций и т.п.), а в другую - управляющие символы (и их комбинации). При этом в каждой группе символы имеют одни и те же коды - от 0 до 255 (например, код 83 имеет и буква S, и клавиша Del), поэтому знание только кода еще не определяет символ. Именно из-за этого процедура inkey и сообщает через свой параметр spec, символ из какой группы был введен.

Ниже приведены (десятичные) коды некоторых управляющих символов, выдаваемые процедурой inkey:

↑ - 72 ↓ - 80  - 75  - 7

Enter - 13 Del – 83 Backspace - 8 Ins - 82

Esc - 27 Tab - 9 Home – 71 End – 79

F1 - 59 F2 - 60 . . . F10 - 68

Рекомендуется ввести в программе константы с подходящими именами, например: