|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
03.05.2011, 19:30 | #1 |
Пользователь
Регистрация: 08.04.2011
Сообщений: 12
|
2 задачи на массивы. почему не работают ??? ((((
1)Ввести массив A(N). Найти среднее геометрическое значение массива. Четные элементы массива увеличить на среднее геометрическое. Вывести преобразованный массив.
Sub pr1() Dim a(5) n = 5 For i = 1 To 5 a(i) = Cells(1, 1) P = 1 P = P * a(i) P = P ^ (1 / n) Next i For i = 2 To n Step 2 a(i) = a(i) + P Next i Cells(2, 1) = P Cells(2, 2) = a End Sub 2)Ввести массив A(N). Найти максимальный элемент массива. Нечетные элементы массива разделить на максимальный. Вывести полученный массив. Sub pr2() Dim i As Integer Maximum As Single InputArray Maximum = a(1) For i = 2 To n If Maximum < a(i) Then Maximum = a(i) Next i a(n) = Maximum 'Последний элемент массива заменить на минимальный. OutputArray 'Вывести преобразованный массив End Sub |
03.05.2011, 19:48 | #2 |
Старожил
Регистрация: 02.05.2009
Сообщений: 3,907
|
Код:
Анализ,обработка данных Недорого
|
21.05.2012, 21:06 | #3 |
Новичок
Джуниор
Регистрация: 21.05.2012
Сообщений: 2
|
Помогите пожалуйста с массивами.Очень надо.если не трудно то с объяснениями.
1. Ввести массив A(10). Найти среднее геометрическое значение массив. Все элементы массива разделить на среднее геометрическое. Вывести преобразованный массив. 2. Ввести массив A(10). Найти среднее арифметическое значение массива. Из четных элементов массива вычесть среднее арифметическое. Вывести преобразованный массив. 3. Ввести массив A(10). Найти максимальный элемент массива. Последний элемент массива увеличить на максимальный. Вывести преобразованный массив. 4. Ввести массив A(10). Нечетные элементы массива заменить на сумму элементов массива. Вывести преобразованный массив. 5.Ввести массив A(10).Найти минимальный элемент массива , произведение нечетных элементов массива.Заменить минимум на произведение.Вывести полученный массив. |
21.05.2012, 21:07 | #4 |
Программист VBA
СуперМодератор
Регистрация: 13.07.2008
Сообщений: 6,856
|
Ввиду резко возросшей активности студентов-бездельников
темы, не содержащие своих наработок, будут закрываться. В этом разделе форума помогают разобраться в Вашем решении, а не штампуют лабы одну за другой. Нет желания делать работу самостоятельно - обращайтесь в раздел Фриланс (там Вам всегда помогут, но не бесплатно) Нет желания платить - выкладывайте свои наработки, и говорите, что конкретно у Вас не получается. В этом случае вы наверняка получите помочь, и ждать её придётся совсем недолго. Впрочем, есть ещё раздел Помощь студентам - если хочется халявы, а денег жалко, - можете обратиться туда (есть небольшой шанс, что там кто-нибудь решит ваши задачки) Ну а если наработок нет, а вы все же надеетесь получить готовое решение от профессионалов, - создавайте новую тему, и сразу указывайте цену, которую Вы готовы заплатить за решение. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Jquery, все скрипыт почему-то не работают в ie7 | 92avenu | JavaScript, Ajax | 6 | 09.03.2011 22:15 |
Почему так работают функции в javascript | Arassir | JavaScript, Ajax | 3 | 04.02.2011 11:24 |
Почему не работают сессии? | Яр|/||< (^_^) | PHP | 6 | 14.07.2010 12:36 |
Почему две программы с инди одновременно работают некорректно? | TwiX | Работа с сетью в Delphi | 1 | 12.12.2009 15:22 |
Почему не работают модули в Delphi7: DXClass, DXSprite, DXDraws, ExtCtrls, StdCtrls | Mclaren | Помощь студентам | 3 | 02.05.2009 15:13 |