Pascal/Turbo Pascal - Problema con un arreglo

   
Vista:
Imágen de perfil de Jorge

Problema con un arreglo

Publicado por Jorge (11 intervenciones) el 26/07/2014 23:36:54
Muy buenas tardes
Tengo una tarea de la cual necesito utilizar arreglos, el programa trata de colocar una nota/calcular el promedio de la nota/dependiendo de el promedio mostrar si aprobo o reprobo.
El problema se me presenta a la hora de la suma de los 5 promedios, debo utilizar un "For" para eso cree un contador de 5 ciclos para que los sume tomando los promedios del arreglo, pero me da un error.
luego sigue una comparacion "if" tengo la duda si la sintaxis esta bien o mal.
Muchas gracias por la atencion y la ayuda de antemano.
saludos.


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
82
83
84
85
86
program Tarea_programada;
uses crt;
 
 type
   vector1=array[1..4] of string;
   vector2=array[1..5] of real;
   vector3=array[1..5] of real;
   var
    solicitud1:vector1;
    solicitud2:vector2;
    Promedio:vector3;
    PromedioFinal:real;
    contador:integer;
    resultado:string;
begin
  ClrScr;
   writeln('*****************************Bienvenido usuario*****************************');
    writeln('Este es un programa de calculo de promedios para el curso de Matematicas I ');
      writeln('Por favor ingrese la informacion que se le solicita a continuacion.');
        writeln;
          ClrScr;
 
  writeln('Igrese el numero de carne del estudiante: ');
  readln(solicitud1[1]);
  writeln('Ingrese el nombre del estudiante: ');
  readln(solicitud1[2]);
  writeln('Ingrese el cuatrimestre(Primero, Segundo, tercero, etc.)');
  readln(solicitud1[3]);
  writeln('Ingrese el nombre del curso');
  readln(solicitud1[4]);
            writeln;
              ClrScr;
  writeln('Por favor ingrese la informacion de las notas del curso.');
  writeln('Nota del I Parcial.');
  readln(solicitud2[1]);
  writeln('Nota del II Parcial.');
  readln(solicitud2[2]);
  writeln('Nota del Ex. Final.');
  readln(solicitud2[3]);
  writeln('Nota del Tareas.');
  readln(solicitud2[4]);
  writeln('Nota del Proyecto.');
  readln(solicitud2[5]);
              writeln;
                ClrScr;
 
 Promedio[1]:=solicitud2[1]*0.20;
 Promedio[2]:=solicitud2[2]*0.20;
 Promedio[3]:=solicitud2[3]*0.30;
 Promedio[4]:=solicitud2[4]*0.10;
 Promedio[5]:=solicitud2[5]*0.20;
 
 Writeln('El promedio del I Parcial es: ', Promedio[1]);
 Writeln('El promedio del II Parcial es: ', Promedio[2]);
 Writeln('El promedio Ex. Final es: ', Promedio[3]);
 Writeln('El promedio de las Tareas es: ', Promedio[4]);
 Writeln('El promedio del Proyecto es: ', Promedio[5]);
 
 PromedioFinal:=0;
    for contador:=1 to 5 do                             //suma los 5 promedios
     begin
      PromedioFinal:=PromedioFinal+Promedio;
        writeln('El promedio final del estudiante es:  ', PromedioFinal);
         end;
 
     if PromedioFinal>70 then                   //condicion de la suma de los 5 promedios
      resultado:=Aprobado else
        resultado:=Reprobado
        end
 
              writeln;
                ClrScr;
writeln('* --------------------------------------------------------------------------- *');
writeln('*                                                                             *');
writeln('* Curso:', solicitud1[4] );
writeln('* Profesor: ');
writeln('* Estudiante: ', solicitud1[1] , solicitud1[2] );
writeln('* Promedio Final: ', PromedioFinal );
writeln('* Resultado: ', resultado );
writeln('*                                                                             *');
writeln('* --------------------------------------------------------------------------- *');
 readkey;
 
 
 
end.
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

Problema con un arreglo

Publicado por ramon (39 intervenciones) el 28/07/2014 13:38:36
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
82
83
{Mira a ver si te sirve así}
 
program Tarea_programada;
uses crt;
 
 type
   vector1=array[1..4] of string;
   vector2=array[1..5] of real;
   vector3=array[1..5] of real;
   var
    solicitud1:vector1;
    solicitud2:vector2;
    Promedio:vector3;
    PromedioFinal:real;
    contador:integer;
    resultado:string;
begin
  ClrScr;
   writeln('*****************************Bienvenido usuario*****************************');
    writeln('Este es un programa de calculo de promedios para el curso de Matematicas I ');
      writeln('Por favor ingrese la informacion que se le solicita a continuacion.');
        writeln;
          ClrScr;
 
  writeln('Igrese el numero de carne del estudiante: ');
  readln(solicitud1[1]);
  writeln('Ingrese el nombre del estudiante: ');
  readln(solicitud1[2]);
  writeln('Ingrese el cuatrimestre(Primero, Segundo, tercero, etc.)');
  readln(solicitud1[3]);
  writeln('Ingrese el nombre del curso');
  readln(solicitud1[4]);
            writeln;
              ClrScr;
  writeln('Por favor ingrese la informacion de las notas del curso.');
  writeln('Nota del I Parcial.');
  readln(solicitud2[1]);
  writeln('Nota del II Parcial.');
  readln(solicitud2[2]);
  writeln('Nota del Ex. Final.');
  readln(solicitud2[3]);
  writeln('Nota del Tareas.');
  readln(solicitud2[4]);
  writeln('Nota del Proyecto.');
  readln(solicitud2[5]);
              writeln;
                ClrScr;
 
 Promedio[1]:=solicitud2[1]*0.20;
 Promedio[2]:=solicitud2[2]*0.20;
 Promedio[3]:=solicitud2[3]*0.30;
 Promedio[4]:=solicitud2[4]*0.10;
 Promedio[5]:=solicitud2[5]*0.20;
 
 Writeln('El promedio del I Parcial es: ', Promedio[1]);
 Writeln('El promedio del II Parcial es: ', Promedio[2]);
 Writeln('El promedio Ex. Final es: ', Promedio[3]);
 Writeln('El promedio de las Tareas es: ', Promedio[4]);
 Writeln('El promedio del Proyecto es: ', Promedio[5]);
 
 PromedioFinal:=0;
    for contador:=1 to 5 do                 {//suma los 5 promedios}
     begin
      PromedioFinal:=PromedioFinal+Promedio[contador];
        writeln('El promedio final del estudiante es:  ', PromedioFinal);
         end;
 
     if PromedioFinal > 70 then   {//condicion de la suma de los 5 promedios}
      resultado := 'Aprobado'
   else
      resultado := 'Reprobado';
      ClrScr;
writeln('* ------------------------------------------------------------------------ *');
writeln('*                                                                          *');
writeln('* Curso          :', solicitud1[4]);
writeln('* Profesor       : ');
writeln('* Estudiante     : ', solicitud1[1] , solicitud1[2]);
writeln('* Promedio Final : ', PromedioFinal:0:2);
writeln('* Resultado      : ', resultado );
writeln('*                                                                          *');
writeln('* ------------------------------------------------------------------------ *');
 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