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

Одномерный массив,блок-схема

04.12.2010, 16:01. Показов 3689. Ответов 5
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Помогите ,пожалуйста, сделать задание !

Надо нарисовать блок-схему,а потом в Exel через кнопку CommandButton написать программу етой блок-схемы.Вот задание:произведение элементов одномерного массива A(n),принадлежащих интервалу m...n.
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
04.12.2010, 16:01
Ответы с готовыми решениями:

одномерный массив* блок схема**
подскажите пожалуйста как выполнить задание! Нарисовать блок схему и написать программу, которая...

Одномерный массив и блок-схема
есть задача: Дана последовательность целых чисел. Определить номер наименьшего из них. Сообразил в...

Одномерный массив а из 20 элементов и блок схема
Дан одномерный массив А из 20 элементов. Возвести все элементы массива А в квадрат. Вывести...

Одномерный массив (блок-схема и программа)
Нужно составить блок-схему и программу к этой задаче! Задан одномерный числовой массив X из 10...

5
11510 / 3796 / 681
Регистрация: 13.02.2009
Сообщений: 11,204
04.12.2010, 19:58 2
а потом в Exel через кнопку CommandButton написать программу
А ты уверен, что задание стоит именно так?
Может назначить кнопке CommandButton макрос(процедуру) программы?
Нет. в принципе можно и через кнопку написать программу. Т.е. программно создать макрос.
Но в любом случае если тебе нужна помощь - начни что-то делать. Возникнут вопросы - обращайся. А с такой постановкой вопроса(что бы за тебя сделали) - в платный раздел!
0
11510 / 3796 / 681
Регистрация: 13.02.2009
Сообщений: 11,204
04.12.2010, 20:13 3
Изменяю своим правилам: не помогать лодырям!
Вот блок-схема
Миниатюры
Одномерный массив,блок-схема  
1
0 / 0 / 0
Регистрация: 04.12.2010
Сообщений: 9
04.12.2010, 21:32  [ТС] 4
Dim,i,Sum,Multy
Randomize
For i = 1 To 6
Cells(9,i)=500-Rnd(1000)*1000
Next i
Sum=0:Multy=1
For i = 1 To 6
If Cells(9,i)>=0 Then
Sum=Sum+Cells(9,i)
Else
Multy=Multy*Cells(9,i)
End If
Next i
Range("C10")=Sum:Range("F10")=Multy

Добавлено через 1 минуту
Помогите,пожалуйста,подправить ету программу для моей блок-схемы.
0
11510 / 3796 / 681
Регистрация: 13.02.2009
Сообщений: 11,204
04.12.2010, 21:45 5
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Private Sub CommandButton1_Click()
Dim i, Multy
Multy = 1
Cells.ClearContents
 
Randomize
 
Cells(2, 1) = "От"
Cells(3, 1) = "До"
Cells(2, 2) = Int(Rnd * 10)
Cells(3, 2) = Int(Rnd * 100 + 10)
 
 
For i = 1 To 10
Cells(9, i) = 50 - Int(Rnd * 100)
If Cells(9, i) > Cells(2, 2) And Cells(9, i) < Cells(3, 2) Then Multy = Multy * Cells(9, i)
Next i
 
Cells(12, 1) = "Произведение ="
Cells(12, 3) = Multy
End Sub
0
0 / 0 / 0
Регистрация: 04.12.2010
Сообщений: 9
04.12.2010, 21:51  [ТС] 6
Спасибо
0
04.12.2010, 21:51
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
04.12.2010, 21:51
Помогаю со студенческими работами здесь

Одномерный числовой массив ....+блок схема
Посчитать число компонентов целого массива из 10 элементов лежащих на отрезке Помогите найти...

Одномерный массив. Масса вагонов поездов. Блок-схема
Даны сведения о массах вагонов состава - массив А . 1) определить самый тяжелый вагон состава, его...

Положительные элементы матрицы переписать подряд в одномерный массив (блок схема)
Дано матрицу размерности N на M. Положительные элементы матрицы переписать подряд в одномерный...

Блок-схема, массив
Помогите, пожалуйста, составить блок-схему. В одномерном массиве х (10) найти сумму не...


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

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

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