Пакет программ ТС-Практикум / 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.