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

Создать файл 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
Не нашли ответ?
Ответить на вопрос
Похожие вопросы