test/testrnd.pas

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