ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
25 сообщений из 100, страница 3 из 4
  3  все
Лабораторная работа, чтобы сдать зачет.
    #37295364
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Круто! работает. и код маленький.
А остальные как делать? Условия только менять?
...
Рейтинг: 0 / 0
05.06.2011, 13:21
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295371
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,
решили если при делении на 2 остаток равен 0
а чем это отличается от задач
кратных 3 и не кратных 5
при делении на 7 дают остаток 1.2 или 5
а эти
квадратами чётных чисел.
удвоенными нечётными числами.
думать надо, просто точно не знаю, лишь догадываюсь
остальное не знаю
PS в ящик вчера заглядывали? кое что спрашивал
...
Рейтинг: 0 / 0
05.06.2011, 13:28
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295372
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Вот 3 задание там тоже самое только.

являющихся квадратами чётных чисел.

Эт как объяснить сможете, или условие написать?
...
Рейтинг: 0 / 0
05.06.2011, 13:29
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295374
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
PS в ящик вчера заглядывали? кое что спрашивал

Проверил. пусто. Ящик di_king@live.ru ?
...
Рейтинг: 0 / 0
05.06.2011, 13:32
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295381
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,
являющихся квадратами чётных чисел.
я не знаю как в ВБА извлекать корень квадратный, да наверное так же как и везде
то есть извлекли, если извлечённо четное, тогда то шо нужно
...
Рейтинг: 0 / 0
05.06.2011, 13:39
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295385
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING PS в ящик вчера заглядывали? кое что спрашивал

Проверил. пусто. Ящик di_king@live.ru ?
полтергейс
напишите мне на 89028912680 собака майл ру
...
Рейтинг: 0 / 0
05.06.2011, 13:43
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295386
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Macro1()

n = InputBox("Введите размер массива:")
    
c =  0 

For i =  1  To n
If i Mod  2  =  0  [color=red]And Sqr(i)[/color] Then c = c +  1 

Next
'
'
MsgBox "Количество нечётных: " & c 'или чётных не помню
End Sub

Так что ли получается?
...
Рейтинг: 0 / 0
05.06.2011, 13:43
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295387
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
меня система защиты это письмо спрятала. щас откопал. Отправил ответ.
...
Рейтинг: 0 / 0
05.06.2011, 13:44
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295393
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, теги покорились
Код: plaintext
If Sqr(i) Mod  2  =  0  Then c = c +  1
...
Рейтинг: 0 / 0
05.06.2011, 13:51
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295395
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Код: plaintext
Dim da As String ' Покорились. Письмо получили?
...
Рейтинг: 0 / 0
05.06.2011, 13:56
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295398
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, нету письма
...
Рейтинг: 0 / 0
05.06.2011, 14:00
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295424
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Эта штуковина делает тоже самое что и предыдущая...
Код: plaintext
If Sqr(i) Mod  2  =  0  Then c = c +  1

Почему? Sqr(i) - правильно.
Получается. он берет 1 сует в корень. проверяет деление без остатка. если гуд то с увеличивает. И так по циклу.

Только получается одно значение, что и в первом задании.
...
Рейтинг: 0 / 0
05.06.2011, 14:28
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295430
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,
я надеюсь пошагово делаете через Эф8??
просто Вы маленький видимо массив делаете
так Вы один раз попробуйте и =81 и и =100 и ощутите разницу
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Macro134()

'являющихся квадратами чётных чисел
n = InputBox("Введите размер массива:")
    
c =  0 

For i =  1  To n
i =  81 
g = Sqr(i)
If Sqr(i) Mod  2  =  0  Then c = c +  1 

