Дисциплина Основы теории информации Билет № 1 1. Определить количество информации и энтропию сообщения из 5 букв, если число букв в алфавите равно 32 и все сообщения равновероятны. 2. Определить количество информации и энтропию сообщения из 8 букв, если число букв в алфавите равно 27 и все сообщения равновероятны. Дисциплина Основы теории информации Билет № 2 Составьте таблицы истинности для функции: F=(A→B)⋁((A⋁C)⋀B) Составьте таблицы истинности для функции: F=(A⨁(C→B)∨C) Дисциплина Основы теории информации Билет № 3 Упростите функцию F=(A→B)⋁((A⋁C)⋀B) Упростите функцию F=(A∧(C→B)∨C) Дисциплина Основы теории информации Билет № 4 Вычислите результат арифметических операций и результаты представьте в обозначенных системах счисления: 〖(12〗_8+45_8)-25_8 77_16/12_16 +〖1A〗_16 〖(1000001〗_2+1010101_2)-11100_2 Дисциплина Основы теории информации Билет № 5 Вычислите результат арифметических операций и результаты представьте в обозначенных системах счисления: 〖(22〗_8-45_8)26_8 120_16/12_16 +〖2A〗_16 〖(111001〗_2-1011101_2)110_2 Дисциплина Основы теории информации Билет № 6 Вычислите результат арифметических операций и результаты представьте в обозначенных системах счисления: 〖(42〗_8-15_8)/6_8 〖(1A5〗_16+〖2A〗_16)-〖A7〗_16 〖(1110001〗_2+11101_2)-1110_2 Дисциплина Основы теории информации Билет № 7 По каналу связи передаются сообщения, вероятности которых равны:p(x_1 )=0,1; p(x_2 )=0,2;p(x_3 )=0,5;p(x_4 )=0,2. Канальная матрица, определяющая потери информации в канале связи P(X/Y) =■(0,8&0,1&0&[email protected],05&0,8&0,15&[email protected]&0,4&0,6&[email protected]&0&0,02&0,88) Определите энтропию источника и приемника информации Дисциплина Основы теории информации Билет № 8 По каналу связи передаются сообщения, вероятности которых равны:p(x_1 )=0,11; p(x_2 )=0,70;p(x_3 )=0,15;p(x_4 )=0,04. Канальная матрица, определяющая потери информации в канале связи P(X/Y) =■(0,7&0,3&0&[email protected],05&0,8&0,15&[email protected]&0,4&0,4&0,[email protected]&0&0,02&0,88) Определите энтропию источника и приемника информации Дисциплина Основы теории информации Билет № 9 По каналу связи передаются сообщение, из ансамбля X =■(x_1&x_2&x_3&x_4&x_5&[email protected],05&0,25&0,42&0,08&0,15&0,05) Средняя длительность передачи одного элемента сообщения в канале τ=0,22 мс Шум в канале отсутствует. Определить пропускную канала и скорость передачи информации Дисциплина Основы теории информации Билет № 10 По каналу связи передаются сообщение, из ансамбля X =■(x_1&x_2&x_3&x_4&x_5&[email protected],13&0,21&0,18&0,08&0,02&0,02) Средняя длительность передачи одного элемента сообщения в канале τ=0,40 мс Шум в канале отсутствует. Определить пропускную канала и скорость передачи информации Дисциплина Основы теории информации Билет № 11 Вычислите результат арифметических операций и результаты представьте в обозначенных системах счисления: 〖(72〗_8-15_8)/2_8 〖(4A5〗_16+28_16)-〖A7〗_16 〖(111110001〗_2+11101_2)-1110_2 Билет № 12 Двое жителей острова, А и В, разговаривали между собой. Проходивший мимо незнакомец спросил у А: «Вы – рыцарь или лжец?». Тот ответил, но так неразборчиво, что незнакомец ничего не смог понять. Тогда незнакомец спросил у В: «Что сказал А?». «А сказал, что он – лжец», – ответил В. Кто из островитян А и В – рыцарь и кто – лжец? Билет № 13 Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы используйте: 1) ИВВВ111у Билет № 14 Выполнить вручную кодирование сообщения методом RLE. В качестве исходной фразы используйте: 1) еВпппВ11уфффуугггддд

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

Ответ:

калькуляторлена

08.01.2020 23:40

//Я просто опишу метод записи матрицы
const n=100;
var ar:array of array of integer;
ars:array of array of string;
i:integer;

procedure complection(var ar:array of array of integer;var ars:array of array of string);
var
i,j:integer;
begin;
for i:=1 to n do
begin;
for j:=1 to n do
begin;
ar[i,j]:=random(9);
str(ar[i,j],ars[i,j]);
end;
end;
end;

procedure burning(ars:array of array of string);
var
i,j:integer;
t:text;
begin;
assign(t,'text.txt');
rewrite(t);
for i:=1 to n do
begin;
writeln(t,' ');
for j:=1 to n do
write(t,ars[i,j],' ');
end;
end;

begin;
randomize;
setlength(ar,n+1);
setlength(ars,n+1);
for i:=1 to n do
begin;
setlength(ar[i],n+1);
setlength(ars[i],n+1);
end;
complection(ar,ars);
burning(ars);
end.

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

Ответ:

sirkovake

01.12.2021 02:10

Для стека:
const
MAX_SIZE = 100;
var
size, n: integer;
stack: array[1..MAX_SIZE] of integer;

procedure push(a: integer);
begin
inc(size);
stack[size] := a;
end;

procedure view;
var
i: integer;
begin
for i := 1 to size do
write(stack[i], ' ');
writeln;
end;

Для очереди:
const
MAX_SIZE = 100;
var
head, tail: integer;
queue: array[1..MAX_SIZE] of integer;

procedure push(a: integer);
begin
queue[tail] := a;
inc(tail);
end;

procedure view;
var
i: integer;
begin
for i := head to tail - 1 do
write(queue[i], ' ');
writeln;
end;

И стек и очередь реализованы с массива. Нужно следить, чтобы размер структуры не был больше размера массива

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

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