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

m4:  setcolor(yellow);

     b:=trunc((n/580)+1);

     xx:=b;

     for i1:=1 to b do

     begin

     setcolor(7);

      for i:=1 to 9 do

       begin

        line(20,32+(i-1)*22,640,32+(i-1)*22);

        line(cx+i*64,10,cx+i*64,230);

        line(20,272+(i-1)*22,640,272+(i-1)*22);

        line(cx+i*64,250,cx+i*64,470);

       end;

     setcolor(3);

     line(cx-2,20,cx,10); line(cx+2,20,cx,10); line(cx-2,260,cx,250);

     line(cx+2,260,cx,250); line(630,cy-2,640,cy); line(630,cy+2,640,cy);

     line(630,3*cy-2,640,3*cy); line(630,3*cy+2,640,3*cy); line(cx,10,cx,230);

     line(cx,250,cx,470); line(20,cy,640,cy); line(20,3*cy,640,3*cy);

     outtextxy(620,cy+5,'t'); outtextxy(620,3*cy+5,'t');

     outtextxy(0,cy+5,' 0'); outtextxy(0,3*cy+5,' 0');

     outtextxy(0,cy-41,' 1'); outtextxy(0,cy-85,' 2');

     outtextxy(0,cy-107,'     Uс,B'); outtextxy(0,cy+37,'-1');

     outtextxy(0,cy+81,'-2'); outtextxy(0,3*cy-41,' 1');

     outtextxy(0,3*cy-85,' 2'); outtextxy(0,3*cy-107,'     Uсч,B');

     outtextxy(0,3*cy+37,'-1'); outtextxy(0,3*cy+81,'-2');

     outtextxy(10,240,'Графики сигналов: синтезированного(верх) и считанного(низ)');

     setcolor(14);

     for i:=1 to 580 do

      begin

          y[i]:=signal2_[i+(i1-1)*580]-S_NUL;

          y1[i]:=(signal1_[i+(i1-1)*580]);

      end;

      if xx=1 then

        begin

         xvost:=round(frac(n/580)*580);

         for i:=1 to xvost-1 do

          begin

           line(i+20,round(-0.109*y[i])+cy,

                   i+21,round(-0.109*y[i+1])+cy);

           line(i+20,round(-0.216*y1[i])+3*cy,

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

          end;

         readln;

        goto m2;

        end;

        xx:=xx-1;

       for i:=1 to 579 do

           line(i+20,round(-0.109*y[i])+cy,

                    i+21,round(-0.109*y[i+1])+cy);

       for i:=1 to 579 do

           line(i+20,round(-0.216*y1[i])+3*cy,