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

Для представления результатов в виде массива данных воспользуемся программой Тurbo Раsсаl 7.1. и составим небольшую программу для расчета, после выполнения, программа сохраняет файл kапаl.txt с результатами вычислений.

Листинг программы.

program PARAZIT;

uses crt;

label 1;

var N, r, q, k, p: integer;

F, Fpr, Fget, dF1, dF2, Fmin, Fmax: real;

Fdop_plus, Fdop_minus: array [0..50, 0..50] of real;

fa: text;

begin

1: clrscr;

assing (fa, `kanal.txt`);

rewrite (fa);

textcolor (14);

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

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

writeln (`каналов супергетеродинного радиоприемника `);

writeln (fa, ` каналов супергетеродинного радиоприемника `);

write (`Введите Ваш вариант N =`);

read (N);

writeln (fa, ` Введите Ваш вариант N =` N:2);

readln;

if N > 26 then begin

writeln (` Неверно N`);

writeln (` Повторите ввод`);

readln;

goto 1;

end;

Fpr: = 465;

F: = 1200 + 10*N;

dF1: = 984 + 4*N;

dF2: = F + 3*Fpr + 8*N;

Fget: = F + Fpr;

Fmin: = F – dF1;

Fmax: = F + dF2;

writeln (` Исходные данные`);

writeln (fa, ` Исходные данные`);

readln;

writeln (` Промежуточная частота Fpr = `, Fpr:1:3, `kHz`);

writeln (fa, ` Промежуточная частота Fpr = `, Fpr:1:3, `kHz`);

readln;

writeln (` Частота принимаемого сигнала F = `, F:1:3, `kHz`);

writeln (fa, ` Частота принимаемого сигнала F = `, F:1:3, `kHz`);

readln;

writeln (` Частота гетеродина Fget = `, Fget:1:3, `kHz`);

writeln (fa, ` Частота гетеродина Fget = `, Fget:1:3, `kHz`);

readln;

writeln (` Нижняя частота диапазона Fmin = `, Fmin:1:3, `kHz`);

writeln (fa, ` Нижняя частота диапазона Fmin = `, Fmin:1:3, `kHz`);

readln;

writeln (` Верхняя частота диапазона Fmax = `, Fmax:1:3, `kHz`);

writeln (fa, ` Верхняя частота диапазона Fmax = `, Fmax:1:3, `kHz`);