Pascal/Turbo Pascal - Pascal, problema con arreglo error 121

   
Vista:

Pascal, problema con arreglo error 121

Publicado por Randy edugonzalez95@hotmail.com (1 intervención) el 13/07/2014 18:26:41
Buenos dias es es el programa en el cual necesito ayuda.

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
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
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.


Mi problema es que pascal me da error 121 no se porque. podrían ayudarme?
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, problema con arreglo error 121

Publicado por ramon (2072 intervenciones) el 13/07/2014 23:37:50
Tu error esta en a ver puesto el mismo nombre a una variable real y a una matriz [ma],
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