Pascal/Turbo Pascal - porfavor mi maesro me evaluara con un programa necesito su ayuda

   
Vista:

porfavor mi maesro me evaluara con un programa necesito su ayuda

Publicado por oscar giovanni gonzalez alvarez ZzYyWwAa@hotmail.com (1 intervención) el 23/02/2014 22:04:19
miren mi maestro me pidio un programa en pascal el cual devera darme el premedio de 3 calificaciones de 10 alumnos con el nombre de los alumnos ya impreso me podrian ayudar
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

porfavor mi maesro me evaluara con un programa necesito su ayuda

Publicado por ramon (2072 intervenciones) el 24/02/2014 12:10:20
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
{Mira a ver si esto te ayuda}
 
program alumnos;
 uses
   crt;
 const
    alunum = 10;
 type
   alumno = record
        alum : string[80];
      califi : array[1..3] of real;
   end;
 
 
 var
   datos : array[1..alunum] of alumno;
   i : integer;
 
  procedure entradas;
  begin
     i := 1;
    while i < alunum + 1 do
    begin
       write('   Entre Nombre Alumno  : ');
       readln(datos[i].alum);
       write('  Entre Calificacion 1. : ');
       readln(datos[i].califi[1]);
       write('  Entre Calificacion 2. : ');
       readln(datos[i].califi[2]);
       write('  Entre Calificacion 3. : ');
       readln(datos[i].califi[3]);
       i := i + 1;
    end;
  end;
 
  function promedio : real;
  var
     h, t : integer;
     q, pro : real;
  begin
     q := 0.0;
     pro := 0.0;
     for t := 1 to alunum do
     begin
        for h := 1 to 3 do
        begin
        q := q + datos[t].califi[h];
        end;
        pro := pro + (q / 3);
     end;
       promedio := (pro / 10);
  end;
 
  begin
      clrscr;
      entradas;
      for i := 1 to alunum do
      writeln(datos[i].alum);
      writeln;
      writeln('  El Promedio Es : ',promedio: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