home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / FFT12.ZIP / PROCWRIT.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1985-12-13  |  768 b   |  26 lines
  1.  PROCEDURE WRITEDATA(VAR D: RANGE; VAR A: INTEGER);
  2.  
  3.     TYPE  DATA= RECORD
  4.                 W,Z : REAL
  5.                END;
  6.     VAR  INDEX :INTEGER;
  7.          XY: ARRAY[1..256] OF DATA;
  8.          DATAFILE: FILE OF DATA;
  9.          FILENAME: STRING[16];
  10.  
  11.     BEGIN
  12.        WRITE('Enter Name of Output File w/o Extension :  '); READLN(FILENAME);
  13.        FILENAME:= FILENAME+'.DAT';
  14.        ASSIGN(DATAFILE,FILENAME);
  15.        REWRITE(DATAFILE);
  16.        FOR INDEX:=1 TO A DO
  17.          BEGIN
  18.             WITH XY[INDEX] DO
  19.                BEGIN
  20.                   W:=D[INDEX].RE;
  21.                   Z:=D[INDEX].IM
  22.                END;
  23.             WRITE(DATAFILE,XY[INDEX])
  24.          END;
  25.        CLOSE(DATAFILE)
  26.     END;