Для записи текста использовался 256-символьный алфавит. Каждая страница содержит 32 строки по 80 символов в строке. Какой объем информации в килобайтах содержат 16 страниц текста? желательно с условием
//Школьный вариант с уродливым "пузырьком" //Pascal ABC.NET 3.1 сборка 1256
Const n=10; m=20; z=30;
Var ar1:array[1..n] of integer; ar2:array[1..m] of integer; ar3:array[1..z] of integer; i,k,j:integer; b:boolean;
begin randomize; k:=-1; b:=false; for i:=1 to n do ar1[i]:=random(20); for i:=1 to n-1 do for j:=i+1 to n do if ar1[i]>ar1[j] then swap(ar1[i],ar1[j]); writeln('Array 1:'); for i:=1 to n do write(ar1[i]:4); writeln; for i:=1 to m do ar2[i]:=random(20); for i:=1 to m-1 do for j:=i+1 to m do if ar2[i]>ar2[j] then swap(ar2[i],ar2[j]); writeln('Array 2:'); for i:=1 to m do write(ar2[i]:4); writeln; for i:=1 to z do ar3[i]:=random(20); for i:=1 to z-1 do for j:=i+1 to z do if ar3[i]>ar3[j] then swap(ar3[i],ar3[j]); writeln('Array 3:'); for i:=1 to z do write(ar3[i]:4); for i:=1 to n do begin k:=-1; for j:=1 to m do if ar1[i]=ar2[j] then begin k:=ar1[i]; break; end; if k=-1 then continue; for j:=1 to z do if k=ar3[j] then begin b:=true; break; end; if b=true then break; end; writeln; writeln('Result:'); if b=false then writeln('Нет') else writeln(k); end.
Одно из "быстрых по написанию" решений, не учитывающих фактор наличия упорядоченности массивов. Это разумно: за решение - не та цена, за которую есть смысл составлять и отлаживать эффективный алгоритм поиска по упорядоченным массивам.
// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 begin var x:=ArrRandom(ReadInteger('p='),-20,20).Sorted; var y:=ArrRandom(ReadInteger('q='),-10,15).Sorted; var z:=ArrRandom(ReadInteger('r='),1,18).Sorted; x.Println; y.Println; z.Println; var r:=x.Intersect(y.Intersect(z)); if r.Count=0 then Writeln('Нет общих элементов') else begin Write ('Общие элементы: '); r.Println end end.
Объяснение:
1) N = 2^i
256 = 2^i
i = 8 бит глубина кодирования одной буквы из 256-символьного алфавита
2) 30 * 70 * 5 = 10500 символов всего на 5 страницах текста
3) 10500 * 8 бит = 84000 бит нужно для кодирования всего текста
84000 / 8 = 10500 байт / 1024 = 10,25 Кбайт
ответ: 10,25 Кбайт нужно для кодирования всего текста