Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Образовательный студенческий форум _ Информатика / Программирование _ Прошу помощи в составлении программы на QBasic

Автор: FirsT 12.5.2012, 12:38

Задача. Организовать массив из 12 элементов, если элементы с четным индексом равны 1, с нечетным равны 2. Найти произведение элементов.
*Примечание:при этом допустимо использовать операторы: DIM(одномерный, двумерный),LET, READ-DATA, WHILE, FOR-TO-STEP-NEXT, GO TO, IF-THEN-ELSE, INPUT-PRINT.
Решение.
Dim x(12)
For i = 1 to 12
P = 1
x(i * 2) = 1
x((i * 2) +1) = 2
...
И тут возникает несколько вопросов. Что писать дальше? Правильно ли составлена программа на данном этапе? Спасибо.
С ув. FirsT.


Автор: Vahappaday 12.5.2012, 18:02

Dim x(12)
P = 1
For i = 1 to 6
x(i * 2) = 1
x((i * 2)-1) = 2
P=P*x(i*2)
P=P*x(i*2-1)
Next
Print P

Как-то так...
Все исправления понятны?

Автор: FirsT 13.5.2012, 7:06

Цитата(Vahappaday @ 12.5.2012, 22:02) *

Dim x(12)
P = 1
For i = 1 to 6
x(i * 2) = 1
x((i * 2)-1) = 2
P=P*x(i*2)
P=P*x(i*2-1)
Next
Print P

Как-то так...
Все исправления понятны?

Всё понятно, спасибо за помощь!

Русская версия Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)