Форум программистов
 
Регистрация на форуме тут, о проблемах пишите сюда - alarforum@yandex.ru, проверяйте папку спам! Обязательно пройдите активизацию e-mail, а тут можно восстановить пароль

Купить рекламу на форуме 15-35 тыс рублей в месяц

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Ответ
 
Опции темы Поиск в этой теме
Старый 27.03.2008, 19:35   #1
sheva_ser
Новичок
Джуниор
 
Регистрация: 27.03.2008
Сообщений: 2
По умолчанию Помогите, пожалуйста, решить задачу по файлах

Сформировать файл "B", записями которого является: фамилии писателей, инициалы, названия книг, год издания. Используя эти данные, сформировать файл "E", где разместить фамилии писателей, которые выдают больше двух книг за год.

З. Ы. - просьба, как можна побыстрее, ПОЖАЛУЙСТА!
sheva_ser вне форума Ответить с цитированием
Старый 27.03.2008, 19:36   #2
sheva_ser
Новичок
Джуниор
 
Регистрация: 27.03.2008
Сообщений: 2
По умолчанию

С файлом "B" я разобрался, вот исходники:

PROGRAM ob4_8_8;
TYPE zap=record
fam:string[10];
ini:string[10];
naz:string[10];
god:integer;
end;
zapus=FILE OF zap;
VAR B,E:zapus;
bd:zap;
i:integer;
BEGIN assign(B,'B.PAS');
rewrite(B);
FOR i:=1 TO 5 DO
begin
WRITE('Введите фамилию писателя - ');
READLN(bd.fam);
WRITE('Введите инициалы - ');
READLN(bd.ini);
WRITE('Введите название книги - ');
READLN(bd.naz);
WRITE('Введите год издания - ');
READLN(bd.god);
WRITE(B,bd);
end;
close(B);
WRITELN;
WRITELN('B.PAS');
reset(B);
FOR i:=1 TO 5 DO
begin
READ(B,bd);
WRITELN(bd.fam:10,bd.ini:10,bd.naz: 10,bd.god:10);
end;
...
...
...

Пожалуйста, помогите с файлом "E"!
sheva_ser вне форума Ответить с цитированием
Ответ
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите решить задачу пожалуйста Никитка89 Паскаль, Turbo Pascal, PascalABC.NET 3 29.05.2008 08:35
Помогите пожалуйста решить задачу в Паскале Alfons Помощь студентам 1 19.02.2008 21:07
Помогите, пожалуйста решить задачу по ООП M_Yuri Помощь студентам 2 10.02.2008 20:12
Пожалуйста помогите решить задачу на паскале jst.denis Помощь студентам 1 09.11.2007 10:56