|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
19.06.2009, 21:26 | #1 |
Новичок
Джуниор
Регистрация: 19.06.2009
Сообщений: 2
|
Записи
Создать файл из записей, который содержит сведения о книгах: фамилия автора, название, издательство и год издания. Вывести сведения о книгах заданного издательства. Определить самую «старую» книгу.
Вот мои наработки: ТЕЛО ПРОГРАММЫ Begin z:=false; {значение переменной окончания работы программы} repeat clrscr; Writeln(‘Меню программы’); Writeln(‘1. Создание файла’); Writeln(‘2. Модификация файла’); Writeln(‘3. Печать файла’); Writeln(‘4. Поиск и печать нужной информации’); Writeln(‘5. Завершение программы’); Writeln; Write(‘–> ’); Readln(num); {ввод номера пункта} Case num of {выбор действий соответственно введенному пункту} 1: rewrite_file; {обращение к процедуре xxx для создания файла} 2: mod_file; {обращение к процедуре yyy для добавления записей в файл} 3: write_file; {обращение к процедуре zzz для вывода файла на экран} 4: find_file; {обращение к процедуре aaa для поиска в файле} 5: z:=true; {выход} else writeln(‘Ошибка выбора’); end until z; {цикл работает до тех пор пока true} writeln(‘Программа завершена’); readln; End. задание выполнить на основе этого меню Извиняюсь за отсутствие чего-то большего, там очень плохо))) Последний раз редактировалось добрый полотенчик; 19.06.2009 в 21:31. |
19.06.2009, 21:37 | #2 |
Участник клуба
Регистрация: 29.07.2008
Сообщений: 1,091
|
Код:
Кто бы ты ни был - не думай о себе слишком (с)
|
19.06.2009, 21:44 | #3 |
Новичок
Джуниор
Регистрация: 19.06.2009
Сообщений: 2
|
спасибо
program xD =) Последний раз редактировалось добрый полотенчик; 20.06.2009 в 14:20. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Записи | Archangelos | Паскаль, Turbo Pascal, PascalABC.NET | 1 | 01.06.2009 11:26 |
Записи | StudeHt | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 10.05.2009 13:52 |
записи | paladinn | Помощь студентам | 1 | 14.01.2009 20:23 |
Записи | Rio309 | Помощь студентам | 1 | 15.03.2008 22:23 |
Записи | zzzzz | Помощь студентам | 1 | 25.05.2007 16:26 |