En este grupo En todos

Foro de PASCAL



aprendis

Escrito por Hector
el 22/11/2007
Quiera saber como crear un programa donde se ingrese las notas de  estudiantes en una matriz pero se saque el promedio por estudiante y por curso son cursos yo soy inexperto estoy aprendiendo y nos dejaron este programa para el curso queria ver si me podian ayudar les agredeceria que me contestaran algo pronto porque estoy corto de tiempo gracias por su ayuda.
Laysquad
Guatemala, Guatemala
Escrito por Laysquad
el 25/11/2007

Hola que tal^^. Mira este programa no esta muy dificil, solo debes hacer los siguiente ;

Esto será tan solo un ejemplo, ya que no sé cual es el numero de cursos, usaré 2 cursos, si deseas más solo editalo^^.


Program notas;

Uses crt ;

Var

      notas: array[1.. 10,1.. 3] of integer ;   {array[numero_estudiantes,numero_de_cursos]}

      nombres: array[1.. 10] of string ; {para guardar los nombres}

      x, y : integer ;

      opcion : integer ;

      nombre :string ;  {para mostrar por nombre} ;

      promedio :real ;

      curso: integer ;


Begin

          clrscr ;

          for x := 1 to 10 do

          begin

                      clrscr ;

                      writeln("ingrese el nombre del estudiante No. ",x) ; {pedimos el nombre}

                      readln(nombres[x]) ; {guardamos el nombre}

                      for y := 1 to 2 do {pedimos las notas de todos los cursos}

                      begin

                                 writeln("ingrese la nota que obtuvo ",nombres[x]," en el curso No. ",y) ;

                                 readln(notas[x,y]) ;

                      end ;  

          end ; {fin de pedir}

          clrscr ; {limpiamos}

          {por si no sabes usar procedimientos}

          repeat

                      writlen("                     MENU  ") ;

                      writeln("1). Mostrar promedio por estudiante") ;

                      writeln("2). Mostrar promedio por curso") ;

                      writeln("3). Salir") ;

                      readln(opcion) ;

                      clrscr ;

                      if opcion = 1 then { si es por estudiante}

                      begin

                                write(" escriba el nombre del estudiante, seguido por la tecla enter (recuerde)") ;

                                write("las mayusculas)")  ;

                                readln(nombre) ;

                                promedio := 0 ;

                                for x := 1 to 10 do

                                if nombre = nombres[x] then

                                begin

                                           promedio = curso[1] + curso[2] / 2 ;

                                end ;

                                writeln("el promedio de ",nombre," es: ",promedio) ;

                                readkey ;

                      end ;

                      if opcion = 2 then { si es por estudiante}

                      begin

                                write(" escriba el numero del curso") ;

                                readln(curso) ;

                                promedio = 0 ; {reinciamos promedio}

                                for x := 1 to 10 do

                                promedio := promedio + matriz[x,curso] ;

                                writeln("el promedio total del curso No. ",curso," es: ",promedio) ;

                                readkey ;

end ;

          until opcion = 3 ;

End.

Escrito por Jose Maria Garay
el 30/12/2007
Hola! Soy nuevo en el foro, y me gustaria que si pueden darme referencias de formacion gratuita en linea para programacion,  en especial en C++, Pascal, Ensamblador, Java, Sql, y otro mas lenguaje de mucho uso! De antemano agradezco su atencion!