Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста тупому студенту гуманитарию с информатикой. / 12 сообщений из 12, страница 1 из 1
30.11.2017, 15:51
    #39562029
oreshek41
oreshek41
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
сформировать на рабочем листе массив целых чисел в диапазоне от 1 до 30 .Найти сумму элементов кратных трём и больших заданного числа C (в visual basic)
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 16:07
    #39562038
982183
982183
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Ну что, снова сеанс телепатии.
сформировать на рабочем листе массив целых чисел в диапазоне от 1 до 30
Сформировать массив горизонтально, вертикально, по диагонали, напечатать, просто в памяти ?
Что такое "рабочий лист"?

авторНайти сумму элементов кратных трём и больших заданного числа C
элементов ЧЕГО?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 16:24
    #39562052
982183
982183
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
О торможу!
Worksheet
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 17:17
    #39562100
Shocker.Pro
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Пособие для студентов и школьников

oreshek41тупому студентуСамоуничижение не будет являться достаточным основанием для того, чтобы делать домашние задания за вас.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
30.11.2017, 17:59
    #39562135
наутилус
наутилус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
oreshek41,

в экселе макрос отрабатывает. а дальше задавайте вопросы
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
Sub Макрос1()
'
' Макрос1 Макрос
'

'
Dim y
Dim summa

Dim startInt
Dim endInt
Dim c
    
    startInt = 1
    endInt = 30
    c = 7
    
    y = 1
    summa = 0
    For i = startInt To endInt
        'просто выводим число в ячейку
        Range("A" + CStr(y)).Select
        ActiveCell.FormulaR1C1 = CStr(i)
        
        If (i > c) Then 'если число больше заданного
            If (i Mod 3 = 0) Then 'и делится на 3 без остатка
            summa = summa + i 'суммируем
            End If
        End If
        
        y = y + 1
    Next
    Range("A" + CStr(y + 2)).Select
    ActiveCell.FormulaR1C1 = "Сумма " + CStr(summa)
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 14:51
    #39573654
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub SelectedSumm()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = 1
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(30, 1)), Type:=xlFillSeries
c = InputBox("Ââåäèòå ÷èñëî C")
Select Case c
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0
Case Else
Cells(32, 1).Value = 0.5 * ((CInt(c / 3) + 1) * 3 + 30) * ((30 - (CInt(c / 3) + 1) * 3) / 3 + 1)
MsgBox ("&#194;&#251;&#247;&#232;&#241;&#235;&#229;&#237;&#232;&#255; &#238;&#234;&#238;&#237;&#247;&#229;&#237;&#251;. &#208;&#229;&#231;&#243;&#235;&#252;&#242;&#224;&#242; &#231;&#224;&#239;&#232;&#241;&#224;&#237; &#226; &#255;&#247;&#229;&#233;&#234;&#243; A32")
End Select
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 14:56
    #39573663
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Извините, с русской кодировкой - беда(

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub SelectedSumm()
ActiveSheet.Cells(1, 1).Select
ActiveCell.Value = 1
Selection.AutoFill Destination:=Range(Cells(1, 1), Cells(30, 1)), Type:=xlFillSeries
c = InputBox("Input Number C")
Select Case c
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0
Case Else
Cells(32, 1).Value = 0.5 * ((CInt(c / 3) + 1) * 3 + 30) * ((30 - (CInt(c / 3) + 1) * 3) / 3 + 1)
MsgBox ("Calculation complete. Summ written to cell A32")
End Select
End Sub
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 15:32
    #39573709
наутилус
наутилус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Aster32,

в чем вопрос?
код вообще непонятный.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 16:06
    #39573770
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Это не вопрос. Это рабочий код, решающий задачу, поставленную автором топика.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 16:23
    #39573805
наутилус
наутилус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Aster32,

особенно умиляют константы
Код: vbnet
1.
2.
Case Is <= 3: Cells(32, 1).Value = 165
Case Is >= 30: Cells(32, 1).Value = 0



и формула суммы. один вопрос препода - и студент едет в армию )))
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 17:18
    #39573886
Aster32
Aster32
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Вы правы.

Правильно так (не меньше или равно 3, а меньше 3):

...
Код: vbnet
1.
Case Is < 3: Cells(32, 1).Value = 165


...

Если в качестве числа C задано ровно 3, сумма будет равна 162, а не 165.

А что формула? Обычная сумма арифметической прогрессии.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
21.12.2017, 18:04
    #39573937
наутилус
наутилус
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Помогите пожалуйста тупому студенту гуманитарию с информатикой.
Aster32,

да это уже флуд... но по ситуации - преподаватель говорит а посчитай-ка мне, юный друг, диапазон чисел от 7 до 65.

и ваш код переделать будет непросто )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите пожалуйста тупому студенту гуманитарию с информатикой. / 12 сообщений из 12, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 143ms
Закрыть
start [/forum/topic.php?fid=60&tablet=1&tid=2155144]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 5ms
check topic access:
 5ms
track hit:
 41ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 2ms
others: 10ms
total:  143ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]