Доклад на тему храниние и передача информации

Информатизация – это производное от слова информация. Информатизация – это процесс получения, использования, хранения, передачи информации.
На протяжении ХХ века сменялось множество обмена информацией. Если в XIX веке носителем информации была бумага, а средством передачи была почтовая служба, то в ХХ веке информация стала передаваться гораздо быстрее с телеграфа, в голосовой форме обмениваться информацией можно по телефону, радио и телевидение призваны только для получения человеком информации. В наши дни есть огромное количество передачи информации, причем в любой форме. Телефонные линии до сих пор остаются самым удобным средством передачи информации, но теперь ими обслуживаются не только телефоны, но и самое большое достижение процесса информатизации – Internet, содержащий большую часть информации со всей планеты.
Сейчас информатизация не мыслима без компьютера, так как он изначально создавался как средство обработки информации и только теперь он стал выполнять множество других функций: хранение, преобразование, создание и обмен информацией. Но прежде чем принять привычную сейчас форму компьютер претерпел три революции. Первая компьютерная революция свершилась в конце 50-х годов; ее суть можно описать двумя словами: компьютеры появились. Изобретены они были не менее чем за десять лет до этого, но именно в то время начали выпускаться серийные машины, эти машины перестали быть объектом исследований для ученых и диковинкой для всех остальных. Через полтора десятилетия после этого ни одна крупная организация не могла себе позволить обходиться без вычислительного центра. Если тогда заходила речь о компьютере, сразу же представлялись заполненные стойками машинные залы, в которых напряженно думают люди в белых халатах. И тут свершилась вторая революция. Практически одновременно несколько фирм обнаружили, что развитие техники достигло такого уровня, когда вокруг компьютера не обязательно воздвигать вычислительный центр, а сам он стал небольшим. Это были первые мини-ЭВМ. Но еще десять с небольшим лет, и наступила третья революция – в конце 70-х возникли персональные компьютеры. За короткое время, пройдя путь от настольного калькулятора до полноценной небольшой машины, ПК заняли свои места на рабочих столах индивидуальных пользователей.
Компьютер – это самое популярное средство для обработки, хранения и передачи информации и по сей день, но так как в наши дни информации становится все больше, то и компьютеры претерпевают значительные изменения. Для удобства пользователей стали выпускаться, переносные и карманные компьютеры, подключенные к глобальной информационной сети Internet, чтобы пользователь мог получить необходимую информацию в любом месте, в удобное для него время.
Но так как потоки информации только увеличиваются то для ее создания, обработки, хранения и передачи необходимо разрабатывать все новые и новые средства и при Существует множество компаний и корпораций, специализирующихся на разработках программного обеспечения, операционных систем, усовершенствовании и разработке новых более совершенных компьютеров, при для ввода и вывода информации, аксессуаров для удобства обращения с компьютером и ускорения обработки информации.

∧ - логическое ИЛИ, ∨ - логическое И, ¬ - не что-то.

А и В принимают значения 0 (ложь) и 1 (истина) (здесь нам это не дано, надо просто сократить).

(A∧ ¬B)∨(¬A∧B)∧(A∨B) это

(A или не В) и (не А или В) или (А и В),

далее: (первые две скобки сократим, в данном случае надо чтобы хотя бы А или В имели любое значение)

(А или В) или (не А или не В) или (А и В)

то есть:

(А ∧ В) ∧ (¬А ∧ ¬В) ∧ (А ∨ В)

(но зачем нам А и В, когда есть А или В, то есть А и В становится бесполезным выражением, когда есть выражение, которому надо всего одно истинное значение)

и так:

(А или В) или (не А или не В)

то есть выражение всегда будет истинно, так как какое бы значение и имели А , В - выражение истинно.

Можно заменить это следующим:

А или не А или В или не В

А ∧ ¬А ∧ В ∧ ¬В

готово, а главное выражение всегда истинно!

const N = 10;  

var a, i, count, z: integer; s:string;  

suc: array[1..N] of integer;  

begin

 Randomize();

 count := 0;  

 z := 1;

 for i := 1 to N do begin

   a := random(10, 50);

   Str(a, s); if s[2] = '4' then begin count += 1; suc[z] := a; z += 1; end;

 end;

 if count > 0 then begin for i := 1 to z-1 do begin writeln('Выиграшное число: ', suc[i]); end;  

 Writeln('Всего выиграшных билетов: ', count, ' из ', N); end  

 else Writeln('Нет ни одного выиграшного билета');

end.

Объяснение: