Promedios.pas

   1 PROGRAM Promedios;\r
   2 \r
   3 VAR\r
   4    nombre, mPromedio1, mPromedio2: string[20];\r
   5    edad, total, aprobados: integer;\r
   6    nota1, nota2, promedio, mProm1, mProm2: real;\r
   7    hayViejos: boolean;\r
   8 \r
   9 BEGIN\r
  10      mProm1 := 0;\r
  11      mProm2 := 0;\r
  12      hayViejos := false;\r
  13      total := 0;\r
  14      aprobados := 0;\r
  15 \r
  16      write( 'Escriba el nombre del alumno ( ''*'' para terminar): ' );\r
  17      readln( nombre );\r
  18      WHILE nombre <> '*' DO\r
  19        BEGIN\r
  20             total := total + 1;\r
  21             write( 'Escriba la edad: ' );\r
  22             readln( edad );\r
  23             write( 'Escriba la primera nota: ' );\r
  24             readln( nota1 );\r
  25             write( 'Escriba la segunda nota: ' );\r
  26             readln( nota2 );\r
  27             promedio := ( nota1 + nota2 ) / 2;\r
  28             IF edad > 40 THEN hayViejos := true;\r
  29             IF promedio >= 4 THEN aprobados := aprobados + 1;\r
  30             IF promedio > mProm1\r
  31                THEN BEGIN\r
  32                          mProm1 := promedio;\r
  33                          mPromedio1 := nombre;\r
  34                     END\r
  35                ELSE IF promedio > mProm2\r
  36                        THEN BEGIN\r
  37                                  mProm2 := promedio;\r
  38                                  mPromedio2 := nombre;\r
  39                             END;\r
  40             writeln;\r
  41             write( 'Escriba el nombre del siguiente alumno (''*'' para terminar): ' );\r
  42             readln( nombre );\r
  43        END;\r
  44      IF total = 0 THEN writeln( 'No se ingresaron datos.' )\r
  45                   ELSE BEGIN\r
  46                             writeln( 'El ' , ( aprobados / total ) * 100 : 3 : 2 , '% de los alumnos aprobaron.' );\r
  47                             IF hayViejos THEN writeln ( 'Hay alumnos de m s de 40 a¤os.' );\r
  48                             writeln( 'El mejor promedio lo obtuvo ' , mPromedio1 , '.' );\r
  49                             IF mPromedio2 <> '' THEN writeln( 'El segundo mejor promedio lo obtuvo ' , mPromedio2 , '.' );\r
  50                        END;\r
  51 END.\r