ReSQL.ru
     
powered by simpleCommunicator - 2.0.55     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
25 сообщений из 100, страница 4 из 4
  4  все
Лабораторная работа, чтобы сдать зачет.
    #37295505
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
не знаю, если отдельно проверять то
Код: plaintext
1.
i =  3 
g = Sqr(i)
ку = 1, 7 всё верно
а там в цикле когда и = 3
то тогда ку = 2
ХЗ
...
Рейтинг: 0 / 0
05.06.2011, 15:54
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295515
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Так. ну тогда дело в том что типы данных обрабатывает неверно.
1,7 - это Double
А он фигарит как Integer (тобишь целые).
Поэтому они совпадают извлекает с округлением. и проходит проверку на вшивость)))

Вот тут надо как то решить это. чтоб он проверял только Integer, а Double пропускал. тогда результат сократиться так как нам нужно.
...
Рейтинг: 0 / 0
05.06.2011, 16:07
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295522
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING,

это не по взрослому но тем не менее
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
Sub Macro134()

Dim g As Double

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

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

'i = 3
'g = Sqr(i)

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

Что там со следующей?)
...
Рейтинг: 0 / 0
05.06.2011, 16:21
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295537
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
что значит пофиг, проверяйте
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Sub Macro134()

Dim g As Double

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


Dim какие As String
For i =  1  To n
g = Sqr(i)
If g Like "*,*" = False And g Mod  2  =  0  Then c = c +  1 : какие = какие & " " & i & Chr( 13 )

'i = 3
'g = Sqr(i)

Next
'
'
MsgBox "Количество являющихся квадратами чётных чисел: " & c & Chr( 13 ) & какие
End Sub
...
Рейтинг: 0 / 0
05.06.2011, 16:32
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295540
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Все Работает! Отлично!

4 пропустим, давайте к 5 приступим)
...
Рейтинг: 0 / 0
05.06.2011, 16:36
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295547
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, я не знаю что такое а а чуть ниже него рядом справа к
...
Рейтинг: 0 / 0
05.06.2011, 16:42
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295558
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Давайте попробуем 5 задание.
...
Рейтинг: 0 / 0
05.06.2011, 17:01
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295559
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, в 16:42 я написал, ничего не изменилось
...
Рейтинг: 0 / 0
05.06.2011, 17:04
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295565
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
А ну короче. Я понял так!

Мы выщитываем кол-во ak, по условию 2 ^ k < ak < k!

(факториал это цикл от 1 до k)
==========
переменная = число
n=1
FOR i=2 to переменная
n=i*n
NEXT
на выходе получается факториал, и кидаем в условие
==========
ak это цифра в массиве.
k это место в массиве.

И вот непонятно как это закодить.
...
Рейтинг: 0 / 0
05.06.2011, 17:19
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295567
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, неа, в матиматике не силён, на киберфоруме ройтесь там такого добра море
...
Рейтинг: 0 / 0
05.06.2011, 17:26
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295570
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Так ну ладно. позже поковыряю.

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

которые являются удвоенными нечётными числами???
это что - можно только догадываться
если разделить на два будет нечет???
если да то что сложного??????
...
Рейтинг: 0 / 0
05.06.2011, 17:35
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295582
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
вон http://www.cyberforum.ru/vba/thread313566.html твой одногрупник бомбит, ответь ему
...
Рейтинг: 0 / 0
05.06.2011, 17:39
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295585
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Ну я так понял.

1*2 = 2 (записали)
3*2 = 6 (записали)
5*2 = 10 (записали)
7*2 = 14 (записали)
9*2 = 18 (записали)

вот так. то что (записали) - считаем кол-во.
а то что первые цифры это нечетные. вроде похоже как в первом, только нужно посчитать другое.
...
Рейтинг: 0 / 0
05.06.2011, 17:43
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295588
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Бугага))) весело. пусть сидит))) а мы тут решаем)))
...
Рейтинг: 0 / 0
05.06.2011, 17:45
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295591
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KINGНу я так понял.

1*2 = 2 (записали)
3*2 = 6 (записали)
5*2 = 10 (записали)
7*2 = 14 (записали)
9*2 = 18 (записали)

вот так. то что (записали) - считаем кол-во.
а то что первые цифры это нечетные. вроде похоже как в первом, только нужно посчитать другое.

я плохо понял что здесь указано, просто ответьте цикл до 20 сколько будет искомых и какие
...
Рейтинг: 0 / 0
05.06.2011, 17:47
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295624
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
1*2 = 2 (записали)
3*2 = 6 (записали)
5*2 = 10 (записали)
7*2 = 14 (записали)
9*2 = 18 (записали)
тобишь

k - получаем из первого задания
k - нечетные числа
c = k * 2 ( i считать по этому выражению)
i = i + 1
Cells(i,1).Value = c
--------------------
Потом после цикла

MsgBox "Кол-во" & i

ну вроде так должно быть. Попробуйте написать.
...
Рейтинг: 0 / 0
05.06.2011, 18:34
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295628
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, коротко ответьте
сколько будет искомых??
и какие, в столбик, ОК??
...
Рейтинг: 0 / 0
05.06.2011, 18:39
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295635
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
я не знаю как еще объяснить.

ну мы будем выводить результаты.
3*2 = 6 (записали)
5*2 = 10 (записали)
k*2 = c (записать)

а как там это вертеть я не знаю. вот что смог объяснить, по другому не могу.

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

просто ответьте цикл до 20
1
сколько будет искомых??
2
какие??? в столбик
без лирики
...
Рейтинг: 0 / 0
05.06.2011, 18:49
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295661
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Вообщем нужно Модернизировать вот этот код.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub Macros1()
'
n = InputBox("Размер массива:")
c =  0 

For i =  1  To n
If i Mod  2  <>  0  Then c = c +  1 

Next
'
MsgBox "Кол-во нечетных: " & c
'
End Sub

Добавить: то что нам нужно. за правильность не ручаюсь.
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
For i =  1  To n
If i Mod  2  <>  0  Then
g = i *  2  'i - это нечетное число, g - результат. для него предел n
c = c +  1  'кол-во...
Cells(с, 2 ).Value = g 
Next

MsgBox "Кол-во нечетных: " & c

Вообщем так.
...
Рейтинг: 0 / 0
05.06.2011, 19:08
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295675
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, так пробуйте, что не нравится - напильником
...
Рейтинг: 0 / 0
05.06.2011, 19:29
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37295982
DI KING
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DI KING
Гость
Пожелайте мне Удачи)))
...
Рейтинг: 0 / 0
05.06.2011, 23:56
| Ответить | Цитировать | Написать  
Лабораторная работа, чтобы сдать зачет.
    #37296125
Ципихович Эндрю
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Ципихович Эндрю
Участник
DI KING, 10 минут позора и лаба в кармане
...
Рейтинг: 0 / 0
06.06.2011, 04:54
| Ответить | Цитировать | Написать  
25 сообщений из 100, страница 4 из 4
  4  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Лабораторная работа, чтобы сдать зачет.
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37295522&tid=2158648]:
 0ms
get settings:
 10ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 131ms
get topic data:
 12ms
get forum data:
 3ms
get page messages:
 62ms
get tp. blocked users:
 1ms
others: 345ms
total:  586ms
созд. / загр.: 586ms
x
x
Закрыть


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