Pascal/Turbo Pascal - pascal ide matriz no compila no se mas que hacer

 
Vista:
sin imagen de perfil
Val: 9
Ha disminuido su posición en 2 puestos en Pascal/Turbo Pascal (en relación al último mes)
Gráfica de Pascal/Turbo Pascal

pascal ide matriz no compila no se mas que hacer

Publicado por Augusto (6 intervenciones) el 07/11/2017 00:00:28
hola a todos.
vengo a pedir ayuda con un enunciado que no puedo lograr es el siguiente:
realizar un programa donde el usuario ingrese una matriz cuadrada con números enteros y retorne los números pares, el programa también debe retornar los valores que compongan la matriz triangular superior.


si alguien puede ayudarme desde ya muchas gracias (estoy intentándolo desde la mañana es este el único enunciado que no logro y ya no se que hacer).

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
PROGRAM matrizes;
Uses
crt;
 
Const
N=14;
 
type
Matriz = array [1..N,1..N] of integer;
tpmatriz = ^Matriz;
 
Var
dimension: integer;
a,b,prod: Matriz;
 
 
Procedure LeerMatriz(var mat:Matriz);
Var
fil, col: 1..N;
Begin
For fil:=1 to dimension do
For col:= 1 to dimension do
begin
Write(' Introduzca el componente a' ,fil,'.' , col, ': ');
Readln(mat[fil,col]);
end;
end.    {no me reconoce el ultima end ya sea con ; o .  el error me figura en 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

pascal ide matriz no compila no se mas que hacer

Publicado por ramon (2158 intervenciones) el 08/11/2017 19:22:52
Mira la ampliacion

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
PROGRAM matrizes;
Uses
crt;
 
Const
N=14;
 
type
Matriz = array [1..N,1..N] of integer;
tpmatriz = ^Matriz;
 
Var
dimension: integer;
a,b,prod: Matriz;
 
 
Procedure LeerMatriz(var mat:Matriz);
Var
fil, col: 1..N;
Begin
For fil:=1 to dimension do
For col:= 1 to dimension do
begin
Write(' Introduzca el componente a' ,fil,'.' , col, ': ');
Readln(mat[fil,col]);
end;
end;
 
begin
LeerMatriz(a);
end.    {no me reconoce el ultima end ya sea con ; o .  el error me figura en 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