База Данных "Детская библиотека", поиск книги по изданию 1995 года Опции

[flashg]

Помогите усовешенствовать и разобратся - Задание в паскале.
Мне было задана куча заданий - и вот решил тут одно заданице набить.

Посмотрел пример и набил - и получается. Но хочу усовершенствовать работу программы.

Вот задание: РАЗРАБОТАТЬ БАЗУ ДАННЫХ "ДЕТСКАЯ БИБЛИОТЕКА" (ФАМИЛИЯ, ИМЯ, ОТЧЕСТВО, АВТОРА КНИГИ, НАЗВАНИЕ КНИГИ, ГОРОД И ИЗДАТЕЛЬСТВО, ГОД ВЫПУСКА). ВЫВЕСТИ НА ЭКРАН ДАННЫЕ О КНИГАХ, ВЫПУЩЕННЫХ В 1995 ГОДУ.
======================================
-------------------------------------------

программа работает но вот что мне не нравится - фантазировать имена фаимли отчества итд для N количества персон - это немного нудно

и я подумал а почему бы не сделать так создать уже файл P1.pas вбить туда эти данные (вот тока сразу возникает вопрос каким оброзом) запустив уже удавшеюся программуу и минутку думая на соченяв имена прогнав её выполнев все действия я уже получил этот файл мне тока остаётся переписать программу чтобы уже содержимое файла считать)

[Guest]

Извени но я не пойму что с кусками этими делать куда подставить - заменить полностью на свой вариант ?

я тут внеск кое какие изменения иначе всё бы нормально бы да вот тока эта гадина считывает тока (полностью) 1ую строку стобы там нибыло набито а остальные не трогает

[Guest]

чёто не получилось сделать вложение

12n-2.pas

Код

Program pr_12;
  uses crt;
  type person=record
  sname,name,otc,avtr,nb,pub,year:string[14];
  end;
 
  var  rbook:array[1..20] of person;
  f1,f2:text; i,n:integer;
  st1:string;
 
   BEGIN clrscr;  Assign(f1,'p1.pas');  reset(f1);

         ReadLn(f1,rbook[i].sname,rbook[i].name,rbook[i].otc,rbook[i].avtr,
             rbook[i].nb,rbook[i].pub,rbook[i].year);
    Writeln (rbook[i].sname,rbook[i].name,rbook[i].otc,rbook[i].avtr,
             rbook[i].nb,rbook[i].pub,rbook[i].year);
    
Assign(f2,'p2.pas');  rewrite(f2);
st1:='1995';
Writeln('Ф И О Автар книги Название книги Издательство Год выпуска');
Writeln(f2,'Ф И О Автар книги Название книги Издательство Год выпуска');
for i:=1 to n do begin   With rbook[i] do    if year=st1 then      
begin        
Writeln(sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);      
Writeln(f2,sname:10,name:10,otc:10,avtr:10,nb:10,pub:10,year:10);    
end; end;close(f1); Close(f2);readln;  END.

---------------------
файл к считыванию

p1.pas
------------
snameАзимов nameАйзек otc1 avtr2 nb3 pub1994 year1994
snameДик nameФилип otcК avtr2 nb3 pub1995 year1995
snameШекли nameРоберт otcК avtr2 nb3 pub1995 year1995

Сколько можно говорить? Тегами пользоваться будешь, или "не царское это дело?" И, кстати, зарегистрируйся, и сможешь свои посты редактировать, а то десятки постов, а информации - кот наплакал...

Сообщение отредактировано: volvo - 4.08.2005 17:37

[Malice]

чёто не получилось сделать вложение

Не знай, что ты имел ввиду, но вот это:

Код

    ReadLn(f1,rbook[i].sname,rbook[i].name,rbook[i].otc,rbook[i].avtr,
             rbook[i].nb,rbook[i].pub,rbook[i].year);
    Writeln (rbook[i].sname,rbook[i].name,rbook[i].otc,rbook[i].avtr,
             rbook[i].nb,rbook[i].pub,rbook[i].year);

надо бы в цикле делать, на всякий случай..