Вот такие вот по информатике)
1 для кодирования некоторой последовательности, состоящей из букв а, б, в, г, д, е, ж, з, решили использовать не равномерный двоичный код, удовлетыоряющий условию фано. для букв а,б,в,г,д,е использовали соответственно кодовые слова 0101, 101, 011, 00, 0100, 11. укажите кратчайшее возможное кодовое слово для буквы ж, при котором код будет допускать однозначное декорирование. если таких кодов несколько, укажите код с наименьшим числовым значением.
2. для кодирования некоторой последовательности, состоящей из букв а, б, в, г, д, е, ж, з, и, й. решили использовать не равномерный двоичный код, удовлетыоряющий условию фано. для букв а,б,в,г,д,е,ж,з,и использовали соответственно кодовые слова 111, 0100, 1100, 0010, 0001, 0011, 0110, 1001, 1010 укажите кратчайшее возможное кодовое слово для буквы ж, при котором код будет допускать однозначное декорирование. если таких кодов несколько, укажите код с наименьшим числовым значением.
const n=20;
var a:array[1..20] of integer;
i,k2,k3,k4,k5:integer;
begin
Randomize;
writeln('Оценки:');
for i:=1 to n do begin
a[i]:=random(4)+2;
write(a[i],' ');
end;
writeln;
k2:=0;k3:=0;k4:=0;k5:=0;
for i:=1 to n do
case a[i] of
2: k2:=k2+1;
3: k3:=k3+1;
4: k4:=k4+1;
5: k5:=k5+1;
end;
writeln('Двоек: ',k2);
writeln('Троек: ',k3);
writeln('Четверок: ',k4);
writeln('Пятёрок: ',k5);
end.
Пример:
Оценки:
3 5 3 2 5 3 2 5 3 4 4 5 2 3 3 4 4 2 2 5
Двоек: 5
Троек: 6
Четверок: 4
Пятёрок: 5
function Avg(a:array[,] of integer):real;
begin
var s:=0; var k:=0;
foreach var e:integer in a do
if e>0 then begin s+=e; Inc(k) end;
if k>0 then Result:=s/k else Result:=1e-100;
end;
begin
var A:=MatrixRandom(4,4,-50,50); Writeln(A);
Writeln('Среднее арифметическое положительных равно ',Avg(A):0:3);
var B:=MatrixRandom(5,5,-30,30); Writeln(B);
Writeln('Среднее арифметическое положительных равно ',Avg(B):0:3);
var C:=MatrixRandom(4,5,-25,38); Writeln(C);
Writeln('Среднее арифметическое положительных равно ',Avg(C):0:3);
end.
Тестовое решение:
[[35,35,5,-47],[14,34,35,-13],[25,-5,35,-29],[-7,10,-12,12]]
Среднее арифметическое положительных равно 24.000
[[-12,-17,-10,19,14],[20,17,-27,-2,16],[-3,-21,30,2,10],[5,-3,-17,-3,18],[0,-26,29,1,-22]]
Среднее арифметическое положительных равно 15.083
[[-5,-11,17,-4,15],[15,17,-24,36,15],[-8,-3,-22,28,-25],[-21,6,12,31,-1]]
Среднее арифметическое положительных равно 19.200