Программа выдает неправильный ответ

@Respect22 · Регистрация: 25.10.2013

Author24 — интернет-сервис помощи студентам

Для получения результата разработать алгоритм и программу,содержащую функцию, исходными данными которой являются два массива x1,x2..Xn и Y1,Y2..Yn с заданным числом n элементов(или один из них) или матрица A из n строк и n столбцов.
Общее количество нулей в i-й и последней строке,i-м и последнем столбце матрицы A.

Программа идет, но ответ выдает неправильный.

Pascal

Const m=3;
      n=3;
TYPE vect=array[1..n,1..m] of real;
VAR x:vect;
i,j,R,OTVET: integer;
Function kol(x:vect; r:integer): integer;
var i,j,k:integer;
begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if ((x[R,j]=0) or (x[n,j]=0)or(x[i,R]=0) or (x[i,m]=0)) then k:=k+1;
kol:=k;
end;
begin
writeln('введите массив ');
for i:=1 to n do
for j:=1 to m do
begin
write('X[',i,',',j,']=');
read(x[i,j]);
end;
write( 'введите i-ю строку и столбец : ' );
readln(R);
OTVET:= kol(x,R);
writeln('кол-во нулей : ',OTVET);
end.

Добавлено через 42 минуты
Никто не встречал ?

Добавлено через 2 часа 28 минут
выводит всегда неверный ответ

@Krasme · 20.03.2014, 01:07

навскидку
попробуйте

Pascal

begin
k:=0;
for i:=1 to n do
for j:=1 to m do
if ((x[R,j]=0) or (x[n,j]=0)or(x[i,R]=0) or (x[i,m]=0)) then k:=k+1;
kol:=k;
end;

заменить на

Pascal

begin
k:=0;
for i:=1 to n do
if ((x[i,R]=0) or (x[i,m]=0)) then k:=k+1;
for j:=1 to m do
if ((x[R,j]=0) or (x[n,j]=0)) then k:=k+1;
kol:=k;
end;

пояснение:чтобы обработать только строку или столбец, не нужно перечитывать всю матрицу целиком.

p.s. возможно, даже так сработает

Pascal

begin
k:=0;
for i:=1 to n do
if ((x[R,i]=0) or (x[n,i]=0)or(x[i,R]=0) or (x[i,m]=0)) then k:=k+1;
kol:=k;
end;

@Respect22 · 20.03.2014, 08:41 **[ТС]**

Сообщение от Krasme

навскидку
попробуйте

Спасибо большое, со вторым вариантом все пошло.
Не могли бы объяснить , почему убираем строчку for j:=1 to m do?

@Krasme · 20.03.2014, 10:32

Respect22,

Pascal

1 2	for i:=1 to n do for j:=1 to m do

с такой конструкцией перебирается вся матрица, повторяя j с каждым i.
а с такой

Pascal

1	for i:=1 to n do

обрабатывается только одна конкретная "полосочка" (строка или столбец).

@Respect22 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 16
	20.03.2014, 08:41 [ТС]	3
	Сообщение от Krasme навскидку попробуйте Спасибо большое, со вторым вариантом все пошло. Не могли бы объяснить , почему убираем строчку for j:=1 to m do? 0

	20.03.2014, 10:32

Программа выдает неправильный ответ

Решение