Найти в массиве 15х15 числа являющиеся степенью 2 и вывести их

24.11.2016, 11:45. Показов 872. Ответов 0

Метки stringgrid, массив, степень (Все метки)

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

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure TForm1.Button3Click(Sender: TObject);
 
      begin
        //Перепишем данные StringGrid в массив
          For i:=0 to 14  do
          For j:=0 to 14  do
          a[j,i]:=strtoint(StringGrid1.Cells[i,j]);
 
          //Найдем числа степени 2
          For i:=0 to 14  do
          For j:=0 to 14  do
          while a[j,i] > 1 do
              begin
              if a[j,i] mod 2 = 1 then break;
              a[j,i]:= a[j,i] div 2
              end;
          label2.Text:=IntToStr(a[j,i]);
      end;

Выводит 0

IT_Exp

Эксперт

34794 / 4073 / 2104

Регистрация: 17.06.2006

Сообщений: 32,602

Блог

24.11.2016, 11:45

Ответы с готовыми решениями:

В массиве из n чисел найти числа с суммой цифр равной 9 и являющиеся степенью 3
в массиве из n чисел найти числа суммой цифр равной 9 и являющиеся степенью 3 заранее спасибо Добавлено через 14 минут помогите...

Определить числа являющиеся степенью пятерки
Даны натуральное число n и целые числа A1...An. Определить числа являющиеся степенью пятерки. Определить процедуру, позво¬ляющую...

Найти количество чисел являющиеся степенью двойки
Задано целое число n . Вам необходимо найти количество таких чисел x , что x<=n, x — степень двойки. Формат ввода В единственной...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

BasicMan

Эксперт

29316 / 5623 / 2384

Регистрация: 17.02.2009

Сообщений: 30,364

Блог

24.11.2016, 11:45

Помогаю со студенческими работами здесь

В целочисленном массиве найти и напечатать те элементы, которые являются степенью 2. Написать функцию, проверяющую, является ли число степенью 2.
В целочисленном массиве найти и напечатать те элементы, которые являются степенью 2. Написать функцию, проверяющую, является ли число...

Найти и вывести на экран все трёхзначные числа, являющиеся палиндромами
Помогите, пожалуйста, решить задачи на паскале, я новичок и он мне очень трудно дается. Плиииииз. 1. Найти и вывести на экран все...

Найти и вывести первое число большее n (вводится), которое является степенью натурального числа 2.9
Найти и вывести первое число большее n (вводится), которое является степенью натурального числа 2...9

Найти сумму чисел в массиве, перемножить все числа в массиве и вывести в результат в консоль
Не могу разобраться, если не сложно подскажите Дана переменная massiv, которая является массивом и состоит из чисел 1, 50, 3, 66, 99,...

Найти простые числа в двухмерном массиве и вывести номера столбцов в которых больше чем 2 числа
У меня как бы задание из 2-мерного массива найти простые числа и вывести номера столбцов в которых больше чем 2 простых числа где они...

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

Наверх