IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

> Задачка по сортировки записей, Срочно нужно!
Bogardan
сообщение 15.06.2006 17:58
Сообщение #1


Гость






Народ, помогите пож-та кто-нибудь!Срочно нужно реализовать небольшую процедуру по проге!
Задание: Дана база данных "студент",надо отсортировать их по возрастанию по дате рождения,используя только год рождения(т.е.если есть дата 06.06.2006, то надо использовать только год - 2006). И,если можно,сделайте пож-та с моими типами и переменными!!Список двунаправленный циклический!Заранее благодарен!!!
Student = record
Family: string[20];
Name: string[20];
Otch: String[20];
BirthDay: string[10];
Male: string[10];
Facultet: string[3];

end;
StudentPoint=^StudentItem;
StudentItem = record
Data:Student;
Pred:StudentPoint;
Next:StudentPoint;
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
volvo
сообщение 15.06.2006 18:47
Сообщение #2


Гость






Bogardan, ты забыл привести формат даты. То, что это String[10] ничего не дает. Внутри как дата хранится? 4 последних символа - ВСЕГДА определяют год?

Цитата
Список двунаправленный циклический
Реализацию списка - в студию. ЗА тебя этого делать не будет никто. Делать еще раз уже готовое - тоже. Нужна помощь - присоединяй уже сделанную программу, и говори, что именно не получается...
 К началу страницы 
+ Ответить 

Сообщений в этой теме


 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 21.07.2025 11:13
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"