решить Везде используется Формула К.Шеннона
1. По каналу связи передается пять сообщений, вероятность получения первого сообщения составляет 0,3; второго – 0,2; третьего – 0,14, а вероятности получения четвертого и пятого сообщений равны между собой. Какую степень неопределенности (энтропия) содержит событие после приема одного из сообщений?
2. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из шести событий. Вероятность первого события составляет 0,15; второго – 0,25; третьего – 0,2; четвертого – 0,12; пятого – 0,12; шестого – 0,1.
3. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из пяти событий. Вероятность первого события составляет 0,4; второго – 0,1; третьего – 0,2; вероятности четвертого и пятого событий – равны.
4. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из четырех событий. Вероятность первого события составляет 0,2; второго – 0,3; вероятности третьего и четвертого событий – равны.
5. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из шести событий. Вероятность первого события составляет 0,25; второго – 0,1; третьего – 0,15; четвертого – 0,18, вероятности пятого и шестого событий – равны.
6. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из четырех событий. Вероятность первого события составляет 0,18; второго – 0,32; вероятности третьего и четвертого событий – равны.
7. Какую степень неопределенности (энтропия) содержит опыт после реализации одного из шести событий. Вероятность первого события составляет 0,1; второго – 0,2; третьего – 0,25; четвертого – 0,17; пятого – 0,12; шестого – 0,1.
8. По каналу связи передается пять сообщений, вероятность получения первого сообщения составляет 0,27; второго – 0,25; третьего – 0,12, а вероятности получения четвертого и пятого сообщений равны между собой. Какую степень неопределенности (энтропия) содержит событие после приема одного из сообщений?
var
s: string[6];
n: integer;
begin
s := 'отлично';
n := length(s);
writeln(length('отлично'));
writeln(n);
end.
Изначально выставлен тип string[6], значит если присвоить строку больше, то ее обрежет по 6 символов, вот и весь прикол
ответ 6
2) рисунок
3)var
s, s1: string;
n: integer;
begin
s := 'информатика';
s1 := copy(s, 3, 5);
n := pos(s, s1);
writeln('s=', s);
writeln('s1=', s1);
writeln('n=', n);
end.
Вывод
s=информатика
s1=форма
n=0
Все верно, в s1 не содержится s, а наоборот
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.