Нахождения элементов массива S (из n элементов), индексы которых являются степенями двойки

@SSeregAA · Регистрация: 23.01.2012

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

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

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

PureBasic

CLS
INPUT "n=", n
DIM a(n)
FOR i = 1 TO n
a(i) = INT(RND(1) * 10 + 1)
PRINT a(i)
FOR s = 0 TO 4
IF s = 2 ^ n THEN PRINT a(i)
NEXT s
NEXT i

@Quiet Snow · 23.01.2012, 18:33

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

Чё то я не понял. Просто найти и распечатать элементы из массива, индексы которых явл. степенями двойки? Если да то:

PureBasic

CLS : RANDOMIZE TIMER
INPUT "Vvedite razmernost: ", n
DIM a(n), i AS INTEGER
FOR i = 1 TO n
   a(i) = INT(RND * 10 + 1)
   PRINT a(i);
NEXT: PRINT : PRINT
i = 1
WHILE i <= n
   PRINT a(i);
   i = i + i
WEND

@SSeregAA · 23.01.2012, 18:42 **[ТС]**

проверить не могу. т.к на x64 qbasic не раотает..
завтра постораюсь ответить..
а вообще как я понял задание:
выводим любые числа(1,5,6,8,7,4,3,2)
2^0=1
2^1=2
2^2=4
2^3=8
...
на экране должны появиться числа под номерами 1,2,4,8...(т.е(из данных чисел) 1, 5,8...)

@Quiet Snow · 23.01.2012, 18:48

т.к на x64 qbasic не раотает..

Поставьте DOSBox, я непроверенных прог не выкладываю.
QB64 в мусорку, он несовместим с QBasic, это обособленный диалект под винду с "якобы совместимостью".

@SSeregAA · 23.01.2012, 19:11 **[ТС]**

странно.. запускаю програму, нужно ввести значение n.. ввожу, но на экране ничего не появляется

Добавлено через 7 минут
можете объяснить что значит:

PureBasic

NEXT: PRINT : PRINT
i = 1
WHILE i <= n
   PRINT a(i);
   i = i + i
WEND

@кот Бегемот · 23.01.2012, 22:36

Сообщение от >Quiet Snow<

PureBasic

i = i + i

гениальная команда.
так, конечно, в 100 раз хуже:

PureBasic

i=2*i

или

PureBasic

i=0
do
print a(2^i)
i=i+1
loop until 2^i>n

@SSeregAA · 24.01.2012, 14:57 **[ТС]**

что значит while и почему в конце wend. а не end

@кот Бегемот · 24.01.2012, 18:30

Учите матчасть.
Оператор цикла WHILE...WEND повторяет операции, написанные между этими словами пока истинно условие, написанное после WHILE
а END в бейсике заканчивает выполнение всей программы.

@SSeregAA · 24.01.2012, 18:35 **[ТС]**

спасибо. но программа всё-равно не работает.
желательно конечно чтобы программа была написана самыми простыми командами.

@Quiet Snow · 24.01.2012, 18:42

но программа всё-равно не работает.

Установите DOS + QBasic, тогда она у вас заработает.

@SSeregAA · 24.01.2012, 18:48 **[ТС]**

показываю, что ничего не показывает

@softmob · 24.01.2012, 18:55

SSeregAA, а вводить размер массива кто будет?
все работает:

@Quiet Snow · 24.01.2012, 18:59

Хоспаде, во люди...

@SSeregAA · 24.01.2012, 19:09 **[ТС]**

действительно, неудобная ситуация.
я привык вводить цыфры на правой стороне клавиатуры. но почему то в программе цыфры не отображались.
сейчас всё работает. Спасибо)!

@Quiet Snow · 24.01.2012, 19:33

Сообщение от SSeregAA

я привык вводить цыфры на правой стороне клавиатуры

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

@SSeregAA · 25.01.2012, 11:13 **[ТС]**

и это знаю). но почему то в данной программе она отказывается работать..

@Quiet Snow 5002 / 1674 / 409 Регистрация: 25.04.2010 Сообщений: 4,628 Записей в блоге: 2
	24.01.2012, 19:33	15
	Сообщение от SSeregAA я привык вводить цыфры на правой стороне клавиатуры Для этого должен быть включен Num Lock, в противном случае цифровая клавиатура работает по-другому. 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	25.01.2012, 11:13 [ТС]	16
	и это знаю). но почему то в данной программе она отказывается работать.. 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	23.01.2012, 18:42 [ТС]	3
	проверить не могу. т.к на x64 qbasic не раотает.. завтра постораюсь ответить.. а вообще как я понял задание: выводим любые числа(1,5,6,8,7,4,3,2) 2^0=1 2^1=2 2^2=4 2^3=8 ... на экране должны появиться числа под номерами 1,2,4,8...(т.е(из данных чисел) 1, 5,8...) 0

@Quiet Snow 5002 / 1674 / 409 Регистрация: 25.04.2010 Сообщений: 4,628 Записей в блоге: 2
	23.01.2012, 18:48	4
	т.к на x64 qbasic не раотает.. Поставьте DOSBox, я непроверенных прог не выкладываю. QB64 в мусорку, он несовместим с QBasic, это обособленный диалект под винду с "якобы совместимостью". 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	24.01.2012, 14:57 [ТС]	7
	что значит while и почему в конце wend. а не end 0

@кот Бегемот Платежеспособный зверь 8926 / 4354 / 1642 Регистрация: 28.10.2009 Сообщений: 11,568
	24.01.2012, 18:30	8
	Учите матчасть. Оператор цикла WHILE...WEND повторяет операции, написанные между этими словами пока истинно условие, написанное после WHILE а END в бейсике заканчивает выполнение всей программы. 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	24.01.2012, 18:35 [ТС]	9
	спасибо. но программа всё-равно не работает. желательно конечно чтобы программа была написана самыми простыми командами. 0

@Quiet Snow 5002 / 1674 / 409 Регистрация: 25.04.2010 Сообщений: 4,628 Записей в блоге: 2
	24.01.2012, 18:42	10
	но программа всё-равно не работает. Установите DOS + QBasic, тогда она у вас заработает. 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	24.01.2012, 18:48 [ТС]	11
	показываю, что ничего не показывает Миниатюры 0

@softmob 1255 / 705 / 359 Регистрация: 20.02.2010 Сообщений: 1,035
	24.01.2012, 18:55	12
	Сообщение было отмечено как решение Решение SSeregAA, а вводить размер массива кто будет? все работает: Миниатюры 3

@Quiet Snow 5002 / 1674 / 409 Регистрация: 25.04.2010 Сообщений: 4,628 Записей в блоге: 2
	24.01.2012, 18:59	13
	Хоспаде, во люди... 0

@SSeregAA 0 / 0 / 0 Регистрация: 23.01.2012 Сообщений: 8
	24.01.2012, 19:09 [ТС]	14
	действительно, неудобная ситуация. я привык вводить цыфры на правой стороне клавиатуры. но почему то в программе цыфры не отображались. сейчас всё работает. Спасибо)! 0

Нахождения элементов массива S (из n элементов), индексы которых являются степенями двойки

Решение