Найти номера строк матрицы, содержащие наибольшее количество нулей

@Торька · Регистрация: 06.10.2010

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

Напишите кто нибудь прогу очень срочно нужно.....кто может
найти номера строк матрицы,содержащие наибольшее кол-во нулей. использовать Procedure
заранее спасибо

@use · 30.12.2010, 13:19

Сообщение от Торька

Напишите кто нибудь прогу очень срочно нужно.....кто может
найти номера строк матрицы,содержащие наибольшее кол-во нулей. использовать Procedure
заранее спасибо

Очень просто. Если в матрице n строк, то:
строки 10, 20, ... 90 имеют в номере 1 ноль,
строки 100, 200, ... 900 имеют по 2 нуля,
и так далее.
Короче, определяешь порядок числа строк и выводишь все круглые числа того порядка, не превосходящие n. Например:
если n=3456
порядок 10^3 (тысяча)
Ответ: 1000, 2000, 3000.

Реализация может быть, например, такая:

Pascal

const
  n=3456;
  m=4;
var
  a: array [1..n,1..m] of byte;
  i,j,o,oo,nn: integer;
 
procedure SetIntValue(var i: integer; v: integer);
begin
  i:=v
end;
 
begin
  SetIntValue(i,0);
  SetIntValue(nn,n);
  while nn>9 do begin
    Inc(i);
    SetIntValue(nn,nn div 10)
  end;
  SetIntValue(o,1);
  for j:=1 to i do SetIntValue(o,o*10);
  SetIntValue(oo,o);
  while oo<=n do begin
    WriteLn(oo);
    SetIntValue(oo,oo+o)
  end;
  ReadLn
end.

Чтобы выполнить условие:

использовать Procedure

- введена проседура SetIntValue.
Почти не тестировал, буду благодарен (+1) за все указанные мне ошибки..

Каков вопрос - таков ответ (С))

@Торька 1 / 1 / 0 Регистрация: 06.10.2010 Сообщений: 67
		1
	Найти номера строк матрицы, содержащие наибольшее количество нулей 30.12.2010, 10:44. Показов 1343. Ответов 1 Метки нет (Все метки) Напишите кто нибудь прогу очень срочно нужно.....кто может найти номера строк матрицы,содержащие наибольшее кол-во нулей. использовать Procedure заранее спасибо 0

	30.12.2010, 13:19

Найти номера строк матрицы, содержащие наибольшее количество нулей

Решение