Pascal/Turbo Pascal - AYUDA CON ESTE EJERCICIO EN PASCAL

 
Vista:
sin imagen de perfil

AYUDA CON ESTE EJERCICIO EN PASCAL

Publicado por marialba (1 intervención) el 17/06/2014 23:58:33
dado el nombre, cedula y 5 notas de programacion se necesita un programa en pascal que muestre la menor nota de los 30 alumnos
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 CON ESTE EJERCICIO EN PASCAL

Publicado por ramon (2158 intervenciones) el 19/06/2014 20:07:53
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 valdrá}
 
program notas;
 uses
   crt;
   type
     alumno = record
         nombre : string[80];
         cedula : longint;
         notas  : array[1..5] of real;
       end;
 
  var
     losalumnos : array[1..30] of alumno;
     cont : integer;
     tech : char;
 
   procedure entradaalumnos(cu : integer);
   var
      i : integer;
   begin
      with losalumnos[cu] do
      begin
         writeln('  ***** Entradas Alumnos *****');
         writeln;
         write('   Nombre   : ');
         readln(nombre);
         write('   Cedula   : ');
         readln(cedula);
         for i := 1 to 5 do
         begin
            write('  Nota N. ',i,' : ');
            readln(notas[i]);
         end;
      end;
        cont := cont + 1;
        if cont > 30 then
        cont := 30;
   end;
 
   function menor_nota : real;
   var
     t, co : integer;
     nt : real;
     min : array[1..30] of real;
   begin
      menor_nota := 0;
      for co := 1 to cont - 1 do
      begin
         nt := 0.0;
         for t := 1 to 5 do
         begin
         nt := nt + losalumnos[co].notas[t];
         end;
         min[co] := nt;
      end;
        nt := 100000;
        for co := 1 to cont - 1 do
        if min[co] < nt then
        nt := min[co];
        menor_nota := nt / 5;
   end;
 
 
 
   begin
       clrscr;
       cont := 1;
    repeat
     clrscr;
     entradaalumnos(cont);
     writeln;
     writeln('  Desea Entrar Mas Numeros [S/N]');
     repeat
         tech := upcase(readkey);
     until tech in['S','N'];
    until tech = 'N';
    writeln;
    writeln('  La Nota Menor Es : ',menor_nota:0:2);
    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