![]() |
|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
![]() |
|
|
Опции темы | Поиск в этой теме |
![]() |
#1 |
Регистрация: 27.06.2008
Сообщений: 6
|
![]()
Задача: в одномерном массиве из 10 значений целого типа посчитать сумму каждого 1 с разностью 3 со 2 и вывести их в таблицу.Пожалуйста помогите, очень надо до субботы.Плизззззз помогите...
|
![]() |
![]() |
![]() |
#2 |
Форумчанин
Регистрация: 22.11.2007
Сообщений: 224
|
![]()
Что значит "Вывести в таблицу"?
Последний раз редактировалось NikLik; 27.06.2008 в 10:09. |
![]() |
![]() |
![]() |
#3 |
Форумчанин
Регистрация: 29.10.2007
Сообщений: 628
|
![]() |
![]() |
![]() |
![]() |
#4 |
Регистрация: 27.06.2008
Сообщений: 6
|
![]()
Значит сделать в икселе с кнопкой. Подскажите пожалуйста, что там с этими массивами писать?
|
![]() |
![]() |
![]() |
#5 | |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]() Цитата:
1) Вычитаем из 3-го элемента 2-й; 2) Прибавляем к результату п.1 значение 1-го элемента; 3) Результат п.2 записываем в 1-й элемент таблицы; 4) Повторяем пп.1-3 для элементов 4,5,6; 5) Повторяем пп. 1-3 для элементов 7,8,9; Вопрос: Что тогда с 10-м элементом делать?
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() |
|
![]() |
![]() |
![]() |
#6 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
Отвечай скорее, пока я в онлайне
![]()
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() |
![]() |
![]() |
![]() |
#7 |
Регистрация: 27.06.2008
Сообщений: 6
|
![]()
вроде так,первые два пункта точно!))а десятый можно не трогать
|
![]() |
![]() |
![]() |
#8 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
Вроде сделал. Держи Экселевский файл. Только не забудь разрешить макросы
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() |
![]() |
![]() |
![]() |
#9 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
По нажатию кнопки "Запуск" запускается процедура:
Private Sub CommandButton1_Click() For i = 1 To 3 Лист1.Cells(i + 1, 3) = Лист1.Cells(i * 3 + 1, 2) - Лист1.Cells(i * 3, 2) + Лист1.Cells(i * 3 - 1, 2) Next i End Sub
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() Последний раз редактировалось bag; 27.06.2008 в 21:09. |
![]() |
![]() |
![]() |
#10 |
Пользователь
Регистрация: 20.06.2008
Сообщений: 95
|
![]()
Пойдет?
![]() ![]()
Не забывайте оставлять отзывы (кнопочка в левом нижнем углу сообщения)
![]() Последний раз редактировалось bag; 27.06.2008 в 21:11. |
![]() |
![]() |
![]() |
|
Опции темы | Поиск в этой теме |
![]() |
||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите пожалуйста!!!!Задача в Visual Basic ! | Irisha | Microsoft Office Excel | 3 | 27.06.2008 02:19 |