В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
rafuw1
rafuw1
16.01.2023 20:33 •  Информатика

Назовите примеры кодирования информации перевод текста с одного языка на другой
рисование иллюстраций к прочитанному рассказу
представление графического изображения с чисел
использование флажковой азбуки

Показать ответ
Ответ:
tarnopolska99
tarnopolska99
26.10.2020 08:47

Очень нечётко сформулировано!

Объём информации о чём? Если о количестве сделанных ходов, то это 15=Fh, то есть достаточно 4бит(полубайта), но, подозреваю, что объём совсем не этой информации требуется найти. Уточни, какой.

Иначе "пойди туда, не знаю, куда; принеси то, не знаю, что". Не в сказке ж живём.

 

Да, ещё раз почитал, может речь идет о последовательности ходов и её объёме?

В этом случае всё просто - объём равен 15*n, где n-количество байт на один ход.

Ячейку можно кодировать двумя разными

1. последовательно их перенумеровав. В этом случае макс. номер будет 24(если нумеровать с 0). Так как     2^4  <24< 2^5, то для такой нумерации потребуется 5 бит.

2. Указавая строку,столбец, каждая из которых находится в интервале (1,5), ну или (0,4)

на что потребуется 3 бита, а на пару 6 бит.

Таким образом экономней.

И запись 15 ходов можно поместить в 15*5=75бит= 10байт 

 

Или всё же не это имелось в виду?

0,0(0 оценок)
Ответ:
1111Кристина11111
1111Кристина11111
11.06.2021 07:42

1) 

var a:array [1..100] of integer;

n,i:integer;

begin

for i:=10 to 99 do begin

a[i]:=i;

if (a[i] mod n=0) then writeln(a[i]);

end;

end.

 

 2)

var a:array [1..100] of integer;

n,k,i,x,y,z: integer;

begin

readln(n,k);

for i:=n to k do begin

a[i]:=i;

x:=a[i] mod 10;

y:=a[i] div 10;

z:=y mod 10;

y:=y div 10;

if (x=y) or (x=z) or (y=z) then writeln(a[i]);

end;

end.

 

 3)

 var a,n,an,na: integer;

begin

readln(a,n);

if (a>0) and (b>0) then begin

an:=a*10+n;

na:=n*10+a else writeln('Введены неверные числа!');

end;

end.

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота