Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Pascal/Turbo Pascal » AYUDA, URGENTE PROGRAMA COMO CARGAR DATOS A UNA MATRIZ TIENE QUE ESTAR YA CODIFICADA LOS DATOS

Pascal/Turbo Pascal - AYUDA, URGENTE PROGRAMA COMO CARGAR DATOS A UNA MATRIZ TIENE QUE ESTAR YA CODIFICADA LOS DATOS

Volver
Nuevo Tema
<<>>
 
Vista:

AYUDA, URGENTE PROGRAMA COMO CARGAR DATOS A UNA MATRIZ TIENE QUE ESTAR YA CODIFICADA LOS DATOS

Publicado por nn (1 intervención) el 21/08/2019 20:35:43
hola, por favor si me pueden ayudar. Estoy muy perdida con este ejercicio y ya intente de todo y no me sale,necesito aprobarrr :((

EJERCICIO ARRAY DE REGISTRO 2 TRIMESTRE

Una escuela técnica desea controlar los resultados de los alumnos en las distintas asignaturas de taller del ciclo superior de Informática . El programa debe ingresar las calificaciones de los alumnos y visualizar en pantalla el promedio de notas por alumno y el promedio de notas por asignatura.

Las asignaturas están codificadas de 1 a 4

1 Lab De Sistemas Operativos

2 Lab. Hardware

3 Lab. Aplicaciones

4 Lab. Programación

Los Alumnos son los de 6 º 5 Grupo Y/Z .

Los nombres de los alumnos ya estarán cargados en la matriz ( la carga se hace en el código) , solo se deben ingresar por teclado las notas (ESTA PARTE ES LA QUE MENOS SE HACER)

El Menú de Opciones seria algo así :

0. Para Salir

1. Para ingresar notas ( se pedirá el nro de alumno y nro de taller ) // Y ACA NO SE COMO RELACIONAR EL NUMERO DE ALUMNO CON EL NOMBRE DEL ALMNO Y LAS NOTAS

2. Para Mostrar totales por taller con Promedio de Notas de cada taller

3. Para Mostrar totales por alumno con promedio de notas de cada Alumno

Se sugiere utilizar procedimientos
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

AYUDA, URGENTE PROGRAMA COMO CARGAR DATOS A UNA MATRIZ TIENE QUE ESTAR YA CODIFICADA LOS DATOS

Publicado por ramon (2158 intervenciones) el 23/08/2019 11:54:35
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
{Esto te ayudara  }
 
program notasarray;
 uses
   crt;
   const
      nombres : array[1..5] of string = ('Juan','Andres','Pedro',
      'Fernando','Ramiro');
  var
    alumnos : array[1..5] of record
               nomb  : string;
               asig1 : array[1..4] of integer;
               notas : array[1..4] of real;
            end;
    nom : string;
    t, nm, p : integer;
    media : real;
 
 
    procedure entradatos(n : integer);
    var
      i : integer;
      asig : string;
    begin
       clrscr;
       alumnos[n].nomb := nombres[n];
       writeln('Datos Del Alumno = ',nombres[n]);
       for i := 1 to 4 do
       begin
    case i of
  1 : asig := 'Sistemas Operativos';
  2 : asig := 'Hardware';
  3 : asig := 'Aplicaciones';
  4 : asig := 'Programacion';
    end;
       write('Entre Nota De ',asig,' : ');
       readln(alumnos[n].notas[i]);
       end;
    end;
 
    procedure presentadatosalumno(nm : integer);
    var
      cont : integer;
    begin
       clrscr;
       writeln('Notas Del Alumno : ',alumnos[nm].nomb);
       writeln;
       writeln(' Sistemas Operativos : ',alumnos[nm].notas[1]:0:2);
       writeln(' Hardware            : ',alumnos[nm].notas[2]:0:2);
       writeln(' Aplicaciones        : ',alumnos[nm].notas[3]:0:2);
       writeln(' Programacion        : ',alumnos[nm].notas[4]:0:2);
       writeln;
       media := (alumnos[nm].notas[1] + alumnos[nm].notas[2] +
       alumnos[nm].notas[3] + alumnos[nm].notas[4]) / 4;
       writeln('Su Media Es          : ',media:0:2);
       writeln;
       writeln('  Pulse Una Tecla');
       readkey;
    end;
 
 
    begin
      write('Entre Nombre Alumno : ');
      readln(nom);
      for p := 1 to length(nom) do
      begin
         nom[p] := upcase(nom[p]);
      end;
      for t := 1 to 5 do
      begin
         for p := 1 to length(nombres[t]) do
         nombres[t][p] := upcase(nombres[t][p]);
         if nom = nombres[t] then
         begin
            nm := t;
            break;
         end;
      end;
      entradatos(nm);
      presentadatosalumno(nm);
    end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar