Вывести те элементы массива, индексы которых являются степенями двойки

@BoBaH26 · Регистрация: 02.12.2010

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

Здравствуйте! Помогите, пожалуйста! Выдает одно значение (при r=0), а должно быть несколько.

Составить программу нахождения тех элементов массива С (из n элементов), индексы которых являются степенями двойки (1, 2, 4, 8…).

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
program garyanina_zadanie_5_2;
uses crt;
const n=100;
      p=100;
var C:array[1..n] of integer;
    r,i: integer;
procedure vvod_sluchainie_chisla;
 begin
 for i:=1 to n do
 C[i]:=random(p);
 end;
begin
clrscr;
r:=0;
randomize;
vvod_sluchainie_chisla;
for i:=1 to n do
 begin
 if i=exp(r*ln(2)) then writeln(C[i]);
 r:=r+1;
 end;
readkey;
end.

Добавлено через 9 минут
Помогите, пожалуйста! Вроде должен выдавать все, но нет.. Не знаю, где ошибка((

@SuPeR XaKer · 02.12.2010, 18:31

Pascal
1
2
3
4
5
6
i:=1;
while i<=n do
begin
 Write(C[i]:3);
 i:=i*2;
end;

@BoBaH26 · 02.12.2010, 18:38 **[ТС]**

Спасибо, конечно, но все равно 1 число выдает. Если не ошибаюсь вводить надо вместо моего for i:=1 to n do...

Добавлено через 1 минуту
Чет я тупанул, убрал экспоненту, щас попробую...

@SuPeR XaKer · 02.12.2010, 18:38

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Uses
 Crt;
const
 n=10;
var
 C:array[1..n] of integer;
 r,i: integer;
begin
clrscr;
randomize;
for i:=1 to n do
begin
 C[i]:=random(10)-3;
 write(C[i]:3);
end;
writeln;
i:=1;
while i<=n do
begin
 Write(C[i]:3);
 i:=i*2;
end;
readkey;
end.

Спасибо, конечно, но все равно 1 число выдает.

Где?

@BoBaH26 · 02.12.2010, 18:45 **[ТС]**

А почему здесь random(10)-3, просто от p=100 нельзя?

Добавлено через 14 секунд
Спасибо

@SuPeR XaKer · 02.12.2010, 18:46

можно.

@BoBaH26 · 02.12.2010, 18:48 **[ТС]**

А точно, ээх.. залипаю уже.. Получается у вас от -3 до 7, а у меня от 0 до 100

Добавлено через 1 минуту
Можете еще разъяснить смысл i:=i*2, а то не въеду никак, а тупо списывать не люблю...

@SuPeR XaKer · 02.12.2010, 18:51

каждый раз увеличиваем счётчик в два раза

@BoBaH26 · 02.12.2010, 18:56 **[ТС]**

А!! То есть у нас получается запись проще, мы сразу находим элементы, индекс которых - степень двойки, а остальные отбрасываем. СПАСИБО ОГРОМНОЕ!!! "+" поставил уже)))

Добавлено через 45 секунд
Хороший сайт! Быстро и правильно все!!))

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
	02.12.2010, 18:38 [ТС]
	Спасибо, конечно, но все равно 1 число выдает. Если не ошибаюсь вводить надо вместо моего for i:=1 to n do... Добавлено через 1 минуту Чет я тупанул, убрал экспоненту, щас попробую... 0

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
	02.12.2010, 18:45 [ТС]
	А почему здесь random(10)-3, просто от p=100 нельзя? Добавлено через 14 секунд Спасибо 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	02.12.2010, 18:46
	можно. 0

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
	02.12.2010, 18:48 [ТС]
	А точно, ээх.. залипаю уже.. Получается у вас от -3 до 7, а у меня от 0 до 100 Добавлено через 1 минуту Можете еще разъяснить смысл i:=i*2, а то не въеду никак, а тупо списывать не люблю... 0

@SuPeR XaKer 2857 / 1986 / 788 Регистрация: 23.09.2010 Сообщений: 4,876
	02.12.2010, 18:51
	каждый раз увеличиваем счётчик в два раза 0

@BoBaH26 30 / 30 / 5 Регистрация: 02.12.2010 Сообщений: 255
	02.12.2010, 18:56 [ТС]
	А!! То есть у нас получается запись проще, мы сразу находим элементы, индекс которых - степень двойки, а остальные отбрасываем. СПАСИБО ОГРОМНОЕ!!! "+" поставил уже))) Добавлено через 45 секунд Хороший сайт! Быстро и правильно все!!)) 0