Pascal/Turbo Pascal - vector matriz

   
Vista:

vector matriz

Publicado por Douglas (14 intervenciones) el 12/11/2015 04:31:54
muy buenas a todos y éxitos en sus labores

necesito de su valiosa ayuda tengo un vector 5 nombres de alumnos
tengo una matriz con 3 notas ,promedio,resultado


la presentacion seria asi
usando gotoxy

No. alumno matematicas fisica contabilidad promedio resultado
1 xxxxx 100 100 100 100 aprobado
2 xxxxx 30 60 20 37 reprobado

y así hasta llegar a los 5 nombres de los alumnos el bucle for iría cargando el numero automáticamente
ingreso el nombre luego las notas se despliega el promedio y el resultado automáticamente

para ser mas especifico
si el promedio > = 75 then aprobado else reprobado

de antemano muchas gracias y estaré al tanto de sus respuestas gracias
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

vector matriz

Publicado por Armando José (22 intervenciones) el 12/11/2015 21:12:13
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
uses crt;
     const
       num = 2;
     type
       vecnom = array[1..num] of string[50];
       notasypro   = array[1..num, 1..4] of real;
     var
        i,j : integer;
        nombres : vecnom;
        notas : notasypro ;
 
     function bandera(xxx : real ): string;
     begin
       if (xxx >= 75)  then
       begin
         bandera := 'Aprobado  ';
       end
       else
       begin
         bandera := 'Reprobado ';
       end;
     end;
 
     procedure cargar;
     begin
         for i := 1 to num do
         begin
              gotoxy(15,4);
              write('Nombre N§: ',i );
              gotoxy(15+15,4);
              readln(nombres[i]);
            for j := 1 to 3 do
            begin
              write('Nota',j,'=' );
              readln(notas[i,j]);
                         ClrEol;
               if (j = 3) then
               begin
                 notas[i,4]:= round ( notas[i,1] + notas[i,2] +notas[i,3]) / 3;
                 clrscr;
               end;
            end;
          end;
          clrscr;
        end;
 
     procedure mostrar;
     begin
     writeln(' ');
     writeln('N§  Nombres   Nota1  Nota2  Nota3  Promedio  status ');
     i := 0 ;
     j := 0 ;
     for i := 1 to num do
     begin
       gotoxy(4,3+i);
       write(i,' ',nombres[i]);
       for j := 1 to 4 do
       begin
         write('  ',notas[i,j]:2:2 );
       end;
         write('  ',bandera(notas[i,4]));
         writeln;
     end;
     end;
 
 
     begin
      clrscr;
      cargar;
      mostrar;
      readln;
     end.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
2
Comentar

vector matriz

Publicado por Douglas (14 intervenciones) el 13/11/2015 01:50:37
muchas gracias por la ayuda
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