![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 19.12.2011
Сообщений: 7
|
![]()
Создать типизированный файл film.dat, содержащий сведения о видеофильмах:
- название фильма; - категория (ужасы, комедия, боевик и т.д.); - длительность; а) обеспечить просмотр содержимого файла в табличной форме; б) добавление новых записей; в) выбрать и переписать в другой файл сведения о фильмах с заданной категорией; г) обеспечить поиск в файле по заданному названию фильма. Буду весьма благодарна ![]() |
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]() |
![]() |
![]() |
![]() |
#3 |
Регистрация: 19.12.2011
Сообщений: 7
|
![]()
Только вот это(начало):
Program cinema; Uses Crt; type cin=record nazvanie:string[20]; kategoria:string[15]; dlitelnost:real; end; Var a:cin; otv:char; f:file of cin; begin ClrScr; assign(f,'film.dat'); rewrite(f); repeat writeln('Vvedite nazvanie,kategoriyu,dliyelnost'); readln(a.nazvanie); readln(a.kategoria); readln(a.dlitelnost); writeln('Vihod Esc'); otv:=readkey; until ord(otv)=27; close(f); end. |
![]() |
![]() |
![]() |
#4 |
Форумчанин
Регистрация: 15.03.2011
Сообщений: 465
|
![]()
Вот на скорую руку без проверок ввода.
Код:
Последний раз редактировалось ByAlex; 20.06.2012 в 21:33. |
![]() |
![]() |
![]() |
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
работа с файлами (pascal) | zenid | Помощь студентам | 1 | 26.12.2011 16:18 |
Работа с файлами (Pascal) | Defunkt | Помощь студентам | 1 | 21.12.2011 20:38 |
Работа с файлами (Pascal) | ksu04061992 | Помощь студентам | 0 | 29.11.2011 21:52 |
работа с файлами в Pascal | Мaрина | Помощь студентам | 1 | 28.06.2011 12:14 |
Работа с файлами(Pascal | Mekkeliard | Помощь студентам | 2 | 07.12.2010 15:56 |