Pascal/Turbo Pascal - Estructura de ITERACION

   
Vista:
Imágen de perfil de Francisco

Estructura de ITERACION

Publicado por Francisco (9 intervenciones) el 02/05/2015 14:48:11
Buenos dias gente, nuevamente hoy tengo una duda sobre un ejercicio de programación, si alguno me podría ayudar, le agradeceria. EL ERROR, SEGUN PASCAL, ESTA EN LA LINEA DEL "FOR". Les dejo el ejercicio con su enunciado. Que alguien me diga bien en donde esta el error y como solucionarlo

{Sabiendo que una carreara universitaria cuenta con X cantidad de materias,
ingresar las notas con que un alumno aprobo cada una de las materias durante su carrera universitaria, y finalmente,
mostrar la nota promedio de dicho alumno. (X se ingresa como dato)}

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
Program EJ6;
uses    crt;
var
   x,prome,nota_f,I,mat:    REAL;
 
BEGIN
textcolor(10);
writeln('PROGRAMA EJ6');
writeln;
writeln('Ing. Sistemas');
writeln('CANTIDAD DE MATERIAS = 8');
writeln;
FOR I:=1 to 8 do
Begin
write('Ingrese sus notas: ');
readln(x);
End;
 
mat:=8;
nota_f:=x*mat;
prome:=nota_f / mat;
writeln('Promedio del alumno = ',prome);
 
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

Estructura de ITERACION

Publicado por dario (20 intervenciones) el 02/05/2015 16:32:54
Ejercicio arreglado.
Tu problema era en que no puedes iterar sobre un real, te explico:
No puedes hacer esto:
i:real;
for i {iteraccion}

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
Program EJ6;
uses crt;
var
	x,prome,nota_f,mat: REAL;
	I:byte;
 
BEGIN
	textcolor(10);
	writeln('PROGRAMA EJ6');
	writeln;
	writeln('Ing. Sistemas');
	writeln('CANTIDAD DE MATERIAS = 8');
	writeln;
	FOR I:=1 to 8 do
	Begin
		write('Ingrese sus notas: ');
		readln(x);
	End;
 
	mat:=8;
	nota_f:=x*mat;
	prome:=nota_f / mat;
	writeln('Promedio del alumno = ',prome);
	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