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

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

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

> типизированные файлы
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 38
Пол: Женский

Репутация: -  0  +


Разработать программу для обработки данных типизированного файла. Обработка данных должна включать процедуры без параметров:
Для вывода шапки таблицы;
Для вывода данных одной записи;
Для создания файла;
Для дополнения файла новыми записями;
Для записи данных в файл;
для записи данных файла;
Для чтения данных файла;
Для модификации ряда записей файла;
Для поиска записей файла с выводом найденных записей или сообщения о неуспешном поиске по поисковому признаку;
Удаления записей из типизированного файла следующим образом: поиск удаляемой записи; сдвиг (в случае успешного поиска) всех записей, расположенных после удаляемой записи, к началу файла; после удаления производится усечение файла.
Структура файла:
Абонентская плата за телефон
Ф.И.О. абонента Телефон Год установки Количество абонентов Плата за телефон

Поисковые признаки: абоненты, имеющие задолженность; год установки до 1980 года.


Начала делать так: ток чет ниче не выходит, кроме шапки таблицы unsure.gif dry.gif

Program zadacha2;
Uses crt;
procedure tabl;
begin
writeln('abonentskaya plata za telefon­');
writeln(' ----------------------------------------------------------------- ');
writeln('| FIO | telefon­ | god | kolichestvo | plata za  |');
writeln('| abonenta  | | ystanovki | abonentov | telefon ­ |');
writeln(' ----------------------------------------------------------------- ');
end;
procedure danzap;
type str=record
FIO:string[30];
tel:longint;
god:integer;
kab:integer;
plt:integer;
end;
const name:string='H:\Program Files\TurboPascal7.1\« Ў  ь4\2.dat';
var p:char;t:str; f:text;
begin
Assign(f,name);
Reset(f);
readln(f,t.FIO,p,t.tel,t.god,t.kab,t.plt);
Close(f);
end;
procedure sozd;
var f:file;
begin
Assign(f,'2.dat');
Rewrite(f);
Close(f);
end;
procedure dop;
var f:text; a:string;
begin
Assign(f,'3.dat');
Append(f);
writeln('dopolnite file');
read(a);
Close(f);
end;
procedure zap;
var f:text; a:string;
begin
Assign(f,'2.dat');
Rewrite(f); Reset(f);
writeln('Vvedite dannue');
readln(f,a);
Close(f);
end;
procedure cht;
var f:text; a,b:string;
begin
Assign(f,'2.dat');
Reset(f);
Write(f);
close(f);
end;
Var f:text; a:string;
Begin
Clrscr;
tabl;
danzap;
sozd;
dop;
zap;
cht;
readln;
End.

 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
 
 Ответить  Открыть новую тему 
Ответов
сообщение
Сообщение #2


Профи
****

Группа: Пользователи
Сообщений: 559
Пол: Мужской
Реальное имя: Бруно

Репутация: -  10  +


f : file of str, если ты работаешь с записями в файле.


--------------------
Цитата
Imagination is more important than knowledge.
Albert Einstein
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Athen   типизированные файлы   6.05.2007 17:42
мисс_граффити   ну, во-первых, по-моему, имеет смысл сделать тип s…   6.05.2007 18:05
Athen   Спасибо за ответ! Я кое-что исправила procedur…   6.05.2007 21:48
Tan   f : file of str, если ты работаешь с записями в фа…   6.05.2007 22:03
Athen   f : file of str, если ты работаешь с записями в ф…   6.05.2007 22:47
volvo   Проблема не в этом... Проблема здесь - в том, что …   6.05.2007 22:57
Tan   Если задание на типизированные файла, то в твоём с…   6.05.2007 22:59
Athen   А теперь выдает ошибку чтения диска... procedure c…   7.05.2007 18:47
мисс_граффити   это что за деятельность? считали запись и сразу п…   7.05.2007 23:09
Athen   Я пытаюсь разобраться, даже что-то уже получается,…   9.05.2007 13:10
мисс_граффити   Возможно, файл не открыт. Или ты читала-читала, а …   9.05.2007 18:21
Athen   Возможно, файл не открыт. Или ты читала-читала, а…   9.05.2007 22:41
мисс_граффити   выложи, как на данный момент выглядит твоя прога. …   9.05.2007 23:16
Athen   Вот: вроде с диском исправила, осталось только поп…   9.05.2007 23:53


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

 





- Текстовая версия 28.03.2024 20:10
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name