Пакет программ ТС-Практикум / TMP / SIGNAL

program Data_tc  ;

uses 
  TpCrt,
  TpCmd;

var
  C,pat5  : string;
  sy : char ;
  f2 : file of extended ;
  x   : array[1..512] of extended ;
  t,ta,max,min,r : extended ;
  i,j,n  : integer ;
  {$I signal.inc}
begin
   c    := paramstr(1) ;
   pat5 := paramstr(2) ;
   randomize;
   Assign(f2,pat5+'\signal.dat') ;
   val(c,i,j) ;
   ta := i ;
   t := 0 ;
   max := signal(t) ;
   min := max ;
   x[1] := max ;
   for i := 1 to 512 do
     begin
	t := (i-1) * Ta/512  ;
	x[i] := signal(t) ;
	if x[i] > max
	    then
	       max := x[i] ;
	if x[i] < min
	    then
	       min := x[i] ;
     end ;

   Rewrite(f2) ;
   write(f2,Ta) ;
   for i := 1 to 512 do
     write(f2,x[i]) ;
   write(f2,max) ;
   write(f2,min) ;
   write(f2,min) ;
   close(f2) ;



end.