|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
09.11.2009, 14:41 | #1 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
нужна помощь с процедурами!!
кто может, помогите составить к задаче 2 процедуры......пожалуйста!!!!!
1.процедуру ввода записей из текста файла(формат текстового файла задается самостоятельно) 2.процедуру удаления текущей или выделенной записи Задача: выборка по жанру, отсортированная по авторам, с подсчетом кол-ва книг, выпущенных каждым автором в этом жанре. Библиотечный каталог а. ЖАНР б. Автор в. Название книги г. Издательство д. Год издания Код:
Последний раз редактировалось aiktz; 09.11.2009 в 14:49. |
09.11.2009, 14:53 | #2 | |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
I'm learning to live...
|
|
09.11.2009, 15:01 | #3 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
тоже самое что текущей записи
|
09.11.2009, 15:49 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Хорошо.
Предлагаю вариант популярный в СУБД: Ты создаешь в записи еще одно поле Boolean, которое помечаешь если нужно удалить запись. После чего просмотрщик такие поля пропускает. А специальной процедурой (отдельно) все эти записи выбразываются из файла - годится такое? Будет твоим преподавателем считаться это как "удаление"
I'm learning to live...
|
09.11.2009, 15:59 | #5 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
не сочтите за хамство но я вас не особо поняла......можете написать код, если не трудно???
|
09.11.2009, 16:15 | #6 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Весь код писать долгенько но:
Вот смтори, добавляешь поле: Код:
Код:
Код:
Код:
Смысл понятен?
I'm learning to live...
|
09.11.2009, 16:29 | #7 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
спасибо более менее понятно!!
а как понять это: while not Eof(f) do Read(f,k); if not k.Deleted then write(k.Nazvanie_knigi); и это:Seek(f,i); if not Eof(f) then Read(f,k); CloseFile(f); можно еще спросить? в файл я делаю записи в таком виде: ЖАНР: 1.... Автор: .... Название книги:..... Издательство:... Год издания:..... ЖАНР: 2.... Автор: .... Название книги:..... Издательство:... Год издания:..... и так далее????? просто меняю значения? Последний раз редактировалось Stilet; 09.11.2009 в 16:34. |
09.11.2009, 16:44 | #8 | ||||
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Цитата:
Читаем в переменную k очередную запись Если метка удаления у нее не стоит - выводим на экран Цитата:
Цитата:
То что он текстовый не много означает. Это совсем по другому делается... Цитата:
I'm learning to live...
Последний раз редактировалось Stilet; 09.11.2009 в 16:46. |
||||
09.11.2009, 16:51 | #9 |
Форумчанин
Регистрация: 10.03.2009
Сообщений: 104
|
вот как звучит заголовок:
разработать структуру данных и содать типизиованный файл для указанной задачи, для этих данных реализовать след операции: |
09.11.2009, 16:53 | #10 |
Любопытная Вредина
Участник клуба
Регистрация: 19.06.2009
Сообщений: 1,285
|
Дурь - это особая форма материи, которая не возникает ниоткуда и не исчезает никуда, а лишь переходит из одной головы в другую.
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Нужна помощь!!! | Гражданин.РФ | Софт | 0 | 31.08.2009 18:14 |
Очень нужна помощь c матрицами, макросами в Excel. Заранее благодарен(поверьте, очень-очень нужна помощь) | Farridjan | Помощь студентам | 1 | 03.07.2009 12:24 |
Очень нужна помощь с написанием программы... срочно(буду благодарен за помощь) | 5Paladin5 | Помощь студентам | 3 | 02.07.2009 09:12 |
Нужна помощь!!)) | ТРОЯН=) | Паскаль, Turbo Pascal, PascalABC.NET | 2 | 29.12.2008 21:42 |