ej1.pas

   1 program Ejercicio1;\r
   2 \r
   3 const\r
   4      MAX = 10;\r
   5 \r
   6 type\r
   7     Vector = array [1..MAX] of integer;\r
   8 \r
   9 \r
  10   (*****************************************************)\r
  11 \r
  12   procedure visualiza(var v: Vector; titulo: String);\r
  13 \r
  14   var\r
  15      i: integer;\r
  16 \r
  17   begin\r
  18        writeln(titulo);\r
  19        writeln;\r
  20        for i := 1 to MAX do\r
  21            writeln('Numero ', i, ': ', v[i]);\r
  22        writeln;\r
  23   end; { visualiza }\r
  24 \r
  25   (*****************************************************)\r
  26 \r
  27   procedure leerDatos(var v: Vector);\r
  28 \r
  29   var\r
  30      f: Text;\r
  31      i, k, code: integer;\r
  32      s: String;\r
  33 \r
  34   begin\r
  35        assign(f, 'datos.txt');\r
  36        reset(f);\r
  37        i := 1;\r
  38        while (not eof(f)) and (i <= MAX) do begin\r
  39             readln(f, s);\r
  40             val(s, k, code);\r
  41             if code <> 0 then begin\r
  42                Writeln('Error en la posici¢n: ', Code);\r
  43                exit;\r
  44             end;\r
  45             v[i] := k;\r
  46             i := i + 1;\r
  47        end;\r
  48        close(f);\r
  49        visualiza(v, 'Datos Originales');\r
  50   end; { leerDatos }\r
  51 \r
  52   (*****************************************************)\r
  53 \r
  54   procedure ordenarDecreciente(var v: Vector);\r
  55 \r
  56   var\r
  57      i, j, aux: integer;\r
  58 \r
  59   begin\r
  60        for i := 1 to MAX do\r
  61            for j := i + 1 to MAX do\r
  62                if v[i] < v[j] then begin\r
  63                   aux := v[i];\r
  64                   v[i] := v[j];\r
  65                   v[j] := aux;\r
  66                end;\r
  67   end; { ordenarDecreciente }\r
  68 \r
  69   (*****************************************************)\r
  70 \r
  71 var\r
  72    v: Vector;\r
  73 \r
  74 begin\r
  75      leerDatos(v);\r
  76      ordenarDecreciente(v);\r
  77      visualiza(v, 'Datos Ordenados');\r
  78 end.