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км. Решите хоть очень надо!
Ответы
// PascalABC.NET 3.3, сборка 1634 от 14.02.2018
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк (столбцов) в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-50,50);
a.Println(4); Writeln(4*a.ColCount*'-');
var s:=a.ElementsByRow;
Writeln('Сумма элементов массива ',s.Sum);
Writeln('Произведение отрицательных элементов ',
s.Where(t->t<0).Aggregate(BigInteger(1),(p,q)->p*q));
Writeln('Количество положительных элементов ',
s.Where(t->t>0).Count)
end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Популярные вопросы в разделе
решить информатику буду благодарен...
Автор: Альберт Луиза1595
Что такое телеконференция? как стать участником телеконференции?
Автор: АндреевичАндрей
Как сделать реферат на телефоне
Автор: randat887040
Рассмотрите блок схему и запишите трассировочную таблицу
Автор: tsigankova2018
2. Текстовая, числовая, графическая, звуковая, комбинированная.
3. Процессы получения, создания, сбора, обработки, хранения, накопления, поиска, представления, использования и распространения информации. Основные виды: хранение, передача, обработка информации.
4. Количество символов, используемых в алфавите.
5. Бит, байт, кбайт, мбайт, гбайт.
6. N = 2^i, где
N - мощность алфавита;
I - количество бит на символ.
7. Единицы измерения: 1 байт = 8 бит.
8. Информация, хранящаяся на внешнем носителе и объединенная общим именем.
9. Программы, которые обеспечивают управлением работы устройств и согласовании информационного обмена с другими устройствами.
10. Компьютерная программа, используемая для написания и модификации документов, компоновки макета текста и предварительного просмотра документов в том виде, в котором они будут напечатаны. 10. 32 бита = 4 байта, 2,5 кбайта = 2560 байта, 3 кбайта = 24576 бит, 6 байт = 48 бит.