Pascal, problema con arreglo error 121
Publicado por Randy (1 intervención) el 13/07/2014 18:26:41
Buenos dias es es el programa en el cual necesito ayuda.
Mi problema es que pascal me da error 121 no se porque. podrían ayudarme?
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 senecesita 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:beginn:=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:beginn:=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
0