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

Даны массивы два массива. Получить третий массив

15.04.2013, 21:42. Показов 1519. Ответов 1
Метки нет (Все метки)

Здравствуйте. Прошу помощи у вас. Посмотрите, правильно ли я составил программу? Подправьте, если не так что.

Даны массивы X и Y, состоящие из 8 элементов(любые числа). Получить массив Z, элементы которого равны z(i) = 4 * x(i) - y(i). Найти минимальный элемент массива Z и количество его элементов, значения которых попадают в отрезок [-3;2].

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 Sub hdhdhd()
Dim x!(8), y!(8), z!(8), i%, min!, k%
k = 0
For i = 1 To 8
x(i) = Cells(i + 1, 1): y(i) = Cells(i + 1, 2)
z(i) = 4 * x(i) - y(i)
Cells(i + 1, 3) = z(i)
 
If z(i) > -3 And z(i) < 2 Then k = k + 1
If z(i) < min Then min = z(i)
 
 
Next
MsgBox "min=" + Str(min) + "   k=" + Str(k)
End Sub

2. Получить массивы X, Y и Z, элементы которых равны соответственно
x(i) =2*i;
y(i)=x(i)+i;
z(i)=y(i)-2x(i) ;

1<=i<=7. Найти сумму максимального и минимального элементов массива Z.

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
 Sub drVar()
Dim x!(7), y!(7), z!(7), i%, max!, min!, s!
For i = 1 To 7
 
 
x(i) = 2 * i
y(i) = x(i) + i
z(i) = y(i) - 2 * x(i)
 
Cells(i + 1, 1) = x(i)
Cells(i + 1, 2) = y(i)
Cells(i + 1, 3) = z(i)
If i = 1 Then min = z(i): max = z(i)
 
If z(i) < min Then min = z(i)
If z(i) > max Then max = z(i)
s = min + max
Next
 
MsgBox "max=" + Str(max) + " min=" + Str(min) + " s=" + Str(s)
 
End Sub
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
15.04.2013, 21:42
Ответы с готовыми решениями:

Даны два массива одного размера. Получить третий массив
Даны два массива одного размера. Получить третий массив, каждый элемент которого равен: а) сумме...

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

Даны два линейных массива А(10)и В(10). Сформируйте третий массив С(10)
Даны два линейных массива А(10)и В(10). Сформируйте третий массив С(10),элементы которого равны...

Даны два неубывающих массива. Выполнить объединение данных в третий, также неубывающий массив
Примечания: - все программы с массивами должны содержать отдельные подпрограммы для ввода (и,...

1
Модератор
8824 / 3315 / 849
Регистрация: 22.02.2013
Сообщений: 5,001
Записей в блоге: 78
15.04.2013, 22:13 2
Если массивы начинаешь нумеровать от 1, то используй Option Base 1
1) 3 строчка: у тебя минимальное число инициализируется нулем, поэтому если вводить только положительные числа, то они не будут корректно обрабатываться, лучше всего инициализировать первым элементом, но можно заведомо максимально возможным:
Visual Basic
1
k = 0:min = 3,4028235E+38
9 строчка:
Visual Basic
1
If z(i) >= -3 And z(i) <= 2 Then k = k + 1
2) 17 строчку надо вывести за цикл, т.к. нет необходимости каждый раз пересчитывать сумму
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
15.04.2013, 22:13
Помогаю со студенческими работами здесь

Даны два одномерных массива, создать третий массив, содержащий элементы первого и второго массивов
Дано два одномерных массива, создать третий массив,который содержит элементы первого и второго...

Даны два массива. Сформировать третий массив, каждый элемент которого - сумма элементов исходных
Даны два массива вещественных чисел. Сформировать третий массив, каждый элемент которого является...

Заменить два массива вывести на экран получить третий массив
Помогите пожалуйста решить задачу заменить два массива вывести на экран получить третий массив...

Даны два целочисленных одномерных массива. Сформировать третий одномерный массив на основе данных (полное в описании)
Помогите пожалуйста решить задачу!! Срочно нужна помощь! Даны два целочисленных одномерных...


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

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

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