53 lines
589 B
Plaintext
53 lines
589 B
Plaintext
function findval1(a,x,i0,j0) {
|
|
n=rows(a)
|
|
p=cols(a)
|
|
for (i=1; i<=n; i++) {
|
|
for (j=1; j<=p; j++) {
|
|
if (a[i,j]==x) {
|
|
i0=i
|
|
j0=j
|
|
return(1)
|
|
}
|
|
}
|
|
}
|
|
return(0)
|
|
}
|
|
|
|
function findval2(a,x,i0,j0) {
|
|
n=rows(a)
|
|
p=cols(a)
|
|
q=0
|
|
for (i=1; i<=n; i++) {
|
|
for (j=1; j<=p; j++) {
|
|
if (a[i,j]==x) {
|
|
i0=i
|
|
j0=j
|
|
q=1
|
|
goto END
|
|
}
|
|
}
|
|
}
|
|
END:
|
|
return(q)
|
|
}
|
|
|
|
function findval3(a,x,i0,j0) {
|
|
n=rows(a)
|
|
p=cols(a)
|
|
q=0
|
|
for (i=1; i<=n; i++) {
|
|
for (j=1; j<=p; j++) {
|
|
if (a[i,j]==x) {
|
|
i0=i
|
|
j0=j
|
|
q=1
|
|
break
|
|
}
|
|
}
|
|
if (q) {
|
|
break
|
|
}
|
|
}
|
|
return(q)
|
|
}
|