Pascal/Turbo Pascal - Notas aprobadas

 
Vista:
sin imagen de perfil
Val: 9
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Notas aprobadas

Publicado por Miguelangel (7 intervenciones) el 26/09/2016 15:58:39
Programa Que Lea Las Notas De Un Alumno De 0 - 20 (N) Notas E Indique Cuantas Materias Aprobó Y Cuantas Reprobó
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

Notas aprobadas

Publicado por ramon (2127 intervenciones) el 26/09/2016 18:26:55
Puedes poner las materias que son puesto que pides 20 notas siria nota por materia o que.
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
sin imagen de perfil
Val: 9
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Notas aprobadas

Publicado por Miguelangel (7 intervenciones) el 26/09/2016 20:41:49
Seria solicitar la cantidad de materias N y iniciar un ciclo donde esa cantidad de N materias se le coloque a cada una la puntuación entre 0y20, donde >10 aprobada y <10 reprobada y al final indique cuantas aprobó y cuantas Reprobó. Adicionalmente el porcentaje de aprobadas
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

Notas aprobadas

Publicado por ramon (2127 intervenciones) el 26/09/2016 22:46:32
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
{Valdría con esto o necesitáis mas }
 
program notasalumnos;
  uses
    crt;
  type
    alumno = record
             numero : word;
             nombre : string[30];
             nnt : integer;
             notas : array[1..20] of integer;
             materias : array[1..20] of string[20];
           end;
 
 
   var
     notasalumno : array[1..40] of alumno;
     i, nt, mat, alu : integer;
     tecla : char;
 
 
   procedure entradadatosynotas(var d : alumno);
   begin
      writeln('  ****** Entrada Datos Y Nota De Alumno ******');
      writeln;
      write('  Nombre Alumno   : ');
      readln(d.nombre);
      write('  Numero Alumno   : ');
      readln(d.numero);
      write('  Numero Materias : ');
      readln(d.nnt);
      for nt := 1 to d.nnt do
      begin
         write('  Materia N ',nt,'         : ');
         readln(d.materias[nt]);
         write('  Nota De Materia N ',nt,' : ');
         readln(d.notas[nt]);
      end;
   end;
 
 
   begin
       mat := 1;
     repeat
       clrscr;
       entradadatosynotas(notasalumno[mat]);
       writeln;
       writeln('   Desea Entrar Mas Alumnos [S/N]');
       repeat
           tecla := upcase(readkey);
       until tecla in['S','N'];
       if tecla = 'S' then
       mat := mat + 1;
     until tecla = 'N';
     writeln;
     for i := 1 to mat do
     begin
        writeln('     ',notasalumno[i].nombre);
        writeln;
        for alu := 1 to notasalumno[i].nnt do
        begin
        if notasalumno[i].notas[alu] <= 10 then
        writeln('   ',notasalumno[i].materias[alu],' = reprobada')
      else
        writeln('   ',notasalumno[i].materias[alu],' = aprobada');
        end;
        writeln;
     end;
       readkey;
   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
sin imagen de perfil
Val: 9
Ha disminuido 1 puesto en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

Notas aprobadas

Publicado por Miguelangel (7 intervenciones) el 27/09/2016 03:04:06
Excelente. Tiene más de lo solicitado pero es mejor así, más completo
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