tp_ejemplo/comandos.pas

   1 program comandos;\r
   2 {\r
   3         TRABAJO PRACTICO NUMERO 1\r
   4         1er Cuatrimestre 2000\r
   5         Este programa sirve para generar los archivos binarios de entrada\r
   6         para el programa del TP nro 1, ya que en clase se acordo hacerlos\r
   7         binarios. Hubiera sido mas comodo que fueran de texto, pero que le\r
   8         vamos a hacer.\r
   9         Parametros: archivo de salida\r
  10 \r
  11 }\r
  12 \r
  13 Type\r
  14     T_registro_entrada = record\r
  15                          Comando: string[2];\r
  16                          DNI: string[8];\r
  17                          Nombre: string[40];\r
  18                          Movimiento: string[1];\r
  19                          DNI_hasta: string[8];\r
  20                         End;\r
  21 \r
  22 \r
  23 Var outfile: file of T_registro_entrada;\r
  24     r: T_registro_entrada;\r
  25 \r
  26 begin\r
  27 \r
  28    If paramcount >= 1 then begin\r
  29      Writeln('Archivo de Salida :',ParamStr(1));\r
  30 \r
  31      Assign(outfile, ParamStr(1));\r
  32 \r
  33      Rewrite (outfile);\r
  34 \r
  35    {  readln(r.comando);{, r.dni, r.nombre);}\r
  36 \r
  37      while true do begin\r
  38 \r
  39      write('COMANDO :');\r
  40      readln(r.comando);\r
  41      if r.comando = '' then exit;\r
  42 \r
  43      write('DNI :');\r
  44      readln(r.dni);\r
  45      if r.dni = '' then r.dni := '*';\r
  46 \r
  47      write('NOMBRE :');\r
  48      readln(r.nombre);\r
  49      if r.nombre = '' then r.nombre := '*';\r
  50 \r
  51      write('MOVIMIENTO p/a/s/u:');\r
  52      readln(r.movimiento);\r
  53      if r.movimiento = '' then r.movimiento := '*';\r
  54 \r
  55      write('DNI_HASTA :');\r
  56      readln(r.dni_hasta);\r
  57      if r.dni_hasta = '' then r.dni_hasta := '*';\r
  58 \r
  59 \r
  60      write(outfile, r);\r
  61 \r
  62      end;\r
  63 \r
  64    end\r
  65    else writeln ('Numero de parametros incorrecto. Uso comandos <archivo_de_salida>');\r
  66 \r
  67 \r
  68 end.\r
  69 \r