<span>Что надо знать?
Единицы измерения информации
В 1 бит можно записать один двоичный символ.
1 байт = 8 бит
В кодировке ASCII в один байт можно записать один 256 символьный код
В кодировке UNICODE один 256 символьный код занимает в памяти два байта
1 килобайт = 1024 байт
1 мегабайт = 1024 килобайт
1 гигабайт = 1024 мегабайт
1 терабайт = 1024 гигабайт
<span>Формула Хартли </span><span>2 <span>i </span>= N </span>где i- количество информации в битах, N - неопределенность
Таблица степеней двойки, которая показывает сколько информации можно закодировать с помощью i - бит
<span><span>i012345678910</span><span><span>N=2 i</span>12481632641282565121024</span></span>
Чтобы вычислить информационный объем сообщения надо количество символов умножить на число бит, которое требуется для хранения одного символа
Например: двоичный текст 01010111 занимает в памяти 8 бит
Этот же текст в кодировке ASCII занимает 8 байт или 64 бита
Этот же текст в кодировке UNICODE занимает 16 байт или 128 бит.
Не забывайте, что пробелы надо тоже считать за символы поскольку они также набираются на клавиатуре и хранятся в памяти.
Мощность алфавита - это количество символов в алфавите или неопределенность из формулы Хартли.
Информационный вес одного символа - это значение i из формулы Хартли.
Отсюда можно сделать вывод, что не существует алфавита, состоящего из одного символа, поскольку тогда информационный вес этого символа был бы равен 0.
</span>
Var x ,y: integer;
begin
for x:=-4 to 4 do
begin
y:=2*x*x*x-7*x;
writeln('При x = ', x, ' y = ', y);
end;
<span>end.</span>
Program n1;
var a,k,sum: integer;
begin
readln(a);
k:=0;
sum:=0;
while a<>0 do
begin
if (a mod 2=0) then sum:=sum+a;
k:=k+1;
readln(a);
end;
writeln(k);
writeln(sum);
end.
Дано три числа-стороны треугольника. Проверить будет ли треугольник равнобедренным. (Если две стороны равны,то треугольник равнобедренный)
решение:
<span>var x,n:integer; </span>
<span>begin </span>
<span>n:=0; </span>
<span>for x:=11 to 99 do </span>
<span>if odd(x) then inc(n); </span>
<span>writeln(n); </span>
<span>readln; </span>
<span>end. </span>
<span>раскинув мозгами </span>
<span>begin writeln((99-10+1) div 2); readln; end. </span>
<span>а так как число двузначных нечетных всегда постоянно, то самое правильное решение </span>
<span>begin writeln(45); readln; end.</span>