Сформируйте файл книг необходимых учителю информатики(это выполнено), и нужно что бы при вводе курса выводились фамилия имя автора и год выпуска

@GaMaJoBa · Регистрация: 28.05.2013

Author24 — интернет-сервис помощи студентам

Нужно написать программу с файлами на паскале, а именно "сформируйте файл книг необходимых учителю информатики(это выполнено), и нужно что бы при вводе курса выводились фамилия имя автора и год выпуска".

Pascal

program lkjg;
type books= record
 nazva:string;
 author:string;
 year:string;
 kurs: string;
end;
 var
 f: file of books;
 f1:file of string;
 k:string;
 u,n,i:integer;
 bk:books;
 begin
  assign(f,'books.pas');
  rewrite(f);
  assign(f1,'books1.pas');
  rewrite(f1);
  write('ââåäèòå êîëè÷åñòâî çàïèñåé');
  read(n);
 for i:=1 to n do begin
   with bk do begin
      writeln('ââåäèòå Íàçâàíèå êíèãè');
     read(nazva);
     writeln('ââåäèòå Èìÿ àâòîðà');
     read(author);
     writeln('ââåäèòå ãîä èçäàíèÿ');
     read(year);
     writeln('ââåäèòå êóðñ');
     read(kurs);
    write(f,bk)
 end;
 write(f,bk)
 end;
 write('Vvedite kurs kotoriy nujen: ');
 readln(k);
  while not(eof(f)) do begin
   read(f,bk);
    if (bk.kurs) = (k) then
       write(f1, bk.nazva, bk.author, bk.year);
     end;
close(f);
close(f1);
 end.

Помогите пожалуйста

@CodeR · 18.01.2014, 12:28

Между 36-37

Pascal

Reset(f);

И зачем ты 2 раза в файл записываешь одно и тоже?один write(f,bk) убери

	18.01.2014, 12:28

Опции темы