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

   readln;

   clrscr;

   writeln('Номер гармоники         Амплитуда            Фаза');

   writeln('');

   end;

   textcolor(14);

   if j>9 then

   writeln('    ',j,'                  Аm=',Xm:3:3,'В','       ф=',fi:3:3,'градусов')

   else

   writeln('     ',j,'                  Аm=',Xm:3:3,'В','       ф=',fi:3:3,'градусов');

   t:=t+1;

   end;

Exit:

  textcolor(2);

  writeln('');

  writeln('Хотите повторить?(Y/N)');

  textcolor(7);

  readln(ts);

  if ts='y' then goto m1;

end.