Определить номер первого элемента матрицы, который не является степенью числа 2

@_Astarta_ · Регистрация: 12.03.2013

Дан двумерный массив целых чисел. Написать программу, которая для каждого столбца массива определяет номер первого элемента, который не является степенью числа 2 (например, 16 – это 2 в 4-й степени, а 192=2*2*2*2*2*2*3 не является таким числом)

@Askold · 31.07.2016, 20:42

_Astarta_,

Pascal

var
   m,n,i,j,x: integer;
   a: array[1..100,1..100] of integer;
begin
     write('m= '); readln(m);//количество строчек
     write('n= '); readln(n);//количество столбцов
     for i:=1 to m do
      begin
           for j:=1 to n do
            begin
                 a[i,j] := random(10)+1;
                 write(a[i,j],' ');
            end;
           writeln;
      end;
      x:=0;
      for j:=1 to n do
      begin
           for i:=1 to m do
           begin
                for x:=0 to 100 do
                    if exp(ln(2)*x) = a[i,j] then break;
                if x=100 then break;
           end;
           writeln('Для',j,'-го столбца ',i,'-ый элемент = ',a[i,j]);
      end;
end.

@кот Бегемот · 31.07.2016, 22:50

Askold, число 100 здесь как верхняя граница цикла притянуто за уши, это означает, что программист не смог поставить точный предел и выбирает его наобум, увеличивая перебор, что не является оптимальным решением.
Гораздо проще проверить число по делимости на 2. Как не разделилось - так не степень двойки.
Так к примеру:

Pascal

var
m,n,i,j,x: integer;
   a: array[1..100,1..100] of integer;
begin
     write('m= '); readln(m);
     write('n= '); readln(n);
         for i:=1 to m do
      begin
           for j:=1 to n do
            begin
                 a[i,j] := random(10)+1;
                 write(a[i,j],' ');
            end;
           writeln;
   end;
   for j:=1 to n do
   for i:=1 to m do
               while a[i,j] mod 2=0 do
             a[i,j]:=a[i,j] div 2;
         if a[i,j]<>1 then begin
                writeln('stolbec ',j, ' element nomer ',i);
                break;
                    end;
    end;
    end.

Новичок · 31.07.2016, 23:05

А еще проще проверить является ли число степенью двойки вот так

Pascal

1	if a[i, j] and (a[i, j] - 1) = 0 then // Только вместо = поставить <>

@кот Бегемот · 01.08.2016, 02:13

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

Pascal

var
m,n,i,j,x: integer;
   a: array[1..100,1..100] of integer;
begin
     write('m= '); readln(m);
     write('n= '); readln(n);
         for i:=1 to m do
      begin
           for j:=1 to n do
            begin
                 a[i,j] := random(10)+1;
                 write(a[i,j],' ');
            end;
           writeln;
   end;
   for j:=1 to n do
   for i:=1 to m do
               if a[i, j] and (a[i, j] - 1) <> 0 then begin
                writeln('stolbec ',j, ' element nomer ',i);
                break;
                    end;
    
    end.

@Askold · 01.08.2016, 19:26

кот Бегемот, понял, спасибо за замечание) не обратил на это внимание.

@_Astarta_ 0 / 0 / 0 Регистрация: 12.03.2013 Сообщений: 35
		1
	Определить номер первого элемента матрицы, который не является степенью числа 2 04.06.2016, 11:38. Показов 1558. Ответов 5 Метки нет (Все метки) Дан двумерный массив целых чисел. Написать программу, которая для каждого столбца массива определяет номер первого элемента, который не является степенью числа 2 (например, 16 – это 2 в 4-й степени, а 192=2222223 не является таким числом) 0

@Askold 25 / 1 / 1 Регистрация: 19.04.2016 Сообщений: 21
	01.08.2016, 19:26	6
	кот Бегемот, понял, спасибо за замечание) не обратил на это внимание. 0

Опции темы