|
Помогите решить задачу в стандартном паскале. (Можно и в ТП)
|
|
| babaevkamil | Дата: Среда, 07.12.2011, 04:56 | Сообщение # 1 |
|
Новичок
Группа: Пользователи
Сообщений: 1
Статус: Offline
| Имеется внешний файл с названием 'COURSE.REC' типа file of stude, где :
type str=packed array[1..10] of char;
stud=record
fn:record {информация об одном студенте}
fam,name:str;
end; {фамилия, имя}
sex(M,W); {пол: муж(M), жен(W)}
marks:array[1..5] of 2..5; {пять оценок}
end;
(В программе эти типы следует описывать без каких либо изменений!)
Считая, что количество элементов в этом файле заранее известно, составить программу для чтения данных из этого файла и записи во внешний текстовый файл 'ANS.TXT' следующей информации: о каждой студентке в отдельной строке сообщить ее фамилию, имя и все ее оценки (пример возможной строки 'АЛЁХОВА____ЕЛЕНА_______5_5_5_5_5'). Список студенток выдавать упорядоченным по алфавиту (при упорядочении учитывать только фамилии). Замечание: в исходном файле COURSE.REC фамилии и имена записаны большими русскими буквами; при сортировке фамилии можно учитывать тот факт, что в используемой кодировке большие русские буквы правильно упорядочены по алфавиту. Требования: 1) ввести логическую функцию для анализа текущей записи файла (представляет ли эта запись интерес?); 2) не использовать вспомогательных массивов для хранения записей и их сортировки; 3) построить список (упорядоченный по неубыванию) из записей, представляющих интерес; этот список по ходу чтения элементов из внешнего файла; 4) ввести рекурсивную процедуру, которая вставляет в этот список новый элемент с сохранением упорядоченности (процедура должна работать корректно и для пустого списка); 5) выполнить (в цикле) просмотр построенного списка и вывести (в файл 'ANS.TXT') требуемую информацию.
ОЧЕНЬ НУЖНО РЕШИТЬ ДО 20 ЧИСЛА. ПОЖАЛУЙСТА ПОМОГИТЕ.
|
| |
| |
| Seqular | Дата: Среда, 07.12.2011, 06:30 | Сообщение # 2 |
 Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| babaevkamil, Хорошая задачка! Сложная :)) Но....реальная.
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| kamil-05-dag | Дата: Четверг, 08.12.2011, 02:43 | Сообщение # 3 |
|
Новичок
Группа: Пользователи
Сообщений: 2
Статус: Offline
| решишь? =)
|
| |
| |
| Seqular | Дата: Четверг, 08.12.2011, 18:08 | Сообщение # 4 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| kamil-05-dag, если найду время. Сейчас другой задачкой занимаюсь, ещё более глобальной, чем эта. )
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
| kamil-05-dag | Дата: Воскресенье, 11.12.2011, 07:55 | Сообщение # 5 |
|
Новичок
Группа: Пользователи
Сообщений: 2
Статус: Offline
| эх.. неужели никто не решит 
|
| |
| |
| Seqular | Дата: Воскресенье, 11.12.2011, 09:35 | Сообщение # 6 |
|
Хранитель
Группа: Администраторы
Сообщений: 859
Статус: Offline
| kamil-05-dag, Требования к задаче высоки. Рекурсивные процедуры, не использовать доп.массивы. У тебя самого какие идеи есть по этому поводу? Мысли, наработки?
Поддерживаю также проект сообщество молодых сисадминов
|
| |
| |
