Apkawa/Study/pascal/lab1_task_15/task15_4.pas

   1 program task_15_mod_4;
   2 uses mt15_4 { use module mt15_4 } ;
   3 { use mod 2 with module }
   4 { tips for fpc - "fpc -mTP name_prog.pas" }
   5 const
   6     IN_FILE_PATH    = 'task_15.in';
   7     OUT_FILE_PATH   = 'task15_4.out';
   8     MAX_LENGTH_LINE = 24;
   9     MAX_LINES       = 10;
  10     START_FAMILY    = 1;
  11     END_FAMILY      = 15;
  12     START_PHONE     = 16;
  13     END_PHONE       = MAX_LENGTH_LINE;
  14 type
  15     in_lines_type = array [1..MAX_LINES] of result_line_type;
  16 var
  17     in_file, out_file: text;
  18     i:integer;
  19     in_lines: in_lines_type;
  20     family_line, phone_line: result_line_type;
  21 begin
  22     assign( in_file, IN_FILE_PATH);
  23     reset( in_file);
  24     assign( out_file, OUT_FILE_PATH);
  25     rewrite( out_file);
  26
  27     for i:=1 to MAX_LINES do
  28         begin
  29             {START read from in_file and write in out_file}
  30             readln( in_file, in_lines[i]);
  31             writeln( out_file, in_lines[i]);
  32             {END}
  33             find_min( in_lines[i], i, START_FAMILY, END_FAMILY, family_line );
  34             find_min( in_lines[i], i, START_PHONE, END_PHONE, phone_line );
  35
  36         end;
  37     close(in_file);
  38     writeln( out_file);
  39     writeln( out_file,'Result');
  40     writeln( out_file, 'min family');
  41     writeln( out_file, family_line);
  42     writeln( out_file, 'min phone');
  43     writeln( out_file, phone_line);
  44     close( out_file);
  45 end.