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

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

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

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. Для тестирования программы подготовить свой небольшой внешний файл.

ЛИТЕРАТУРА

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

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

МЕТОДИЧЕСКИЕ УКАЗАНИЯ

1. Целесообразно избрать следующий план решения задачи:

а) Чтение информации из файла и построение списка.

б) Просмотр списка и определение нужных сведений по каждой группе (завести массив по числу групп). Выбор групп, удовлетворяющих свойству А. Промежуточная печать. (Пункты а и б можно выполнять одновременно).

в) Просмотр списка и удаление из него сведений о студентах из других групп.

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

д) Новый просмотр списка и подсчет для каждого студента числа модальных или средних параметров из заданного набора, определение максимума этих чисел.

е) Просмотр списка и выбор студентов с наибольшим числом модальных или средних параметров. Печать окончательного результата.

2. Особенности работы с файлами в языке Турбо Паскаль.

а) В этом языке нет понятия буферной переменной файла и нет процедур get и put. Поэтому для чтения из файлов следует пользоваться процедурами read и readln, а для записи - write и writeln.

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

Список файлов книги