Опубликовано 11.06.2017 по предмету Информатика от Гость >> <<

Создать файл f, содержащий сведения о книгах. Сведения о каждой из книг – это фамилия автора, название книги и год издания. С помощью другой программы найти все книги данного автора, изданные с 1980 года. Сохранить эту информацию в файле g.

Ответ оставил Гость

Program primer;
Var f,g:text;
    I,n,k: integer;        S,a,data: string;    Begin
Assign(f,F.txt);
Assign(g,G.txt);
rewrite(f);
Writeln(Кол-во книг? );
readln(n);
for i:=1 to n do begin
writeln(Фамилия автора, название и год издания книги № ,i, ?);
readln(s);
writeln(f,s);  // в фаил f забиваем данные
end;
close(f);
Writeln(Укажите автора для поиска );
readln(a);
Rewrite(g);
Reset(f);
For i:=1 to 2 do begin
Readln(f,s);
if (pos(a,s)<>0) then begin  //ищем автора
data:=; 
for k:=length(s) downto 1 do begin 
          if (s[k]= ) then begin 
                   data:=data+copy(s,k+1,length(s));        //смотрим дату
                   break;         
         end;             
         end;        
         end;
if (strtoint(data) >= 1980) then writeln(g,s);  //сравниваем дату 
end;
close(f);
close(g);
end.
ABC Pascal