Образовать новый массив b, каждый элемент которого равен произведению соответствующего элемента массива

@Наташка95 · Регистрация: 15.11.2013

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

Помогите решить пожалуйста в qbasic
Массив a содержит 10 целых чисел:1,2,3,5,4,9,12,8,13,17.образовать новый массив b, каждый элемент которого равен произведению соответствующего элемента массива a на номер этого элемента в массиве:bi=i*ai

____________________
заранее спасибо!!!)))))))))))))))

@markiza-inc · 28.11.2013, 22:14

Вот такой вариант:

QBasic/QuickBASIC

OPTION BASE 1
    
CLS : n = 10
DIM a(1 TO n) AS INTEGER, b(1 TO n) AS INTEGER
DATA 1,2,3,5,4,9,12,8,13,17
RESTORE
PRINT
FOR i = 1 TO n
        READ a(i): b(i) = a(i) * i
NEXT i
PRINT "Массив a:"
FOR i = 1 TO n
        PRINT USING "####&"; a(i); "  ";
NEXT i
PRINT : PRINT
PRINT "Массив b:"
FOR i = 1 TO n
        PRINT USING "####&"; b(i); "  ";
NEXT i
END

@vodav · 03.12.2013, 16:10

markiza-inc,
Прошу прощения, но если есть оператор OPTION BASE 1, то массив, размерностью 1...10, можно объявить:
DIM Array(10)

@markiza-inc · 03.12.2013, 22:15

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

но если есть оператор OPTION BASE 1

Сам я обычно так и делаю, даже без OPTION BASE, просто учитываю, что с 0-вого элемента идет отсчет.
Но стандартная форма интервальная, поэтому для других указываю полностью. А то уже были вопросы
на этот счет, ... почему так ... почему столько ... и т.д. ...

PS:
На некоторых диалектах до 10 элементов можно вообще не указывать массив через DIM.

Добавлено через 17 минут
Для примера:

QBasic/QuickBASIC

FOR i = 0 TO 10
        a(i) = i
        PRINT a(i);
NEXT i
PRINT
END

на QB4.5 и QB7.1 идет без проблем, и без всяких DIM-ов

@Наташка95 0 / 0 / 0 Регистрация: 15.11.2013 Сообщений: 6
		1
	Образовать новый массив b, каждый элемент которого равен произведению соответствующего элемента массива 28.11.2013, 20:42. Показов 696. Ответов 3 Метки нет (Все метки) Помогите решить пожалуйста в qbasic Массив a содержит 10 целых чисел:1,2,3,5,4,9,12,8,13,17.образовать новый массив b, каждый элемент которого равен произведению соответствующего элемента массива a на номер этого элемента в массиве:bi=i*ai ____________________ заранее спасибо!!!))))))))))))))) 0

@vodav 572 / 141 / 37 Регистрация: 12.03.2012 Сообщений: 401
	03.12.2013, 16:10	3
	markiza-inc, Прошу прощения, но если есть оператор OPTION BASE 1, то массив, размерностью 1...10, можно объявить: DIM Array(10) 1

Опции темы