ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос
5 сообщений из 5, страница 1 из 1
макрос
    #35002735
Bella_8686
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Bella_8686
Участник
привет!
подскажите, пожалуйста!!!!
1.Запишите код функции, при помощи которой можно решить следующую задачу: сложение с самим собой числа, переданного в качестве параметре( по ссылке) до тех пор, пока сумма не превысит 2000. Функция должна возвращать количество произвндённых опереций сложения. Предусмотрите случай, когда пользователь может передать в функцию отрицательное число или число, больше 1237.
2.Запишите код функции, при помощи которой можно решить следующую задачу: нахождение минимального и максимального элнмента массива. Массив передаётся в функцию в качестве параметра, из функции возвращается произведение минимального и максимального элемента.
У МЕНЯ ЭКЗАМЕН!!!!!
БУДУ БЛАГОДАРНА!!!!!!
...
Рейтинг: 0 / 0
11.12.2007, 23:03:33
| Ответить | Цитировать | Написать  
макрос
    #35003019
!GUEST!
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
!GUEST!
Гость
все идет к тому, что диплом всему форуму вручать будут!!
...
Рейтинг: 0 / 0
12.12.2007, 07:59:19
| Ответить | Цитировать | Написать  
макрос
    #35003115
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Bella_8686
2.Запишите код функции, при помощи которой можно решить следующую задачу: нахождение минимального и максимального элнмента массива. Массив передаётся в функцию в качестве параметра, из функции возвращается произведение минимального и максимального элемента.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
Public Sub TestProcessArray()
Const ARRAY_DIM As Long =  50 

Dim ar(ARRAY_DIM) As Long
Dim i As Long
Randomize
For i =  0  To ARRAY_DIM
    ar(i) = Rnd(i) *  100  +  1 
    Debug.Print ar(i);
Next i
Debug.Print vbCrLf & ProcessArray(ar())
End Sub

Public Function ProcessArray(ByRef p_array() As Long) As Long
    With Application.WorksheetFunction
        ProcessArray = .Max(p_array()) * .Min(p_array())
    End With
End Function

Bella_8686
БУДУ БЛАГОДАРНА!!!!!!
Можете начинать
...
Рейтинг: 0 / 0
12.12.2007, 09:23:53
| Ответить | Цитировать | Написать  
макрос
    #35003246
sqrk
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
sqrk
Гость
А вот и решение первой задачки.

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
Sub Culc(number As Single)
    Dim ii As Single
    Dim count As Integer
    
    count =  0 
    
    Select Case number
        Case Is <  0 
            MsgBox "Ââåäèòå ïîëîæèòåëüíîå ÷èñëî"
        Case Is >  1237 
             MsgBox "Ââåäèòå ìåíüøåå ÷èñëî"
        Case Else
            Do
            ii = ii + CSng(number)
            count = count +  1 
            Loop While ii <  2000 
            MsgBox "Êîëè÷åñòâî ñëîæåíèé " & count
    End Select
End Sub
...
Рейтинг: 0 / 0
12.12.2007, 10:17:12
| Ответить | Цитировать | Написать  
макрос
    #35003268
Deggasad
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Deggasad
Участник
Решение первой задачи - 2 функции
1-я по заданию, а вторая более правильная на мой взгляд, т.к. без цикла

Код: plaintext
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.
Sub primer()
Dim n
n =  5 
Debug.Print ArgCount(n)
Debug.Print ArgCount2(n)
End Sub

Public Function ArgCount(ByVal cifira As Double) As Long
 Dim mySum As Double
 
    If cifira <=  0  Or cifira >  1237  Then
     MsgBox "Агрумент должен находится в пределах от 0 до 1237" & Chr( 10 ) & _
            "Выполнение функции будет прервано"
     Exit Function
    End If
    
    Do
     mySum = mySum + cifira
     ArgCount = ArgCount +  1 
    Loop While mySum <=  2000 
    
End Function

Public Function ArgCount2(ByVal cifira As Double) As Long
 Dim mySum As Double
 
    If cifira <=  0  Or cifira >  1237  Then
     MsgBox "Агрумент должен находится в пределах от 0 до 1237" & Chr( 10 ) & _
            "Выполнение функции будет прервано"
     Exit Function
    End If
    
    ArgCount2 = Fix(Round( 2000  / cifira,  10 )) +  1 
    
End Function
...
Рейтинг: 0 / 0
12.12.2007, 10:23:03
| Ответить | Цитировать | Написать  
5 сообщений из 5, страница 1 из 1
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / макрос
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=61&msg=35003268&tid=2181742]:
 0ms
get settings:
 9ms
get forum list:
 15ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 33ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 34ms
get tp. blocked users:
 1ms
others: 232ms
total:  337ms
созд. / загр.: 337ms
x
x
Закрыть


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