Next
'
'
MsgBox "Количество являющихся квадратами чётных чисел: " & c
End Sub
...
Рейтинг: 0 / 0
05.06.2011, 14:38
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295432
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Пошагово делал массив 81 тоже самое. и в автомате делал 256 и 512. одинаковые результаты. :(
...
Рейтинг: 0 / 0
05.06.2011, 14:42
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295439
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

пошагово i = 81, а затем i = 100 и разницу смотрите
один раз с 81 извлекаем будет 9 - нечёт
второй раз с 100 извлекаем будет 10 - чёт
...
Рейтинг: 0 / 0
05.06.2011, 14:47
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295441
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
и вообще строку прошли, на предыдущую курсор наводите на все неизвестные подсвечивает что чему равно
Правда бывает что и не подсечивает - почему ХЗ
...
Рейтинг: 0 / 0
05.06.2011, 14:49
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295444
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
так число не статично вбивать. а чтоб он сам выбирал. от 1 до 70 - пример

Sqr(4) = 2 (записали)
Sqr(16) = 4 (записали)
Sqr(64) = 8 (записали)
и так по циклу...
тут получается 3 четных. Вот. так надо.
...
Рейтинг: 0 / 0
05.06.2011, 14:53
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295448
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

n = InputBox("Введите размер массива:") здесь скажете 70

ниже в мусорку
i = 81
g = Sqr(i)
и на автомат, ОК??
...
Рейтинг: 0 / 0
05.06.2011, 14:56
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295454
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Sub Macro134()

'являющихся квадратами чётных чисел
n = InputBox("Введите размер массива:", n)
    
c =  0 

For i =  1  To n 'тут предел 70
If Sqr(i) Mod  2  =  0  Then c = c +  1 

Next
'
'
MsgBox "Количество являющихся квадратами чётных чисел: " & c 'ответ выдает 38. ну не может такого быть.
End Sub
...
Рейтинг: 0 / 0
05.06.2011, 15:00
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295463
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

пошагово на стоке n = InputBox("Введите размер массива:", n)
вылазит форма? это InputBox в зависимости что в него ввести это пойдёт в переменную ЭН
если ввели 70 то это и будет предел
...
Рейтинг: 0 / 0
05.06.2011, 15:11
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295473
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
КодSub Macro134()

'являющихся квадратами чётных чисел
n = InputBox("Введите размер массива:", n)

c = 0

For i = 1 To n ' тут предел 70
If Sqr(i) Mod 2 = 0 Then c = c + 1

Next
'
'
MsgBox "Количество являющихся квадратами чётных чисел: " & c ' ответ выдает 38. ну не может такого быть.
End Sub

Я не совсем уж тупой. это же банальности. конечно я это все понимаю.
Я не пойму почему If Sqr(i) Mod 2 = 0 Then c = c + 1 неправильно работает. Может так?

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Sub Macro134()
Dim g As Integer

'являющихся квадратами чётных чисел
n = InputBox("Введите размер массива:", n)
    
c =  0 

For i =  1  To n 'тут предел 70
g = Sqr(i)
If g Mod  2  =  0  Then c = c +  1 

Next
'
'
MsgBox "Количество являющихся квадратами чётных чисел: " & c 'ответ выдает 38. ну не может такого быть.
End Sub
...
Рейтинг: 0 / 0
05.06.2011, 15:20
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295477
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

то есть в строках
Код: plaintext
1.
2.
3.
g = Sqr(i)
If g Mod  2  =  0  Then c = c +  1 
'и
If Sqr(i) Mod  2  =  0  Then c = c +  1
Вы разницу видите, я нет
Но проверю
...
Рейтинг: 0 / 0
05.06.2011, 15:25
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295480
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
проверил, нет разницы
Код: plaintext
1.
2.
3.
4.
5.
i =  81 
g = Sqr(i)
If g Mod  2  =  0  Then c = c +  1 
'и
If Sqr(i) Mod  2  =  0  Then c = c +  1
...
Рейтинг: 0 / 0
05.06.2011, 15:27
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295495
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Не знай. ну а по вашему как должно быть?
Чтоб выдавал точное кол-во, как по подсчетам:
Sqr(4) = 2 (записали)
Sqr(16) = 4 (записали)
Sqr(64) = 8 (записали)

тут получается 3 четных.
...
Рейтинг: 0 / 0
05.06.2011, 15:41
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295499
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

действительно 38!!
подумаю
...
Рейтинг: 0 / 0
05.06.2011, 15:48
| Ответить | Цитировать | Написать  
25 сообщений из 100, страница 3 из 4
  3  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37295439&tid=2158648]:
 0ms
get settings:
 11ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 42ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 70ms
get tp. blocked users:
 2ms
others: 353ms
total:  513ms
созд. / загр.: 513ms
x
x
Закрыть


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