Program z2_65;
uses crt;
Label a1,a2,a3,a4,a5,a6,a7;
var a,s,h,rv,ro,p:real;
n:integer;
begin
clrscr;
Writeln('Укажите номер пункта:');
writeln('1. Дана сторона треугольника.');
writeln('2. Дана площадь треугольника.');
writeln('3. Дана высота треугольника.');
writeln('4. Дан радиус вписанной окружности треугольника.');
writeln('5. Дан радиус описанной окружности треугольника.');
read(n);
case n of
1:Begin Write('a=');read(a);goto a1;end;
2:begin Write('s=');read(s);goto a2;end;
3:Begin Write('h=');read(h);goto a3;end;
4:Begin Write('r=');read(rv);goto a4;end;
5:Begin Write('R=');read(ro);goto a5;end;
else
begin
write('Такого номера пункта нет.');
goto a7;
end;
end;
a1: rv:=a/2;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a2: a:=sqrt(4*s/sqrt(3));
h:=2*s/a;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a3: a:=2*h/sqrt(3);
s:=a*h/2;
rv:=a/2;
ro:=a/Sqrt(3);
goto a6;
a4: a:=2*rv;
ro:=a/Sqrt(3);
s:=sqrt(3)*sqr(a)/4;
h:=2*s/a;
goto a6;
a5: a:=sqrt(3)*ro;
s:=(a*a*a)/(4*ro);
h:=2*s/a;
rv:=a/2;
a6: writeln('a=',a:2:2);
writeln('s=',s:2:2);
writeln('h=',h:2:2);
writeln('R=',ro:2:2);
writeln('r=',rv:2:2);
a7: readkey;
end.
3. Ткёт ткач ткани
Объяснение:
Строим дерево по таблице количеств повторений символов:
Символ "Т" повторяется 4 раза
Символ "К" повторяется 3 раза
Символ "Ё" повторяется 1 раз
Символ " " повторяется 2 раза
Символ "А" повторяется 2 раза
Символ "Ч" повторяется 1 раз
Символ "Н" повторяется 1 раз
Символ "И" повторяется 1 раз
Каждый символ является конечным узлом дерева, количество повторений символа это вес узла.
Создадим список нераспределенных узлов по возрастанию весов.
{"Ё"(1)} {"Ч"(1)} {"Н"(1)} {"И"(1)} {"_"(2)} {"А"(2)} {"К"(3)} {"Т"(4)}Объединим узлы с минимальным весом {"Ё"(1)} и {"Ч"(1)} в новый узел с весом 1+1=2
и поставим этот узел в список вместо исходных узлов в соответствии с получившимся весом:
{"Н"(1)} {"И"(1)} {"1 (2)":{"Ё"(1)},{"Ч"(1)}} {"_"(2)} {"А"(2)} {"К"(3)} {"Т"(4)}Объединим узлы с минимальным весом {Н(1)} и {И(1)} в новый узел с весом 1+1=2, поставим этот узел в список и отсортируем по весу узлов:
{"2 (2)":{"Н"(1)},{"И"(1)}} {"1 (2)":{"Ё"(1)},{"Ч2(1)}} {"_"(2)} {"А"(2)} {"К"(3)} {"Т"(4)}Теперь объединяем узлы {"2 (2)":{"Н"(1)},{"И"(1)}} и {"1 (2)":{"Ё"(1)},{"Ч"(1)}} в узел 3 с весом 2+2=4
{"_"(2)} {"А"(2)} {"К"(3)} {"3 (4)":{"2 (2)":{"Н"(1)},{"И"(1)}},{"1 (2)":{"Ё"(1)},{"Ч"(1)}}} {"Т"(4)}Повторим с объединением "_" и "А" в узел 4 с весом 2+2=4
{"К"(3)} {"4 (4)":{"_"(2)},{"А"(2)}} {"3 (4)":{"2 (2)":{"Н"(1)},{"И"(1)}},{"1 (2)":{"Ё"(1)},{"Ч"(1)}}} {"Т"(4)}далее объединение узлов "К" и 4 в узел 5 с весом 4+3=7
{"3 (4)":{"2 (2)":{"Н"(1)},{"И"(1)}},{"1 (2)":{"Ё"(1)},{"Ч"(1)}}} {"Т"(4)} {"5 (7)":{"К"(3)},{"4 (4)":{"_"(2)},{"А"(2)}}}узлы 3 и "Т" объединяем в узел 6 с весом 4+4=8
{"6 (8)":{"3 (4)":{"2 (2)":{"Н"(1)},{"И"(1)}},{"1 (2)":{"Ё"(1)},{"Ч"(1)}}},{"Т"(4)}} {"5 (7)":{"К"(3)},{"4 (4)":{"_"(2)},{"А"(2)}}}Оставшиеся 2 узла объединяются в корневой узел 7 с весом 7+8=15 и дерево готово.
код каждого символа получается как путь по дереву от корня до соответствующего листа:
"Т" код равен "11"
"К" код равен "00"
"А" код равен "011"
" " код равен "010"
"И" код равен "1001"
"Н" код равен "1000"
"Ч" код равен "1011"
"Ё" код равен "1010"
Длина кодированного сообщения равна сумме произведений количества повторений каждого символа на длину его кода:
4*2+3*2+1*4+2*3+2*3+1*4+1*4+1*4=42 бит
Длина кодированного сообщения равна 42 бит:
110010101101011000111011010110001110001001
ТКЁТ ТКАЧ ТКАНИ
Длина исходного сообщения 15 байт или 120 бит в ASCII:
сообщение содержит 8 различных символов. Длина кода одного символа при равномерном кодировании равна log₂(8)=3 бит
при равномерном кодировании длина текста равна 15*3=45 бит
Сжатие по отношению к 8-ми битному коду равно 120/42=~2.86
Сжатие по отношению к равномерному коду равно 45/42=~1.07
http://www.bolshoyvopros.ru/questions/3211301-kak-algoritmom-haffmana-postroit-derevo-i-kody-dlja-frazy-tkjot-tkach-tkani.html