ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
25 сообщений из 100, страница 1 из 4
  1  все
Лабораторная работа, чтобы сдать зачет.
    #37294266
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Всем привет! Люди, помогите пожалуйста сделать лабораторную работу. Выручите студента.

И так перейдем собственно к лабораторной.
Нужно сделать задания в Excell + VBA. Сам я программирую на php и С++. Но тут застрял, ниже в картине задание.
Помогите чем сможете, в понедельник сдавать!
 
...
Рейтинг: 0 / 0
03.06.2011, 20:55
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294270
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING
1е сообщение - 8 пунктов
2е сообщение - ???
...
Рейтинг: 0 / 0
03.06.2011, 21:01
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294274
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Не понял сарказма. Нужно сделать все 8 заданий.
Помогите. Объясните хотя б.
...
Рейтинг: 0 / 0
03.06.2011, 21:05
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294279
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, кроме 8 и 4 го
цикл по количеству величины массива, идём по циклу и каждый элемент массива сортируем пл Вашим условиям
...
Рейтинг: 0 / 0
03.06.2011, 21:10
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294282
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
м, А примерно написать сможете?
Я просто 5 лаб, по 8 заданий уже сделал, крыша едет )))
...
Рейтинг: 0 / 0
03.06.2011, 21:14
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294284
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Или документ. первые 8 заданий.
да что уж все 20
...
Рейтинг: 0 / 0
03.06.2011, 21:14
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294287
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KINGм, А примерно написать сможете?
Я просто 5 лаб, по 8 заданий уже сделал, крыша едет )))
смогу, а Вы мне на Сам я программирую на php и С++ чего нибудь сваяете??
...
Рейтинг: 0 / 0
03.06.2011, 21:16
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294291
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
я на низком старте:
Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an являющихся нечётными числами
Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an кратных 3 и не кратных 5.
Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an являющихся квадратами чётных чисел.
Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an удовлетворяющих условию
.

Даны натуральные числа n, a1, a2, … ,an. Определить количество ak последовательности a1,a2,…,an удовлетворяющих условию
.

Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn которые являются удвоенными нечётными числами.
Даны натуральные числа n, q1, q2,…, qn. найти те члены qi последовательности q1, q2,…, qn которые при делении на 7 дают остаток 1.2 или 5.
Уже переписал!!!!!!!!
...
Рейтинг: 0 / 0
03.06.2011, 21:21
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294294
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
от первое задание начинал как то так:
КодOption Base 1
Sub primer()
Dim i As Integer
Dim k As Integer
Dim n As Integer
Dim B(1 To 100) As Integer
n = InputBox("Введите n от 1 до 100", n)
k = 0
For i = 1 To n
If IsOdd(B(i)) = True Then
k = k + 1
End If
Cells(1, 1).Value = k
Next i
End Sub


"Или документ. первые 8 заданий. " Быстро сарафанное радио работает))))))

Свояить по возможности и силе знаний)))
...
Рейтинг: 0 / 0
03.06.2011, 21:23
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294298
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

If IsOdd(B(i)) = True Then что это?? за условие
...
Рейтинг: 0 / 0
03.06.2011, 21:29
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294301
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Фиг знает))) в инете надыбал, я синтаксис ваще не знаю... Ну как я понял ISODD() - проверяет на нечетность. ISEVEN - проверка четности. но они не работают... :(
...
Рейтинг: 0 / 0
03.06.2011, 21:35
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294305
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

что то вроде того
If B(i) \ 2 <> 1 = True Then k = k + 1 'являющихся нечётными числами
...
Рейтинг: 0 / 0
03.06.2011, 21:37
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294309
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
не работает. Вводишь когда n. он его принимает, и тупо выводит тоже самое число в ячейку A1

непонятно :(
...
Рейтинг: 0 / 0
03.06.2011, 21:40
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294312
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
ока гостем тут был, лазил тут

/topic/723754&pg=2
...
Рейтинг: 0 / 0
03.06.2011, 21:41
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294313
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, так в ячейку залетает количество четн\нечетн чисел, а если сами чило то
Cells(1, 1).Value = B(i)
...
Рейтинг: 0 / 0
03.06.2011, 21:44
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294318
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
Check = Value Mod 2 = 0 — самый кошерный способ.
...
Рейтинг: 0 / 0
03.06.2011, 21:46
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294319
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Аааааа... У меня паника! Ничего не работает! ))))))

Че делать то?

Попробуй с нуля написать. Я хз. написал Cells(1, 1).Value = B(i), он мне в ячейку 0 забацал
...
Рейтинг: 0 / 0
03.06.2011, 21:48
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294324
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, эксель не моя стихия, я решение подсказываю, сейчас попробую
...
Рейтинг: 0 / 0
03.06.2011, 21:52
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294331
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Во я попал блин.
А знакомые User'ы есть кто шарит в этом?
В-первом задании, код ваще непонятный. Он цикл не считает, и условие не проверяет, а просто введенное n выводит в A1
...
Рейтинг: 0 / 0
03.06.2011, 22:02
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294333
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,
там с ошибкой http://www.cyberforum.ru/vba/thread312449.html
но начало верное
...
Рейтинг: 0 / 0
03.06.2011, 22:03
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294334
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
DI KING,
Добавляю типо примера лекции. мало ли, может поможет.
...
Рейтинг: 0 / 0
03.06.2011, 22:04
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294336
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Ципихович ЭндрюDI KING,
там с ошибкой http://www.cyberforum.ru/vba/thread312449.html
но начало верное

Там ругается на: For i = 1 To c
А вот почему непонятно.
...
Рейтинг: 0 / 0
03.06.2011, 22:07
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294341
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
я спать, возможно кое-что лишнее
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Sub Chage()

    Dim n As Integer, A(), Ind(), i As Integer, c As Integer
    Cells.Clear
 n = InputBox("Введите размер массива:")
    ReDim A( 1  To n)
    For i =  1  To n
    
     A(i) = Int(Rnd *  50  +  10 )
     
Cells( 1 , i).Value = A(i)
     Next
 
c =  0 

Cells.Clear

For i =  1  To n
If A(i) Mod  2  =  0  Then
c = c +  1 
Cells( 1 , i).Value = A(i)

End If
Next


End Sub
...
Рейтинг: 0 / 0
03.06.2011, 22:15
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294345
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
да. я тоже. Надеюсь на твою помощь! Хоть кто то отозвался!
...
Рейтинг: 0 / 0
03.06.2011, 22:18
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37294607
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Я второе задание сделал! Помогите с остальными.
...
Рейтинг: 0 / 0
04.06.2011, 12:23
| Ответить | Цитировать | Написать  
25 сообщений из 100, страница 1 из 4
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37294318&tid=2158648]:
 0ms
get settings:
 10ms
get forum list:
 12ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 39ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 373ms
total:  512ms
созд. / загр.: 512ms
x
x
Закрыть


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