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)}
{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
0
