Uses crt; var r: array [1..10] of integer; nev, n, min,i, zap:integer; begin clrscr; write('Введите возраст невесты: '); readln(nev); write('Введите число женихов: '); readln(n); if n<2 then for i:=1 to n do begin write('Введите возраст ',i,'-го жениха: '); readln(r[i]); end;
i:=0; zap:=0; while (zap=0) and (i<=n) do begin i:=i+1; min:=nev-r[i]; if min>0 then zap:=i; end; if i<>n then begin for i:=zap to n do begin if min>(nev-r[i]) then begin zap:=i; min:=nev-r[i]; end; end; writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.'); writeln ('По счету это ',i,'-ый жених'); end else writeln('Среди женихов нет подходящего для нашей невесты.'); end; else writeln('Число женихов должно быть более 2!'); end.
1. Мощность - 64 символа, Объем информации - 30 байт
2. 16 символов
3. 2 и 3 байта соответственно
Объяснение:
1. Формула(Ф1) объема информации , где I - объем в битах, k - количество символов, i - вес одного символа. Подставляем значения: I=40*6=240бит. Т.к. 1байт = 8 бит, то I= 240/8=30 байт.
Мощность алфавита (N) вычисляется по формуле(Ф2) , где i - информационный вес одного символа. Подставляем значения: символа.
2. Объем сообщения 0,5 КБайта, а т.к 1 КБ= байт = бит, то объем сообщения равен бит.
Количество символов в тексте = кол-во символов в строке * кол-во строк * кол-во страниц = символов.
По формуле Ф1 получаем, что , откуда вес одного символа равен бита.
По формуле Ф2 получаем символов
3. Объем первого сообщения бит, второго - бит. Количество символов первого сообщения символов, второго - символов. По формуле Ф1 получаем, что . Подставляем значения: полученные значения в БИТАХ.
т.к. 1 байт = 8 бит, то получаем значения в байтах
var r: array [1..10] of integer;
nev, n, min,i, zap:integer;
begin
clrscr;
write('Введите возраст невесты: '); readln(nev);
write('Введите число женихов: '); readln(n);
if n<2 then
for i:=1 to n do
begin
write('Введите возраст ',i,'-го жениха: '); readln(r[i]);
end;
i:=0; zap:=0;
while (zap=0) and (i<=n) do begin
i:=i+1;
min:=nev-r[i];
if min>0 then zap:=i;
end;
if i<>n then
begin
for i:=zap to n do
begin
if min>(nev-r[i]) then
begin
zap:=i;
min:=nev-r[i];
end;
end;
writeln('Самый молодой жених старше невесты в возрасте ',r[zap], ' лет. Разница в возрасте составляет ', min, ' лет.');
writeln ('По счету это ',i,'-ый жених');
end
else writeln('Среди женихов нет подходящего для нашей невесты.');
end;
else writeln('Число женихов должно быть более 2!');
end.
1. Мощность - 64 символа, Объем информации - 30 байт
2. 16 символов
3. 2 и 3 байта соответственно
Объяснение:
1. Формула(Ф1) объема информации
, где I - объем в битах, k - количество символов, i - вес одного символа. Подставляем значения: I=40*6=240бит. Т.к. 1байт = 8 бит, то I= 240/8=30 байт.
Мощность алфавита (N) вычисляется по формуле(Ф2)
, где i - информационный вес одного символа. Подставляем значения:
символа.
2. Объем сообщения 0,5 КБайта, а т.к 1 КБ=
байт =
бит, то объем сообщения равен
бит.
Количество символов в тексте = кол-во символов в строке * кол-во строк * кол-во страниц =
символов.
По формуле Ф1 получаем, что
, откуда вес одного символа равен
бита.
По формуле Ф2 получаем
символов
3. Объем первого сообщения
бит, второго -
бит. Количество символов первого сообщения
символов, второго -
символов. По формуле Ф1 получаем, что
. Подставляем значения:
полученные значения в БИТАХ.
т.к. 1 байт = 8 бит, то получаем значения в байтах![\left \{ {{i_{1} =\frac{16}{8} }=2, \atop {{{i_{2} =\frac{24}{8}} = 3.\right.](/tpl/images/1463/7983/d1704.png)