Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
Keit535
0 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 10
#1

Последовательность вещественных чисел

03.06.2011, 20:46. Просмотров 703. Ответов 2
Метки нет (Все метки)

Дана последовательность вещественных чисел x1,x2...x30 . Вычислить вектор Y по формулам:
y1=x1+x2+x3+x4+x5
y2 =x6+x7+x8+x9+x10
.
.
.
y6=x26+x27+x28+x29+x30

Правильно я написала???

1 Option Explicit
2 Sub p1()
3 Dim x(1 To 6, 1 To 5) As Double
4 Dim i As Double, j As Double, k As Double, s As Double
5 For i = 1 To 6
6 For j = 1 To 5
7 x(i, j) = InputBox("Введите 30 значений x")
8 Next j
9 Next i
10 For i = 1 To 6
11 For j = 1 To 5
12 Cells(i, j).Value = x(i, j)
13 Next j
14 Next i
15 For i = 1 To 6
16 s = 0
17 For j = 1 To 5
18 s = s + x(i, j)
19 Next
20 Cells(i, 7) = s
21 For j = 1 To 5
22 For k = j + 1 To 5
23 Next k
24 Next j
25 Next i
26 For i = 1 To 6
27 s = 0
28 For j = 1 To 6
29 Next j
30 Next i
31 End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.06.2011, 20:46
Ответы с готовыми решениями:

Дана последовательность из n вещественных чисел. Найти колличество нулевых элементов последовательности и произведение отрицательных элементов
VBA, не как не могу написать(

Дана последовательность действительных чисел . Вставить действительное число b в нее так, чтобы последовательность осталась неубывающей
Здравствуйте! Ребят, помогите ещё разок кипятильнику. Задачка такая: Дана...

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой...

Дана последовательность целых чисел. Найти количество различных чисел в этой последовательности
Дана последовательность целых чисел. Найти количество различных чисел в этой...

Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите количество членов последовательности , не превосходящих заданного N.
Дано натуральное чисел N и последовательность чисел - 1,1,3,5,... Вычислите...

2
19vitek
725 / 401 / 95
Регистрация: 19.12.2010
Сообщений: 756
03.06.2011, 23:01 #2
подправил.
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Option Explicit
 Sub p1()
 Dim x(1 To 30) As Integer
 Dim i As Integer, j As Integer, k As Integer, s As Integer
 Cells.Clear
 Randomize
 For i = 1 To 30
  x(i) = Int(Rnd * 30)
  Cells(i, 1).Value = x(i)
 'InputBox ("Введите 30 значений x")
 Next i
k = 0
 For i = 1 To 6
 s = 0
 For j = 1 To 5
 k = k + 1
 s = s + x(k)
 Cells(i, j + 2) = x(k)
 Next j
  Cells(i, j + 2) = "="
  Cells(i, j + 3).Value = s
 Next i
 End Sub
1
Keit535
0 / 0 / 0
Регистрация: 03.06.2011
Сообщений: 10
03.06.2011, 23:03  [ТС] #3
Спасибо большое=)))
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
03.06.2011, 23:03

Определить среднее арифметическое вещественных чисел
Даны натуральное число n и вещественные числа a1, a2, ..., an. Определить...

Из массива Z[15] вещественных чисел удалить все повторяющиеся элементы
Написать программу. Из массива Z вещественных чисел удалить все повторяющиеся ...

Вводится последовательность из N чисел. Найти произведение и количество положительных среди них чисел
Вводится последовательность из N чисел. Найти произведение и количество...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru