0 / 0 / 0
Регистрация: 15.11.2013
Сообщений: 6
1

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

28.11.2013, 20:42. Показов 753. Ответов 3
Метки нет (Все метки)

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

____________________
заранее спасибо!!!)))))))))))))))
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.11.2013, 20:42
Ответы с готовыми решениями:

Получите новый массив, каждый элемент которого равен удвоенному соответствующему элементу исходного
Дали контрольную, где несколько задач по одномерным массивам...помогите разобраться с ними: №1...

Сформировать одномерный массив, каждый элемент которого равен количеству отрицательных элементов, кратных 3
1) Дан двумерный массив размером 4*5,заполненный целыми числами с клавиатуры.Сформировать...

Переставить местами k-й и (k+1)-й элементы массива и образовать новый массив
Не получается переставить местами элементы массива, перепробовал кучу вариантов Добавлено через...

Получить новый массив B, каждый элемент которого равен сумме соответствующего элемента массива А и минимального элемента массива А
1) Дан одномерный массив А. Получить новый массив B, каждый элемент которого равен сумме...

3
913 / 240 / 100
Регистрация: 21.10.2012
Сообщений: 580
28.11.2013, 22:14 2
Вот такой вариант:

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
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
0
572 / 141 / 37
Регистрация: 12.03.2012
Сообщений: 403
03.12.2013, 16:10 3
markiza-inc,
Прошу прощения, но если есть оператор OPTION BASE 1, то массив, размерностью 1...10, можно объявить:
DIM Array(10)
1
913 / 240 / 100
Регистрация: 21.10.2012
Сообщений: 580
03.12.2013, 22:15 4
Цитата Сообщение от vodav Посмотреть сообщение
но если есть оператор OPTION BASE 1
Сам я обычно так и делаю, даже без OPTION BASE, просто учитываю, что с 0-вого элемента идет отсчет.
Но стандартная форма интервальная, поэтому для других указываю полностью. А то уже были вопросы
на этот счет, ... почему так ... почему столько ... и т.д. ...

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

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

QBasic/QuickBASIC
1
2
3
4
5
6
FOR i = 0 TO 10
        a(i) = i
        PRINT a(i);
NEXT i
PRINT
END
на QB4.5 и QB7.1 идет без проблем, и без всяких DIM-ов
1
03.12.2013, 22:15
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
03.12.2013, 22:15
Помогаю со студенческими работами здесь

Получить новый массив b, каждый элемент которого равен сумме цифр соответствующего элемента массива а
Очень очень нужно!!! Заполнить одномерный целочисленный массив a числами, введенными с...

Получите новый массив,каждый элемент которого равен квадрату соответствующего элемента исходного массива
Сформулируйте массив, содержащий 15 элементов, с помощью датчика случайных чисел.Получите новый...

Получить новый массив b, каждый элемент которого равен сумме цифр соответствующего элемента массива a
Заполнить одномерный целочисленный массив a числами, введёнными с клавиатуры в поле Memo1. Получить...

Из массива (15 элементов) получите новый массив, каждый элемент которого равен сумме соответствующего исходного элемента и его квадрата
Доброе время суток! Почти никогда не писал на форум, как то сам все обычно сочинял, но тут...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru