Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем

@VoGuE · Регистрация: 07.11.2010

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

Помогите пожалуйста.заранее огромнейшее спасибо!!!

Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем

@pryda · 12.11.2010, 00:14

Pascal

const n=5;
type a=array[1..n,1..n]of integer;
var  i,j:integer;
     m:a;
 
procedure zero(var mas:a; k,l:integer);
var t:integer;
begin
if (k>n)or(l>n) then
begin
  writeln('Такая строка или столбец отсутствуют!');
  exit;
end;
t:=mas[k,l];
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    mas[i,j]:=0;
    if (i=k)and(j=l) then mas[i,j]:=t;
    write(mas[i,j]:4);
  end;
  writeln;
end;
end;
 
begin
randomize;
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    m[i,j]:=random(31)-15;
    write(m[i,j]:4);
  end;
  writeln;
end;
writeln('Результат');
zero(m,5,3);
readln;
end.

@VoGuE · 12.11.2010, 00:39 **[ТС]**

а здесь кроме одного элемента всех выводит на экран нулем

@pryda · 12.11.2010, 01:01

просто задание написано так, что без бутылки не разберешься.

Pascal

procedure zero(var mas:a; k,l:integer);
var t:integer;
begin
if (k>n)or(l>n) then
begin
  writeln('Такая строка или столбец отсутствуют!');
  exit;
end;
t:=mas[k,l];
for i:=1 to n do
begin
  for j:=1 to n do
    if (i<>k)and(j<>l) then mas[i,j]:=0;
    write(mas[i,j]:4);
  end;
  writeln;
end;
end;

Не по теме:

задание все равно не понял:)

@VoGuE · 12.11.2010, 01:22 **[ТС]**

например

1 2 3 4 5
6 7 8 9 10
12 13 14 15 16
17 18 19 11 22
23 42 25 26 27

элемент пересекающий K строкой и L столбцой (напр.k=2,l=3) = '8'
и в конечном итоге должен быть:

1 2 0 4 5
0 0 8 0 0
12 13 0 15 16
17 18 0 11 22
23 42 0 26 27

@pryda · 12.11.2010, 01:52

Pascal

const n=5;
type a=array[1..n,1..n]of integer;
var  i,j:integer;
     m:a;
 
procedure zero(var mas:a; k,l:integer);
var t:integer;
begin
if (k>n)or(l>n) then
begin
  writeln('Такая строка или столбец отсутствуют!');
  exit;
end;
t:=mas[k,l];
for j:=1 to n do
mas[k,j]:=0;
for i:=1 to n do
mas[i,l]:=0;
mas[k,l]:=t;
for i:=1 to n do
begin
  for j:=1 to n do
  write(mas[i,j]:4);
  writeln;
end;
end;
 
begin
randomize;
for i:=1 to n do
begin
  for j:=1 to n do
  begin
    m[i,j]:=random(31)-15;
    write(m[i,j]:4);
  end;
  writeln;
end;
writeln('Результат');
zero(m,3,3);
readln;
end.

@VoGuE 0 / 0 / 0 Регистрация: 07.11.2010 Сообщений: 10
		1
	Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем 11.11.2010, 23:25. Показов 419. Ответов 5 Метки нет (Все метки) Помогите пожалуйста.заранее огромнейшее спасибо!!! Кроме элемента пересекающих K строкой и L столбцой остальные элементы находящихся в них заменить нулем 0

@VoGuE 0 / 0 / 0 Регистрация: 07.11.2010 Сообщений: 10
	12.11.2010, 00:39 [ТС]	3
	а здесь кроме одного элемента всех выводит на экран нулем 0

@VoGuE 0 / 0 / 0 Регистрация: 07.11.2010 Сообщений: 10
	12.11.2010, 01:22 [ТС]	5
	например 1 2 3 4 5 6 7 8 9 10 12 13 14 15 16 17 18 19 11 22 23 42 25 26 27 элемент пересекающий K строкой и L столбцой (напр.k=2,l=3) = '8' и в конечном итоге должен быть: 1 2 0 4 5 0 0 8 0 0 12 13 0 15 16 17 18 0 11 22 23 42 0 26 27 0

	12.11.2010, 01:52