1. Кодирование текстовой информации: Задача 1. Чтобы представить текстовую
информацию достаточно 65536 различных
знаков. Вычислить какое количество
информации необходимо, чтоб
закодировать каждый знак?
Задача 2. Устройство произвело
перекодировку информационного
сообщения, изначально записанного в 14-ти
битном коде, в 8 битную кодировку. При
этом информационное сообщение
уменьшилось на 900 бит. Найти длину
сообщения в символах.
2. Кодирование звуковой информации:
Задача 1. Оценить информационный объем
стереоаудиофайла длительностью звучания
2 минуты при качестве звука в 14 битов, 26
кГц. ответ записать в Мбайтах.
3. Кодирование видеоинформации:
Задача 1. Разрешающая
дисплея 440x250 пикселей, а количество
используемых цветов 32. Сколько Кбайт
необходимо для хранения двух страниц?
4. Кодирование графической информации:
Задача 1. Для хранения изображения
объемом 64x64 пикселей отведено 2 Кб
памяти. Найти максимально возможное
количество цветов в палитре изображения.
РЕШИТЕ ПОДРОБНО!!

Показать ответ

Ответ:

Julydd

12.01.2022 04:08

Var s,v,Ke,fc:real;
Begin
s:=18;
ke:=1;
v:=100;
Writeln('Тормозной путь автомобиля: ',s,' м');
Writeln('Тормозной коэффичиент: ',ke);
Writeln('Скорость авто в начале торможения ',v,' км/ч');
Writeln('Коэффициент сцепления с дорогой');
Writeln;Writeln('Введите показатель погодных условий: ');
Writeln('Варианты:');
Writeln('0.7-сухой асфальт');
Writeln('0.4-мокрая дорога');
Writeln('0.2-укатанный снег');
Writeln('0.1-обледенелая дорога');
Readln(fc);
S:=ke*v*v/(254*fc);
Writeln('скорость автомобиля по его тормозному пути: ',s);
end.

0,0(0 оценок)

Ответ:

ksenyaLove1246

10.06.2020 00:35

1)
var
i, max, maxin: smallint;
arr1, arr, sum: array[1..25] of smallint;

begin
max := -(MaxSmallInt);
randomize();
for i := 1 to 25 do
begin
    arr[i] := Random(-100, 100);
    arr1[i]:=arr[i];
    write(arr[i], ' ');
    while arr[i] <> 0 do
    begin
      sum[i] := abs(arr[i] mod 10) + sum[i];
      arr[i] := arr[i] div 10;
      if sum[i] > max then begin
      max := sum[i];
      maxin:=i;
      end;
    end;
end;
writeln();
writeln(arr1[maxin]);
end.

2)
var
i, sum: byte;
arr: array[1..20] of byte;

begin
sum := 0;
randomize();
for i := 1 to 20 do
begin
    arr[i] := random(10);
    write(arr[i], ' ');
    if arr[i] = i then sum := i + sum;
end;
writeln();
writeln(sum);
end.

0,0(0 оценок)

Популярные вопросы: Информатика