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.
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
0