home *** CD-ROM | disk | FTP | other *** search
/ Hacker Chronicles 2 / HACKER2.BIN / 280.MAKE.PAS < prev    next >
Pascal/Delphi Source File  |  1986-05-13  |  2KB  |  67 lines
  1.  
  2. Program Make_SailPlane_Air_Foil_File;
  3.   (* DO NOT RUN THIS PROGRAM UNLESS YOU KNOW ABOUT TURBO PASCAL IN DETAIL ! *)
  4.   (* Below sets up random access file on disk containing : Reynolds number, *)
  5.   (* Foil name times 4 ( E205, E2051, E2052, E2054, etc. ) and Coef of Drag *)
  6. Const
  7.       Foil_Records = 45;   (* Number of Records *)
  8.  
  9. Type
  10.       Foil_ID = String [30];
  11.       Air_Foil_Record  = Record
  12.                           Name : Foil_ID; (* like E205 or NACA 2214, etc. *)
  13.                           R_Number1 : Real;  (* Reynolds assoc. with Record  *)
  14.                           R_Number2 : Real;  (* Reynolds assoc. with Record  *)
  15.                           R_Number3 : Real;  (* Reynolds assoc. with Record  *)
  16.                           R_Number4 : Real;  (* Reynolds assoc. with Record  *)
  17.                           Drag_Array1 : Array [1..64] of Real;
  18.                           Drag_Array2 : Array [1..64] of Real;
  19.                           Drag_Array3 : Array [1..64] of Real;
  20.                           Drag_Array4 : Array [1..64] of Real;
  21.                      (* Coef of Lift as edited and calc. *)
  22.                           Rec_Number : Integer;
  23.                          End; (* of Record on Disk *)
  24.  
  25.      (* Variables For Diminsions, Weights, Coefficents, Ratios Etc. *)
  26. Var
  27.       Foil_File : File of Air_Foil_Record;
  28.       Foil_Record : Air_Foil_Record;
  29.  
  30.       I, J : Integer;                 (* Counters for Program Control *)
  31.  
  32.      (* End of Declaration of Variables *)
  33.  
  34. Begin
  35. (* DO NOT RUN THIS PROGRAM UNLESS YOU KNOW ABOUT TURBO PASCAL IN DETAIL *)
  36. End. (* Remove this line if you know what you are doing *)
  37. Assign ( Foil_File, 'MAKE.DAT');
  38. ReWrite ( Foil_File ); (* Opens File *)
  39.  
  40. With Foil_Record  Do   Begin
  41.  
  42. For I := 1 to Foil_Records  Do  Begin
  43.  
  44.    Name := 'Undefined';
  45.    R_Number1 := 0.0;
  46.    R_Number2 := 0.0;
  47.    R_Number3 := 0.0;
  48.    R_Number4 := 0.0;
  49.  
  50.  For J := 1 to 64  Do  Begin
  51.    Drag_Array1 [J] := 0.0;
  52.    Drag_Array2 [J] := 0.0;
  53.    Drag_Array3 [J] := 0.0;
  54.    Drag_Array4 [J] := 0.0;
  55.  End;
  56.    Rec_Number := I;
  57.    Write ( Foil_File, Foil_Record );
  58.  
  59. End; (* of For I 1 to F_Rs *)
  60.  
  61. End; (* of With Foil File Do *)
  62.  
  63. Close ( Foil_File );
  64.  
  65. End.
  66.  
  67. (*****************************************************