Автоматизированные системыконтроля и управления РЭС, задания к контрольной и лабораторным работам, страница 21

                    i+21,round(-0.216*y1[i+1])+3*cy);

        readln;

        cleardevice;

      end;

m2: closegraph;

end;

begin

   fd:=32; fd1:=32; f:=1; am:=1;

m1:

   clrscr;

   textcolor(2);

   writeln('Частота дискретизации вывода: ',fd,'кГц');

   writeln('Изменить?(да-новое значение,нет-0)');

   readln(x2);

   if x2>0 then fd:=x2;

   writeln('Частота дискретизации ввода: ',fd1,'кГц');

   writeln('Изменить?(да-новое значение,нет-0)');

   readln(x2);

   if x2>0 then fd1:=x2;

   writeln('Частота сигнала: ',f,'кГц');

   writeln('Изменить?(да-новое значение,нет-0)');

   readln(x2);

   if x2>0 then f:=x2;

   writeln('Амплитуда сигнала: ',am,'В');

   writeln('Изменить?(да-новое значение,нет-0)');

   readln(x2);

   if x2>0 then am:=x2;

   writeln('Повторить ввод?(Y/N)');

   readln(x1);

   if x1='y' then goto m1;

   Kc:=round(1024/fd);

   Ka:=round(1024/fd1);

   fdcy:=1024/Kc;

   fday:=1024/Ka;

   n:=round(fdcy/f);

   Q:=10.24/S_BIN;

   AMPy:=(round(am/Q))*Q;

   if n>=SIZE1 then

   begin

   textcolor(4);

   clrscr;

   writeln('Длина реализации превышает максимальное значение (2048)!');

   writeln('(уменьшите значение частоты дискретизации вывода)');

   textcolor(2);

   readln;

   goto m1;

   end;

   if n=0 then

   begin

    textcolor(4);

    clrscr;

    writeln('Ошибка!!! Заданная частота больше частоты дискретизации вывода!');

    readln;

    textcolor(2);

    goto m1;

   end;

   p:=trunc(2048/n);

   n:=round(p*fdcy/f);

   Ff:=p*fdcy/n;

   clrscr;

   writeln('Установленные значения:');

   writeln('Частота дискретизации вывода:', fdcy,'кГц');

   writeln('Частота дискретизации ввода:', fday,'кГц');

   writeln('Частота сигнала:', Ff,'кГц');

   writeln('Амплитуда сигнала:', AMPy,'В');

   writeln('');

   writeln('Параметры синтеза и ввода:');