Всего символов в тексте: k=24*32*64= 49152
Каждый символ кодируется 16 бит, значит информационный объем всего текста будет: I=49152*16= 786432 бит
786432 бит/8= 98304 байт
98304 байт/1024= 96 Кбайт
Ответ: Информационный объем текста равен 96 Кбайт.
1) переход от порядка к хаосу (уменьшение информации):
- извержение вулкана: количество информации больше, когда горные породы находятся в спокойном состоянии, уменьшение информации выражается в том, что происходит выброс газов, горячего воздуха, пепла, разрушение горных пород, лава изливается;
- ураган: частички песка и пыли поднимаются в воздух, уменьшается количество песка на поверхности земли - т.е. уменьшается количество информации
2) Переход от хаоса к порядку:
- муравьи строят муравейник (в хаотичном состоянии находятся иголки хвойных деревьев, мелкие палочки),
- сбор меда пчелами в соты;
- птицы для перелета собираются в стаи.
3. Для сообщения: полезность, достоверность, краткость, актуальность для данного момента, независимость (от мнения и взглядов составителя сообщения)
4. Для знаний: понятность, актуальность, научность, точность, полнота излагамых знаний.
5. Автоматизированная линия на машиностроительном предприятии по сборке из деталей машины. Системы управления в современных автомобилях - контроль за скоростью движения. Системы управления самолетами: определение оптимального воздушного пути (траектории полета), система навигации - автоматическое предотвращение аварий и .д.
6. Сообщения с 1 битом информации:
- Да / нет (на любой вопрос, который требует данного ответа)
- выпал орел или решка
- из двух цветов достали красный или черный
- человек живет в одном из двух подъездов (в 1 или во 2)
<u><em>1. "Традиционный" вариант</em></u>
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: longint): longint;
begin
while a <> b do if a > b then a := a - b else b := b - a;
NOD := a
end;
var
f: Text;
tNOD: longint;
begin
Assign(f, 'input.txt'); Reset(f);
if not Eof(f) then Readln(f, tNOD);
var n: longint := 1;
while (not Eof(f)) and (n > 0) and (tNOD > 1) do
begin
Readln(f, n);
if n <> 0 then tNOD := NOD(tNOD, n)
end;
Close(f);
Assign(f, 'output.txt'); Rewrite(f);
Writeln(f,tNOD);
Close(f)
end.
<u><em>2. "Современный" вариант</em></u>
//PascalABC.Net 3.0, сборка 1052
function NOD(a, b: integer): integer;
begin
while a <> b do if a > b then a -= b else b -= a;
Result := a
end;
var
tNOD: integer := 0;
n: integer;
begin
foreach var sn in Readlines('input.txt') do
begin
n := StrToInt(sn);
if tNOD = 0 then tNOD := n
else
if n = 0 then break else tNOD := NOD(tNOD, n);
end;
WriteAllText('output.txt', IntToSTR(tNOD));
end.
Пример файла input.txt находится во вложении, контрольный результат 4096
Program prim;
Var A:array[1..10] of integer;
i,N,S:integer;
begin
Writeln('Ввод N');
Readln(N);
For i:=1 to N do
begin
Writeln('Ввод ',i, ' эл.массива');
Readln(A[i]);
end;
S:=0;
For i:=1 to N do
S:=S+A[i];
Writeln('S = ', S);
Readln;
end.
# Код на ruby 2.2.3p173
def zadanie(lineal_array, x, y)
k = 0
lineal_array.each {|element|
k = k + 1 if element < x or element > y
}
return k
end
# Примеры применения
p zadanie([1, 2, 3, 4, 5], 2, 3)