Трифонов Н.П._ В.Н. Пильщиков - _Практикум на ЭВМ_ (1108423), страница 5
Текст из файла (страница 5)
Для работы с видеопамятью в модуле 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) Студенты, модальные по следующему набору параметров:
имя, пол, возраст (в полных месяцах).
3) Студенты, модальные по следующему набору параметров:
отчество, город, месяц рождения.
4) Студенты, модальные по следующему набору параметров:
город, 1-я оценка, 2-я оценка, 3-я оценка.
5) Студенты, средние по следующему набору параметров:
1-я оценка, 2-я оценка, 3-я оценка.
6) Студенты, средние по следующему набору параметров:
средняя успеваемость (с точностью до 0.1), возраст (в полных месяцах).
В качестве промежуточной информации напечатать все модальные значения или среднее арифметическое значение каждого из указанных в варианте параметров.
Как основной результат работы программы напечатать (упорядочив по ФИО) следующие сведения о найденных студентах: фамилия, имя, отчество, номер группы и значение каждого из указанных параметров.
ОПРЕДЕЛЕНИЯ
1. Пусть имеется множество объектов, каждый из которых характеризуется некоторым параметром (признаком). "Модальным" называется то значение параметра, которое присуще наибольшему числу объектов множества (таких значений может быть несколько). Объект с таким значением параметра называется "модальным по этому параметру". Например, если среди студентов наиболее часто и в равном количестве встречаются имена Елена и Наталья, то все Елены и Натальи являются модальными по параметру "имя".
Объект называется "модальным по набору параметров", если число его модальных параметров из этого набора максимально среди всех других объектов. Если, например, модальными значениями параметра "фамилия" являются Иванов и Петров, параметра "имя" - Сергей, Андрей и Евгений, а параметра "город" - Москва, то в множестве студентов {Петров Андрей из Тулы, Иванов Олег из Москвы, Сидоров Сергей из Курска} модальными по набору параметров {фамилия, имя, город} будут два первых студента, т.к. у них из трех признаков набора два являются модальными, а у третьего студента такой признак только один.
2. Пусть каждый объект множества характеризуется некоторым числовым параметром и пусть !P - среднее арифметическое значение этого параметра на данном множестве. "Средним" называется то значение P этого параметра, которое наиболее близко к числу !P, т.е. при котором величина abs(P-!P) минимальна (таких значений может быть два). Объект с таким значением называется "средним по этому параметру". Например, если средняя оценка (по какому-то экзамену) равна 3.5, то все студенты, получившие оценки 3 и 4, будут средними по этому параметру.
Объект называется "средним по набору параметров", если количество его средних параметров из этого набора максимально среди всех других объектов.
ТРЕБОВАНИЯ К ПРОГРАММЕ
1. Информация о всех студентах, введенная из внешнего файла, должна быть представлена в виде списка. Звено списка должно содержать сведения об одном студенте и представлять собой запись со следующими полями: фамилия, имя, отчество (все - строки из 12 литер), пол (перечислимый тип), дата (запись из трех полей), город (строка из 12 литер), номер группы (целое), оценки (массив из трех целых чисел). Вся дальнейшая работа программы должна вестись только с этим списком.
2. В программе должны быть описаны процедура чтения из файла слов и записи их в 12-литерные строки (с пробелами справа) и процедура чтения целых чисел (стандартная процедура ввода не подойдет из-за точек в датах).
3. Для тестирования программы подготовить свой небольшой внешний файл.
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
