Дан целочисленный массив с кол-вом элементов N. Напечатать те его элементы, индексы которых являются степенью двойки (2,4,8,16 итд)



Как это можно сделать через функцию?

Пытался передалать, получилось вот это:

Но не работает, помогите отредактировать.
Спасибо.

Сообщение отредактировано: Lesnik - 14.12.2006 1:51

 Function f(const c:mas):integer; 

вот... иначе переполнение стека получишь.
или, если массив собираешься менять, пиши var

Если не тяжело, то исправьте в коде.

program COK;
uses crt;
type
mas=array[1..30000]of integer;
var
a:mas;
i,n:integer;
   Function f(const c:mas):integer;
   var
   index,i1:integer;
   begin
   index:=2;
   for i1:=1 to n do
   begin
   If i=index then
      begin
      index:=index*2;
      writeln(index);
      end;
   end;
end;
begin
clrscr;
Writeln('Vvedite koli4estvo');
readln(n);
For i:=1 to n do
    begin
    a[i]:=random(99);
    end;
f(a);
end.

насколько я вижу, выводить он будет индексы, а не элементы...
и не совсем поняла, зачем внутри ф-ции использовать глобальную переменную i... вроде про i1 речь шла.

Сообщение отредактировано: мисс_граффити - 14.12.2006 2:18

Не работает
Программа просит ввести количество чисел, потом завершает работу и не выводит никаких индексов

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

если исправить ошибку, о которой я тебе написала в сообщении 4, то прога делает вот что:
вводим 4
выводит 4,8
вводим 8
выводит 4,8,16

В том и дело, что я не понял тему функция/процедура, а завтра надо сдать задачи

Сообщение отредактировано: Lesnik - 14.12.2006 3:41

а что ты хочешь получить в итоге?
я бы сказала, что степени двойки - это 1,2,4...
но тогда и твоя первая прога работает неправильно.

Первая прога работает правильно. Она выводит все степени двойки (до определённого момента).
Как сделать через функцию незнаю

я же тебе сказала: исправь

If i=index then

там i1 должно быть!

Теперь всё нормально. Огромное спасибо!

ну так... относительно нормально.
но лишь бы тебе нравилось...

Если не тяжело, можете ещё посмотреть задачу?
Сделать надо через процедуру.
Дана матрица Аmxn. Исключить строки, содержащие хотябы один нулевой элемент.

Код без процедуры:


А теперь то убожество, которое я попытался сделать через процедуру:

такая маленькая матрица переполнение стека не вызовет, но все равно - зачем его забивать всякой ерундой?
напиши const, если не хочешь менять матрицу, и var - если хочешь, как я тебе показывала в прошлой задаче.
замени в подпрограмее i,j на i1, j1 (тоже обсуждали в прошлой задаче).
и сделай нормальное форматирование! сложно читать, когда под begin нет соответствующего ему end!

Вот то, что пока получается.
Начальную матрица строится, а строки не удаляются (сама подпрограмма не работает).


Вроде надо ещё передовать строки со столбцами, но не могу понять как

ты вообще не читаешь, что я тебе пишу?

Procedure P(m:matr;x,y:integer);

выдели, пожалуйста, в этой строке слова var и const
ладно, не критично. поместится в стек маленькая матрица.
зачем здесь x,y - не понимаю. все равно ты не физически удаляешь строки, а просто не выводишь. ну ладно, тоже никому жить не мешает.
Но дальше!!!
(Админы, простите, теги не использовала, чтобы выделить жирным)

ОПЯТЬ i,j!!!!
ну неужели так сложно исправить?!
кроме того, забудь ты про mas. Он - для основной программы! в процедуре ты работаешь ТОЛЬКО с m, раз уж решил передавать как параметр!

Хочешь работать с глобальной переменной - вперед. Но тогда:
1) не передавай никаких m
2) при выводе тоже работай с глобальной.

В общем, если исправить то, о чем я тебе пишу с первого моего сообщения в этой теме - все будет работать.

Функция возвращает true если ее входной параметр X - степень двойки:

function IsTwoPower(X: LongInt): Boolean;
var
  i, count: Byte;
begin

  i := 0; count := 0;

  while (i < 32) and (count < 2) do begin
    if ((X shl i) shr 31) = 1 then inc(count);
    inc(i);
  end;

  IsTwoPower := (count = 1);

end;

Кстати единица - тоже степень двойки ...

Вообще-то эта функция пишется в одну строку:

Общие вопросы по математике.
("Является ли число степенью двойки?")

FAQ для кого делается, хотелось бы узнать?

см. сообщения 8-9

...а зачем здесь вообще эта ф-ция? предлагаете делать так:

 for i:=1 to n do
  if (i - степень двойки) then
    write(ar[i]);

?
что-то не поняла замысел.

Замысел не понял я Мало того что в faq не посмотрел так еще и задание неправильно понял ) Естественно так как речь идет об индексах, никакие функции ненужны ...