Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет. / 25 сообщений из 100, страница 1 из 4
  1  все
03.06.2011, 20:55
    #37294266
DI KING
DI KING
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
Всем привет! Люди, помогите пожалуйста сделать лабораторную работу. Выручите студента.

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

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

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

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

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

Че делать то?

Попробуй с нуля написать. Я хз. написал Cells(1, 1).Value = B(i), он мне в ячейку 0 забацал
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2011, 21:52
    #37294324
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
DI KING, эксель не моя стихия, я решение подсказываю, сейчас попробую
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2011, 22:02
    #37294331
DI KING
DI KING
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
Во я попал блин.
А знакомые User'ы есть кто шарит в этом?
В-первом задании, код ваще непонятный. Он цикл не считает, и условие не проверяет, а просто введенное n выводит в A1
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2011, 22:03
    #37294333
Ципихович Эндрю
Ципихович Эндрю
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
DI KING,
там с ошибкой http://www.cyberforum.ru/vba/thread312449.html
но начало верное
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2011, 22:04
    #37294334
DI KING
DI KING
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
DI KING,
Добавляю типо примера лекции. мало ли, может поможет.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
03.06.2011, 22:07
    #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:15
    #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:18
    #37294345
DI KING
DI KING
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
да. я тоже. Надеюсь на твою помощь! Хоть кто то отозвался!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
04.06.2011, 12:23
    #37294607
DI KING
DI KING
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Лабораторная работа, чтобы сдать зачет.
Я второе задание сделал! Помогите с остальными.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет. / 25 сообщений из 100, страница 1 из 4
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 524ms
Закрыть
start [/forum/topic.php?fid=60&mobile=1&tid=2158648]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 45ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 381ms
total:  524ms
x
x
Закрыть


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