Estadisticas.pas

   1 PROGRAM Ej0254;\r
   2 \r
   3 VAR\r
   4    a, b, total, si_a, si_b: integer;\r
   5    aux: real;\r
   6    sigo: boolean;\r
   7 \r
   8 BEGIN\r
   9      total := 0;\r
  10      si_a := 0;\r
  11      si_b := 0;\r
  12      write( 'Para terminar de ingresar valores, ingrese un numero no v lido' );\r
  13      write( 'Ecriba 1 si le gusto el producto A (0 si no le gusto): ' );\r
  14      readln( a );\r
  15      write( 'Ecriba 1 si le gusto el producto B (0 si no le gusto): ' );\r
  16      readln( b );\r
  17      sigo := ( ( a = 1 ) OR ( a = 0 ) ) AND ( ( b = 1 ) OR ( b = 0 ) );\r
  18      WHILE sigo DO\r
  19        BEGIN\r
  20             total := total + 1;\r
  21             IF a = 1 THEN si_a := si_a + 1;\r
  22             IF a = 1 THEN si_a := si_a + 1;\r
  23             writeln;\r
  24             write( ' A: ' );\r
  25             readln( a );\r
  26             write( ' B: ' );\r
  27             readln( b );\r
  28             sigo := ( ( a = 1 ) OR ( a = 0 ) ) AND ( ( b = 1 ) OR ( b = 0 ) );\r
  29        END;\r
  30      IF total > 0 THEN\r
  31        BEGIN\r
  32             writeln( 'Total ' , total );\r
  33             writeln( 'Aceptaron al A el ' , ( si_a / total ) * 100 , ' %' );\r
  34             aux := ( ( si_b - si_a ) / total ) * 100;\r
  35             IF aux > 0 THEN writeln( 'Aceptaron s¢lo a B el ' , aux , ' %' )\r
  36                        ELSE writeln( 'Nadie acept¢ s¢lo al B' );\r
  37             aux := ( ( si_a - si_b ) / total ) * 100;\r
  38             IF aux > 0 THEN writeln( 'Aceptaron s¢lo a A el ' , aux , ' %' )\r
  39                        ELSE writeln( 'Nadie acept¢ s¢lo al A' );\r
  40             IF si_a > si_b THEN aux := ( si_a / total ) * 100\r
  41                            ELSE aux := ( si_b / total ) * 100;\r
  42             writeln( 'Aceptaron alguno de los 2 productos el ' , aux , ' %' );\r
  43             aux := ( ( total - aux ) / total ) * 100;\r
  44             writeln( 'No aceptaron ninguno el ' , aux , ' %' );\r
  45             writeln( 'Aceptaron por lo menos a B el ' , ( si_b / total ) * 100 , ' %' );\r
  46        END\r
  47      ELSE writeln( 'No se ingresaron valores.' );\r
  48 END.\r