Подсчитайте информационный объем слова «информатика», используя значение средней информативности алфавита, вычисленное по формуле шеннона: h=5 бит. сравните с результатом предыдущей . попробуйте объяснить расхождение. предыдущее : подсчитайте информационный объем слова "информатика", используя дял вычисления информационных весов символов формулу i = log2(1/p) и данные из табл. 1.2. вычисления проведите с электронной таблицы (ответ на предыдущее есть в интернете, так что решать заново не надо)
Объяснение:
Задание 1
program bukva;
const R=[' ','.',',',';',':','?','!','-']; // разделители
var
s,bukv:string;
i,kol,len:integer;
procedure UpCaseRus(var s:string);
{русские в верхний регистр}
var i:integer;
begin
for i:=1 to length(s) do
if s[i] in ['а'..'п'] then s[i]:=chr(ord(s[i])-32)
else if s[i] in ['р'..'я'] then s[i]:=chr(ord(s[i])-80)
else if s[i]='ё' then s[i]:='Ё';
end;
begin
readln(s);
readln(bukv);
UpCaseRus(s);
UpCaseRus(bukv);
For i:=length(s) downto 2 do
if ((s[i] in R) and (s[i-1] in R)) then delete(s,i,1);
len:=length(s);
kol:=0;
for i:=len downto 1 do
begin
if s[i] in R then
if s[i+1]=bukv then kol:=kol+1;
end;
if s[1]=bukv then kol:=kol+1;
writeln('Слов на букву '+bukv+' ',kol);
readln;
end.
Задание 2
const r=[' ','.',',',';',':','?','!','-'];
var
s:string;
i,kol,d:integer;
begin
readln(s);
len:=length(s);
kol:=0; d:=0;
For i:=length(s) downto 2 do
if ((s[i] in r) and (s[i-1] in r)) then delete(s,i,1);
for i:=1 to length(s) do
begin
if s[i] in r then kol:=kol+1
else if (s[i] in ['0'..'9']) then d:=d+1;
end;
writeln('Слов всего ',kol+1);
writeln('Цифр в тексте ',d);
readln;
end.
Объяснение:1. Следует предварительно выделить необходимый фрагмент таблицы, на основе которого строится диаграмма, причем хорошо бы, чтоб левый столбец содержал названия строк, а первая строка – названия столбцов. Тогда мастер сразу включит их в диаграмму, расположив по осям или вставив в легенду. Если требуется выделить данные в разных частях таблицы, выделение выполняют при нажатой клавише Ctrl.
2. Выберите тип диаграммы. Предлагается 15 основных типов, у каждого из которых есть еще подтипы. Для круговой диаграммы берутся значения одного наименования: одной строки или одного столбца (такие значения одного наименования называются категорией).
3. Уточните диапазон данных и где они размещены (в строках или столбцах).
4. Введите общий заголовков диаграммы и подписи осей, если они будут присутствовать в диаграмме.
5. Определите, как разместить диаграмму: на отдельном листе или вместе с таблицей.
6. Нажмите Готово.
Если диаграмма на отдельном листе, перейти к таблице можно, используя панель навигации в нижней части окна Excel .
Готовую диаграмму можно отредактировать. Для этого надо
1. выделить ее,
2. один раз щелкнув по ней (выделенная диаграмма отмечена черными квадратиками по углам).
3. теперь ее можно удалить (Delete), двигать мышью по листу в нужное место листа, уменьшать или растягивать за черные квадратики.