ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
18 сообщений из 43, страница 2 из 2
  2  все
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #32829852
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
Калькулятор и программа - в одном флаконе.
...
Рейтинг: 0 / 0
16.12.2004, 11:15
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #32830019
Саша из 11А
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Саша из 11А
Гость
Отдал училке. Она мне сразу сказала , что сомневается в том, что это я сделал. А ей сказал , что мне помогал знакомый крутой программист. Она сказала, что крутому программисту я ставлю четверку , потому что задача решена неверно , а тебе два! Вот так. Но ведь все верно. Я спросил ее что неправильно , а она сказала , что вообще все неправильно. Успокойте меня. Папец из меня коклету сделает. Что я теперь отцу скажу? Сволочь училка. Всё , сегодня сяду за учебник и стану крутым хакером!

Я у матери сейчас на работе сижу и кстати тут тоже есть программисты. Об этом я подумал только сейчас.
...
Рейтинг: 0 / 0
16.12.2004, 12:18
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #32830130
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
вот это был правильный ответ
...
Рейтинг: 0 / 0
16.12.2004, 12:53
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #32830233
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
Саша из 11АУспокойте меня.Дешифровка слов учительницы:
- Бог (Б.Гейтс) знает Basic на 5.
Я, учительница, - на 4.
Программер - на 3.
А ты, нерадивый ученик, на 2.
...
Рейтинг: 0 / 0
16.12.2004, 13:22
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #32830448
Processor
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Processor
Участник
big-dukeмда, тряхнуть что ли стариной
Чуть-чуть изменив код, можно проверить алгоритм:
См. формулу 9
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
Sub Babulka()
'Вычислить сумму ряда 1000 первых элементов ряда s=1+x+x2+x3+...
'Этот ряд является геометрической прогрессией.
Dim S As Double, x As Double, y As Double, i As Long, lim As Double
x =  0 . 5              'для проверки алгоритма аналитической формулой
S =  1  + x           's=1+x=x в нулевой степени + х в первой степени/1
y = x               'х в первой степени / 1
For i =  2  To  1000 
    y = y * x       'квадрат икса, куб икса,... i-я степень икса
    S = S + y       '/ i - закомментированная часть Сашиной задачи
Next i
lim =  1  / ( 1  - x)   'сумма БЕСКОНЕЧНОГО ряда.
Debug.Print "x="; x; "S="; S; "lim="; lim  'результат
End Sub
...
Рейтинг: 0 / 0
16.12.2004, 14:35
| Ответить | Цитировать | Написать  
Период между сообщениями больше года.
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361320
Diffirent
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Diffirent
Гость
помогите решить задачу.НАйдите произведение цифр заданного четырезначного числа.
...
Рейтинг: 0 / 0
11.12.2009, 14:02
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361368
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
издиваетесь? а если самому подумать?

число 1234
кол-во цифр 4
массив чисел {1,2,3,4}
перемножить содержимое массива не можете
...
Рейтинг: 0 / 0
11.12.2009, 14:17
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361825
Mazai-XZ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mazai-XZ
Гость
Diffirentпомогите решить задачу.НАйдите произведение цифр заданного четырезначного числа.

Private Sub Command1_Click()
Dim a, b, c, d, itog
a = Mid(Text1.Text, 1, 1)
b = Mid(Text1.Text, 2, 1)
c = Mid(Text1.Text, 3, 1)
d = Mid(Text1.Text, 4, 1)
itog = a * b * c * d
MsgBox itog
End Sub
...
Рейтинг: 0 / 0
11.12.2009, 16:28
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361903
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Mazai-XZDiffirentпомогите решить задачу.НАйдите произведение цифр заданного четырезначного числа.

Private Sub Command1_Click()
Dim a, b, c, d, itog
a = Mid(Text1.Text, 1, 1)
b = Mid(Text1.Text, 2, 1)
c = Mid(Text1.Text, 3, 1)
d = Mid(Text1.Text, 4, 1)
itog = a * b * c * d
MsgBox itog
End Sub

