1.Определите общее затухание тракта, если известно, что потери поглощения в волоконных световодах составляют 0,1 дБ/км, потери рассеивания 0,01 дБ/км, дополнительные потери составляют 10 дБ по всему тракту, длина которого равна 20км.
2.Определите общее затухание тракта, если известно, что его длина равна 40км, собственные потери составляют 3дБ\км, линия связи имеет изгиб через каждые 10 км, дополнительные потери 10 дБ, потеря сигнала при изгибе 2 дБ.
3.Сигнал на выходе передающей антенны 1200 дБ, на входе принимающей антенны 1000 дБ. Определите количество собственных потерь сигнала на каждом километре, если известно, что они составляют 75% от общих, а длина линии связи 20км.
4.Общее затухание тракта 200 дБ, если известно, что его длина равна 5км, потери поглощения составляют 3дБ\км, рассеивание сигнала 5дБ на каждый километр, кабельные потери составляют 50% от потерь поглощения и рассеивания. Найдите количество потерь, возникающих от посторонних примесей.
5.Рассчитайте макроизгибы в одномодовых и многомодовых волокнах, если известно, что радиус сердечника стекловолокна составляет 20 мкм, радиус поля моды равен 5 мкм =1,0%, диаметр оболочки 2 мкм, коэффициент принять 5, длина волны 20км.
Решите хоть очень надо!
Информационный объем I = 44100 Гц * 5 * 60 с * 16 бит = 211680000 бит = 26460000 байт = 25839,84375 Кбайт = 25,23422241210938 Мбайт
Задание 2
I = 1,3 Мбайт t = 1 мин Частота дискретизации v = 1,3 * 1024 * 1024 * 8 бит / 60 с / 8 бит = 22719,147 Гц
Задание 3
I = 5.1 Мбайт, t = 2 минуты, v = 22050 Гц Разрядность аудиоадаптера i = 5.1 * 1024 * 1024 * 8 бит / (2 * 60) с / 22050 Гц = 16,1685 бит (округленно 16 бит)
Задание 4
I = 0.01 Гбайт, i = 16 бит, v = 44100 Гц Время t = 0,01 * 1024 * 1024 * 1024 * 8 бит / 16 бит / 44100 Гц = 121 с (округляем до 120 с)
i, j, k : word;
f : boolean;
function isSpace(ch : char) : boolean;
begin isSpace := false;
if ch = ' ' then isSpace := true;
end;
begin f := false;
repeat j := 0;
writeln('введите строку, состоящую из 2 слов');
readln(s);
for i := 1 to length(s) do
if isSpace(s[i]) then
begin
inc(j);
k := i; end;
if j =1 then f := true;
until f;
write(copy(s, k + 1, length(s)), ' ', copy(s, 1, k - 1));
end.
недавно такую писала :)