Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

  PROCEDURE RUN;

 BEGIN

  WRITE('Step 3: Calculating data and writting results to file : out.rez');

  X:=Xn;

  dX:=0.05;

  REPEAT

    IF (ABS(x-p)Xk);

  WRITELN('       - done.');

 END;

  PROCEDURE INIT;

 BEGIN

  ClrScr;

  WRITELN('Smith-04: v1.0 (c) 1998 by Mike Smith smith01@home.bar.ru ');

  WRITELN;

  WRITELN;

  WRITE('Step 1: Read data from file                           : in.dat');

  ASSIGN(f1,'in.dat');

  RESET(f1);

  READLN(f1,C[1],C[2],C[3]);

  READLN(f1,k1,k2,k3,k4);

  READLN(f1,Xn,Xk,dp,n,eps,p);

  WRITELN('        - done.');

  ASSIGN(f2,'out.rez');

  REWRITE(f2);

  WRITE('Step 2: Write header to file                          : out.rez'); 

Рекомендуем скачать другие рефераты по теме: доклад 2011, шпори для студентів.





Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата