DP.37 · Радиотехника
Задача
По мощности в dBm вычислить мВт, Вт и амплитуду напряжения на 50-омной нагрузке.
Алгоритм
мВт = 10^(dBm/10), Вт = мВт/1000, напряжение U = sqrt(P*R) при R=50 Ом.
Исходный код
program DbmVatt;
{$mode delphi}{$apptype console}
uses SysUtils, Math;
var dbm, mw, w, u: Double;
begin
Write('Мощность (dBm): '); ReadLn(dbm);
mw := Power(10, dbm / 10);
w := mw / 1000;
u := Sqrt(w * 50);
WriteLn(Format('%.2f dBm = %.4f мВт = %.6f Вт', [dbm, mw, w]));
WriteLn(Format('Напряжение на 50 Ом = %.4f В', [u]));
ReadLn;
end.
Пояснения
0 dBm = 1 мВт. Логарифмическая шкала удобна для расчёта усиления и затухания трактов.