ayuda error linea 10
Publicado por cesar (10 intervenciones) el 15/01/2018 17:10:26
EL ERROR ESTA EN LINEA 10 ESTA ES
De ahi el programa no avanza me señala error en esas 2 lineas sin tomar en cuenta end y VAR
LInk del video
https://www.youtube.com/watch?v=RDtKhXxhfSY&index=30&list=PL8BF2DE7CF1F0FEFA
1
2
3
4
talumnos =:array[1..numalumnos] of traalumnos;
end;
VAR
alumnos:talumnosDe ahi el programa no avanza me señala error en esas 2 lineas sin tomar en cuenta end y VAR
LInk del video
https://www.youtube.com/watch?v=RDtKhXxhfSY&index=30&list=PL8BF2DE7CF1F0FEFA
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
program arraysregistro;
//array de registros
CONST
numalumnos = 2;Type
traalumnos = recordnombre,apellido:string;
edad, curso, num_asignaturas:integer ;
abono_mensual:real;talumnos=array[1..numalumnos] of traalumnos;
end;
VAR
alumnos:talumnos VAR i:integerPROCEDURE insertar[VAR:alumno:[talumno]]
for I = 1 to numalumnos dobegin
with_alumnos[i] do
end;
begin
writeln;(alumno,i,)
write(("nombre"]; readln (nombre):
write(("apellido"]; readln (apellido):
write(("edad"]; readln (edad):
write(("curso"]; readln (curso):
write(("numero_de_asignaturas"]; readln (numero_de_asignaturas):
write(("abono_mensual"]; readln (abono_mensual):
writeln;
writeln;
begin
insertar(alumno);
end.Valora esta pregunta
0