// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 type tBook=record author:string[30]; naim:string[50]; pages:integer; godizd:integer end; begin var f:file of tBook; Rewrite(f,'books.dat'); Writeln('Ввод данных по книгам'); var s1,s2:string; var i1,i2:integer; var book:tBook; repeat s1:=ReadlnString('Автор или * для окончания ввода:'); if s1<>'*' then begin s2:=ReadlnString('Название книги:'); i1:=ReadlnInteger('Количество страниц:'); i2:=ReadlnInteger('Год издания:'); (book.author,book.naim,book.pages,book.godizd):=(s1,s2,i1,i2); Write(f,book) end until s1='*'; Writeln('*** Ввод завершен ***'); f.Close end.
Тестовое решение Ввод данных по книгам Автор или * для окончания ввода: Жюль Верн Название книги: 80 тысяч километров под водой Количество страниц: 573 Год издания: 1951 Автор или * для окончания ввода: Сергей Лукьяненко Название книги: Дозор Количество страниц: 934 Год издания: 2004 Автор или * для окончания ввода: Жюль Верн Название книги: Властелин мира Количество страниц: 104 Год издания: 2011 Автор или * для окончания ввода: * *** Ввод завершен ***
2. Программа для выборки
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016 type tBook=record author:string[30]; naim:string[50]; pages:integer; godizd:integer end; begin var f:file of tBook; Reset(f,'books.dat'); var s:=ReadlnString('Автор книги:'); var y:=Readinteger('Год издания, не ранее:'); var k:=0; var book:tBook; while not f.Eof do begin Read(f,book); if (book.author=s) and (book.godizd>=y) then begin Writeln(book); Inc(k) end; end; if k=0 then Writeln('Таких книг не найдено'); f.Close end.
Тестовое решение Автор книги: Жюль Верн Год издания, не ранее: 2005 (Жюль Верн,Властелин мира,104,2011)
Передача информации — физический процесс, посредством которого осуществляется перемещение знаков (сведений предоставлять информацию) в пространстве или осуществляется физический доступ субъектов к знакам.
Передача информации — заблаговременно организованное техническое мероприятие, результатом которого становится воспроизведение информации, имеющейся в одном месте, условно называемом «источником информации», в другом месте, условно называемом «приёмником информации». Данное мероприятие предполагает предсказуемый срок получения указанного результата («информация» здесь понимается в техническом аспекте, как осмысленное множество символов, чисел, параметров абстрактных или физических объектов, без достаточного «объёма» которого не могут быть решены задачи управления, выживания, развлечения, совершения преступлений или денежных операций).
Для осуществления п.и. необходимо наличие, с одной стороны, так называемого «запоминающего устройства», или «носителя», обладающего возможностью перемещения в пространстве и времени между "источником" и "приёмником". С другой стороны, необходимы заранее известные "источнику" и "приемнику" правила и нанесения и снятия информации с "носителя". С третьей стороны, "носитель" должен продолжать существовать как таковой к моменту прибытия в пункт назначения. (к моменту окончания снятия с него информации "приёмником")
В качестве «носителей» на современном этапе развития техники используются как вещественно-предметные, так и волново-полевые объекты физической природы. Носителями могут быть при определённых условиях и сами передаваемые "информационные" "объекты" (виртуальные носители).
Передача информации в повседневной практике осуществляется по описанной схеме как "вручную", так и с различных автоматов. Во множестве разновидностей технической реализации.
При построении систем передачи информации может "передаваться" не только информация о физических объектах, но и информация о подготовленных к передаче носителях. Таким образом, организуется иерархическая «среда передачи» с любой глубиной вложенности (не путать со средой распространения волновых носителей).
162
Объяснение: