Практическая работа «Измерение информации» Задание: Решить задачи, решение ОБЯЗАТЕЛЬНО.
1. В сообщении используется 16-символьный алфавит. Сколько байт информации будет в письме, составленном вождем этого племени и содержащем 8 строк по 8 символов.
2. Информационное сообщение объемом 650 битов состоит из 130 символов. Каков информационный вес каждого символа этого сообщения? Какова мощность алфавита, с которого было написано это сообщение?
3. Сообщение занимает 4 страницы по 30 строк. В каждой строке по 50 символов. Сколько символов в использованном алфавите, если все сообщение содержит 6000 байтов?
Если не ошебаюсь то так ) Дан массив размера N. Найти номера тех элементов массива, которые больше своего правого соседа,
и количество таких элементов. Найденные номера выводить в порядке их возрастания.
var a,d:array[1..255]of integer;
i,c,n:byte;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a)
end;
writeln;
c:=0;
for i:=1 to n-1 do
if a>a[i+1] then
begin
c:=c+1;
d[c]:=i
end;
writeln('TaKuX EJIEMEHTOB:',c);
for i:=1 to c do write(d,' ');
writeln
end.
2) Дан целочисленный массив A размера N,являющийся перестановкой.
Найти количество инверсий в данной перестановке,т.е. таких пар Ai И Aj элементов
в которых большее число находится слева от меньшего:Ai>Aj при i<j>L) и целочисленный массив размера N.
Заменить каждую серию массива, длина которой меньше L, на один элемент с нулевым значением.
Что-то я не понял, что это за Л? Вот решил так:
var a:array[1..256]of integer;
i,j,n:byte;
c:integer;
begin
write('n=');
read(n);
for i:=1 to n do
begin
write('a[',i,']=');
read(a)
end;
writeln;
c:=0;
for i:=1 to n-1 do
for j:=i+1 to n do
if a>a[j] then inc(c);
writeln('Колличество инверсий - ',c);
end.
program ex1; Здесь название программы
var i:real; вводишь переменные
begin открываешь тело программы
i:=3
while i<7 do задаешь цикл
begin
writeln(i); вывод числа
i:=i+0.2 ; задаешь шаг цикла
end; закрываешь цикл
end. закрываешь тело программы