так не надо делать, а то 2-ку схлопочешь =)
...
Рейтинг: 0 / 0
11.12.2009, 16:57
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361911
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Konst_Oneтак не надо делать, а то 2-ку схлопочешь =)

Цикл, деление на 10 и деление по модулю на 10 вас спасет
...
Рейтинг: 0 / 0
11.12.2009, 16:59
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36361961
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Diffirent,

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
Public Sub Multiple()
Dim SourceNumber As Integer
Dim Result As Integer
Dim i As Integer

SourceNumber =  9999 
Result =  1 
For i =  3  To  0  Step - 1 
    Result = Result * (Fix(SourceNumber / ( 10  ^ i)) Mod  10 )
Next
Debug.Print Result
End Sub
...
Рейтинг: 0 / 0
11.12.2009, 17:15
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362041
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
big-duke - спасибо за пример. Не знал. В школе такого в моё время не изучали...
Его оказывается можно легко переделать под любое число (в пределах допустимого):
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
Public Sub MultipleUniversal()
Dim SourceNumber As Long
Dim Result As Long
Dim i As Integer

'SourceNumber = 9999
SourceNumber = Val(InputBox("Введите любое число ", "Введите любое число", "1234"))
Result =  1 
'For i = 3 To 0 Step -1
For i = Len(CStr(SourceNumber)) -  1  To  0  Step - 1 

    Result = Result * (Fix(SourceNumber / ( 10  ^ i)) Mod  10 )
Next
Debug.Print Result
End Sub
...
Рейтинг: 0 / 0
11.12.2009, 17:40
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362076
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Hugo121,

Чтобы процедура могла носить гордое имя Universal
а) проверяйте, что это число
б) проверяйте, что это целое число или учтите десятичную точку при LEN
в) проверяйте, что это положительное число или учитывайте минус в LEN
г) в случае дробного числа обратите внимание, что может быть ".123"
д) уточните, что будет при вводе числа в экспоненциальной форме
...
Рейтинг: 0 / 0
11.12.2009, 17:55
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362084
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Ну уж... не придирайтесь... важнее было бы отсечь ошибку при переполнении, когда число слишком большое... ладно, не универсал, принято
...
Рейтинг: 0 / 0
11.12.2009, 17:59
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362110
Фотография big-duke
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
big-duke
Участник
Hugo121,

Len - это не комильфо,
вот так ищется длина числа
fix(log(abs(SourceNumber))/log(10))+1
...
Рейтинг: 0 / 0
11.12.2009, 18:12
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362128
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Кстати, при Val проверять на дробность не надо. Всё же ближе к Universal :)
...
Рейтинг: 0 / 0
11.12.2009, 18:22
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36362135
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Hugo121Кстати, при Val проверять на дробность не надо. Всё же ближе к Universal :)

это еще почему?
Код: plaintext
?val("234.54")
...
Рейтинг: 0 / 0
11.12.2009, 18:26
| Ответить | Цитировать | Написать  
Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
    #36363148
Hugo121
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Hugo121
Гость
Нда, действительно, при
Код: plaintext
1.
2.
x = Val("234,54")
Debug.Print x
результат другой... Не знал, учусь.
Тогда так:
Код: plaintext
1.
2.
x = Fix(Val("234.54"))
Debug.Print x +  10
Или ладно, проверить, что ввёл пользователь (Val(InputBox("Введите любое целое положительное число "), и если в стринге есть ".", ",", "-", или не IsNumeric, так ему и сказать :)
А переполнение послать в errorhandler.
...
Рейтинг: 0 / 0
12.12.2009, 23:48
| Ответить | Цитировать | Написать  
18 сообщений из 43, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Дяденьки программисты, помогите программульку крохотульку на Qbasic написать!
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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