Pascal error 121 arreglo

Cuestiones y dudas acerca de lenguajes de programación diversos.

Moderador: Moderadores

Regk95
Novat@
Mensajes: 1
Registrado: Dom Jul 13, 2014 6:32 pm

Pascal error 121 arreglo

Mensaje por Regk95 » Dom Jul 13, 2014 6:37 pm

buenos dias este es el programa que me da problemas
program matiz;
uses crt;
type
matri=array [1..100,1..100] of real;
{El tama¤o de una matriz no uede ser definida por el usuario,
por lo menos en pascal no, asi que para resolver este ejercicio
lo que hicimos fue declarar una matriz de un tama¤o grande,el
usuario va a ingresar los datos que necesite, si acaso se
necesita una matriz mas grande, tiene que editarse el codigo.}
var
comp:real;
ma:matri;
n,m,i,c,j,x,y,f:integer;
{N,M son el tama¤o de la matriz que desea el usuario}
opc1,opc2:integer;
procedure filas_nulas (ma,comp:real;n,m,i,c,j,f,opc2:integer);
begin
repeat
c:=0;
clrscr;
writeln('como deseea ver el resultado?');
writeln('1)Fila por Fila');
writeln('2)resultado final');
readln(opc2);
until (opc2=1) or (opc2=2);
case opc2 of
1:begin
n:=n+1;
for i:=1 to n do
begin
j:=0;
f:=0;
repeat
j:=j+1;
comp:=ma[i,j];
if (comp<>0) then
begin
f:=f+1;
clrscr;
c:=c+1;
writeln('Fila nula numero ',i,':');
for j:=1 to m do
begin
writeln(ma[i,j]:8:2);
end;
readkey;
end
else
begin
end;
until (f=1) or (j>m) ;
end;
writeln('se encontraron ',c,' filas nulas ');
readkey;
end;
2:begin
n:=n+1;
for i:=1 to n do
begin
j:=0;
f:=0;
repeat
j:=j+1;
if ma[i,j]<>0 then
begin
f:=f+1;
c:=c+1;
end
else
begin
end;
until (f=1) or (j>m) ;
end;
writeln('se encontraron ',c,' filas nulas ');
readkey;
end;
else
begin
end;
end;
end;
begin
clrscr;
Writeln('Digite el tama¤o de la matriz');
Writeln('numero de filas (n) :');
readln(n);
writeln(' numero de columnas (m) :');
readln(m);
writeln('Rellenemos la matriz');
for i:=1 to n do
begin
for j:=1 to m do
begin
clrscr;
writeln('digite el dato del lugar ',i,',',j,':');
readln(ma[i,j]);
end;
end;
filas_nulas(ma,comp,n,m,i,c,j,f,opc2);
end.

me da error 121 con el arreglo "ma" pero no se como resolverlo, me ayudarian?