Расчет зависимости действующей высоты ферритовой антенны от рабочей частоты радиоприемника, страница 6

readln;

writeln (fa, `q = от 1 до 5, r = от 0 до 2`);

writeln (`Нажмите ENTER`);

writeln (`Дополнительные каналы приема:`);

writeln (fa, `Дополнительные каналы приема:`);

for q: = 1 to 5 do begin

for r: = 1 to 2 do begin

Fdop_plus [q,r]: = r/q*Fget + Fpr/q;

if r<>0 then Fdop_minus [q,r]: = = r/q*Fget - Fpr/q;

if Fdop_plus [q,r] > Fmin then

if Fdop_plus [q,r] < Fmax then

if r<>0 then

writeln (`Fdop_минус [`,q,`,`,r,`] = `, Fdop_minus [q,r]:1:2, `kHz`);

writeln (fa, `Fdop_минус [`,q,`,`,r,`] = `, Fdop_minus [q,r]:1:2, `kHz`);

writeln (`Fdop_плюс [`,q,`,`,r,`] = `, Fdop_plus [q,r]:1:2, `kHz`);

writeln (fa, `Fdop_плюс [`,q,`,`,r,`] = `, Fdop_plus [q,r]:1:2, `kHz`);

end;

writeln (`Нажмите ENTER`);

readln;

end;

close (fa);

end.

Результаты расчета из файла kanal.txt

Программа расчета дополнительных (паразитных)

Каналов супергетеродинного радиоприемника

Введите Ваш вариант N = 22

Исходные данные:

Промежуточная частота Fpr = 465.000kHz

Частота принимаемого сигнала F = 1420.000kHz

Частота гетеродина Fget =1885.000kHz

Нижняя частота диапазона Fmin = 347.000kHz

Верхняя частота диапазона Fmax = 4411.000kHz

q = от 1 до 5, r = от 0 до 2

Дополнительные каналы приема:

Fdop_минус [1,0] = 0.00kHz

Fdop_плюс [1,0] = 465.00kHz

Fdop_минус [1,1] = 1420.00kHz

Fdop_плюс [1,1] = 2350.00kHz

Fdop_минус [1,2] = 3305.00kHz

Fdop_плюс [1,2] = 4235.00kHz

Fdop_минус [2,0] = 0.00kHz

Fdop_плюс [2,0] = 232.50kHz

Fdop_минус [2,1] = 710.00kHz

Fdop_плюс [2,1] = 1175.00kHz

Fdop_минус [2,2] = 1652.50kHz

Fdop_плюс [2,2] = 2117.50kHz

Fdop_минус [3,0] = 0.00kHz

Fdop_плюс [3,0] = 155.00kHz

Fdop_минус [3,1] = 473.33kHz

Fdop_плюс [3,1] = 783.33kHz

Fdop_минус [3,2] = 1101.67kHz

Fdop_плюс [3,2] = 1411.67kHz

Fdop_минус [4,0] = 0.00kHz

Fdop_плюс [4,0] = 116.25kHz

Fdop_минус [4,1] = 355.00kHz

Fdop_плюс [4,1] = 587.50kHz

Fdop_минус [4,2] = 826.25kHz