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

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

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

> типизированные файлы
Athen
сообщение 6.05.2007 13:42
Сообщение #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 
 К началу страницы 
+ Ответить 

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


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

 



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