test/testrnd.pas

   1 program rndnames;\r
   2 \r
   3 uses CRT, DOS;\r
   4 \r
   5 type\r
   6     HORA = record\r
   7                  h,\r
   8                  m,\r
   9                  s,\r
  10                  c: longint;\r
  11            end;\r
  12 \r
  13     function GetTiempo( h1, h2: HORA ): longint;\r
  14 \r
  15        var\r
  16           t: longint;\r
  17           aux: HORA;\r
  18 \r
  19        begin\r
  20             if h1.h <> h2.h then { pone al menor como h2 y al mayor como h1 }\r
  21               begin\r
  22               if h1.h < h2.h then\r
  23                 begin\r
  24                      aux := h1;\r
  25                      h1 := h2;\r
  26                      h2 := aux;\r
  27                 end\r
  28               end\r
  29             else if h1.m <> h2.m then\r
  30                    begin\r
  31                    if h1.m < h2.m then\r
  32                      begin\r
  33                           aux := h1;\r
  34                           h1 := h2;\r
  35                           h2 := aux;\r
  36                      end\r
  37                    end\r
  38                  else if h1.s <> h2.s then\r
  39                         begin\r
  40                         if h1.s < h2.s then\r
  41                           begin\r
  42                                aux := h1;\r
  43                                h1 := h2;\r
  44                                h2 := aux;\r
  45                           end\r
  46                         end\r
  47                       else if h1.c <> h2.c then\r
  48                              if h1.c < h2.c then\r
  49                                begin\r
  50                                     aux := h1;\r
  51                                     h1 := h2;\r
  52                                     h2 := aux;\r
  53                                end;\r
  54             t := ( ( ( h1.h - h2.h ) * 60 + ( h1.m - h2.m ) ) * 60  + ( h1.s - h2.s ) ) * 100 + ( h1.c - h2.c );\r
  55             GetTiempo := t;\r
  56        end; { function GetTiempo }\r
  57 \r
  58 \r
  59  function GetRNDLetra( min, max: char ): char;\r
  60     var i: longint;\r
  61     begin\r
  62          i :=  ord( max ) - ord( min ) + 1;\r
  63          writeln( 'i: ', i );\r
  64          GetRNDLetra := chr( random( i ) + ord( min ) );\r
  65     end;\r
  66 \r
  67 \r
  68 var\r
  69    cad: string;\r
  70    i: integer;\r
  71    h1, h2: HORA;\r
  72    t: longint;\r
  73 \r
  74 begin\r
  75      randomize;\r
  76 \r
  77      h1.h := 10; h1.m := 10; h1.s := 10; h1.c := 10;\r
  78      h2.h := 10; h2.m := 10; h2.s := 9; h2.c := 13;\r
  79      t := GetTiempo( h2, h1 );\r
  80      writeln( 'T: ', t );\r
  81      writeln( 'Numero: ', random( 10 ) );\r
  82      writeln( GetRNDLetra( 'A', 'Z' ) );\r
  83      for i := 1 to 5 do\r
  84      begin\r
  85           cad[i] := 'A';\r
  86           cad[0] := chr(i);\r
  87           writeln( cad );\r
  88      end;\r
  89      if 'LUCA' > 'LUCALAMIDAS' then\r
  90         writeln( '''LUCA'' > ''LUCALAMIDAS''' )\r
  91      else\r
  92         writeln( '''LUCA'' < ''LUCALAMIDAS''' );\r
  93      writeln ('FIN');\r
  94 end.\r