DP.32 · Радиотехника
Задача
По индуктивности и ёмкости найти резонансную частоту и характеристическое сопротивление.
Алгоритм
f0 = 1/(2*pi*sqrt(L*C)), волновое сопротивление rho = sqrt(L/C).
Исходный код
program RezonansLc;
{$mode delphi}{$apptype console}
uses SysUtils, Math;
var L, C, f, rho: Double;
begin
Write('L (мкГн): '); ReadLn(L);
Write('C (пФ): '); ReadLn(C);
L := L * 1e-6; C := C * 1e-12;
f := 1 / (2 * Pi * Sqrt(L * C));
rho := Sqrt(L / C);
WriteLn(Format('Резонанс f0 = %.4f МГц', [f / 1e6]));
WriteLn(Format('Волновое сопротивление = %.1f Ом', [rho]));
ReadLn;
end.
Пояснения
L вводится в мкГн, C в пФ и переводятся в СИ. Формула Томсона — основа радиоприёмных цепей.