Задания практикума на ЭВМ (1110686), страница 5
Текст из файла (страница 5)
* 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
Рекомендуется ввести в программе константы с подходящими именами, например:
const Enter=#13; Left=#75; EndKey=#79; F3=#61; ...
и уже ими пользоваться.
1.5 Другие процедуры модуля CTR1
В модуле CRT1 имеются также следующие две процедуры без параметров:
* wait - ожидать нажатия на клавиатуре любой клавиши (введенный символ "глотается")
* bell - подача звукового сигнала
2. Работа с полями и окнами
На основе процедур и функций из модулей CRT и CTR1 рекомендуется реализовать более крупные операции для работы с экраном. (При этом желательно использовать тип string, описывающий в языке Турбо Паскаль строки переменной длины.)
2.1 Операции над полями
Прежде всего следует реализовать в виде процедур операции над полями. Под "полем" понимается часть одной строки экрана; оно задается тремя параметрами: x, y - координатами начальной точки поля, n - длиной поля. Процедуры могут быть следующими:
putfield(x,y,n:byte; s:string) - записать в поле, определяемое параметрами x, y и n, все символы строки s; если длина s больше n, то лишние символы строки s не выводятся, если меньше - в конец поля дописываются пробелы (в частности, при пустой строке s происходит очистка поля)
getfield(x,y,n:byte; var s:string) - скопировать в строку s все символы из поля, заданного параметрами x, y и n
paintfield(x,y,n:byte; a:byte) - закрасить поле заданным цветом; точнее, записать цветовой атрибут a во все позиции поля, заданного параметрами x, y и n (не меняя при этом символы поля)
readfield(x,y,n:byte; stopkeys:string; var s:string; var key:char) - ввод любого текста (с возможностью редактирования) в рамках поля, заданного параметрами x, y и n, и запись введенного текста в строку s; в параметре stopkeys перечисляются все управляющие клавиши (Enter, Esc, ↓, ...), нажатие которых означает конец ввода; та из них, которая была действительно нажата, присваивается параметру key
Замечания относительно процедуры readfield:
- процедура не должна предварительно очищать поле ввода (если надо, такую очистку следует делать до обращения к процедуре); это нужно для того, чтобы при неправильно набранном ранее тексте пользователь мог вносить исправления в уже набранный текст, а не вводить весь текст заново;
- процедура должна высвечивать курсор, установив его вначале в левую позицию поля ввода, а затем перемещая по мере ввода и редактирования текста; курсор не должен выходить за рамки поля ввода;
- процедура должна реагировать на клавиши редактирования (, , Del, Backspace, Ins), смысл которых объяснен в описании этапа 3 сценария 1;
- процедура не должна проверять правильность набираемого текста (например, не должна "ловить" нецифровые символы при вводе числа), такую проверку надо делать только по окончании работы процедуры; это позволяет использовать данную процедуру для ввода любого текста - длины, даты или еще чего-либо.
2.2. Операции над окнами
На основе перечисленных операций над полями рекомендуется реализовать следующие процедуры для работы с окнами и меню (названия процедур и их параметры определить самим):
- выдача в нижней строке экрана (не окна!) строки-подсказки;
- выдача на экран (например, в его нижней строчке) текста "Нажмите любую клавишу", ожидание нажатия пользователем любой клавиши и последующее восстановление соответствующей части экрана;
- показ на экране основного меню и выбор раздела в этом меню; результат - номер выбранного раздела (для сценария 2);
- показ на экране меню методов и выбор раздела в этом меню; результаты - номер выбранного метода и код клавиши выхода (Enter или Esc);
- показ окна режима и выбор режима; результаты - номер выбранного режима и код клавиши выхода (Enter или Esc);
- показ окна длины и ввод длины (с проверкой); результаты - введенная длина и код клавиши выхода (Enter или Esc);
- показ окна для ввода дат (в режиме отладки), сам ввод дат (с проверкой) и заполнение ими соответствующего массива; результат должен указывать, завершен ли полностью ввод дат или была нажата клавиша Esc;
- выдача текущего содержимого упорядочиваемого массива (для режима отладки);
- выдача таблицы с характеристиками (сравнениями и перемещениями) работы процедуры сортировки в режиме счета.
Замечания:
- установка окна и последующая запись в него не сохраняют прежнее содержимое (символы и цветовые атрибуты) этой части экрана; поэтому, если позже надо будет восстановить это содержимое, то следует его предварительно где-то сохранить, а затем снова воспроизвести на экране;
- для выдачи текста (например, строки-подсказки) вне текущего окна следует запомнить координаты текущего окна, затем сделать окном весь экран и вывести текст в нужном месте экрана, а затем по запомненным координатам снова установить текущее окно;
- для рисования рамок вокруг окон следует с помощью процедуры putchar записывать в граничные позиции окон символы так называемой псевдографики. Они имеют следующие (десятичные) коды:
218: ┌ 196: ─ 191: ┐ 201: ╔ 205: ═ 187: ╗
179: │ 197: ┼ 179: │ 186: ║ 206: ╬ 186: ║
192: └ 196: ─ 217: ┘ 200: ╚ 205: ═ 188: ╝
ЗАДАНИЕ 5. ЯЗЫК ПАСКАЛЬ.
РАБОТА С ФАЙЛАМИ.
ПОСТАНОВКА ЗАДАЧИ
Во внешнем текстовом файле, специально подготовленном для данного задания, хранится информация о некотором множестве студентов 3-го курса. Количество студентов заранее не известно, данные о них в файле никак не упорядочены. Сведения о каждом студенте записаны (без ошибок) в одной строке файла и имеют следующий формат:
<фамилия> <имя> <отчество> <пол> <дата рождения> <место рождения>
<номер группы> <1-я оценка> <2-я оценка> <3-я оценка>
Причем в фамилии, имени, отчестве и месте рождения (названии города) содержится не более 12 (заглавных) букв, пол указывается буквой М или Ж, дата задается в виде 31.5.80 и т.п., номер группы - это целое от 301 до 329, а оценки (за экзамены) - целые от 3 до 5. Элементы строки разделены одним или несколькими пробелами. Возможные примеры:
МАРКОВ РОМАН ПЕТРОВИЧ М 1.10.81 УФА 309 4 3 3
ГОЛОВКО ВЕРА ОЛЕГОВНА Ж 2.1.82 КИЕВ 325 5 4 5
Требуется среди всех этих студентов сначала отобрать студентов тех групп, которые удовлетворяют свойству А, а затем из их числа отобрать студентов, удовлетворяющих свойству В, и напечатать соответствующие данные о них. Для контроля следует также напечатать некоторые промежуточные сведения (см. вариант задания).
ВАРИАНТЫ ЗАДАНИЯ
Свойство А (искомые группы):
1) В группе юношей больше, чем девушек.
2) В группе больше половины студентов, которым на 1 сентября текущего года было более 19 лет.
3) Средний возраст студентов группы (на 1 сентября текущего года) меньше 19.5 лет.
4) В группе более трети студентов из городов Владимир, Иваново, Калуга, Москва, Рязань, Смоленск, Тверь.
5) Средняя успеваемость в группе выше 4.0.
6) В группе есть хотя бы два "хорошиста" (т.е. не имеющих троек, но и не отличников).
В качестве промежуточной информации напечатать по каждой (непустой) группе курса общее число студентов, а также: в 1-м варианте - число юношей, во 2-м варианте - число студентов старше 19 лет, в 3-м - средний возраст (в годах) студентов группы, в 4-м - число студентов из указанных городов, в 5-м - среднюю успеваемость в группе, в 6-м - число "хорошистов". Кроме того, напечатать номера отобранных групп и общее число студентов во всех этих группах.
Свойство В (искомые студенты из отобранных групп):
1) Студенты, модальные по следующему набору параметров:
фамилия, имя, год рождения.
2) Студенты, модальные по следующему набору параметров:
имя, пол, возраст (в полных месяцах).
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
