В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
nikadik2000
nikadik2000
11.08.2021 22:05 •  Информатика

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

Показать ответ
Ответ:
MaksPlay2209
MaksPlay2209
24.07.2020 06:07
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
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота