ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
10 сообщений из 10, страница 1 из 1
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38873965
Pingvinu4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pingvinu4
Гость
Мне лектор задал задачу на каникулы , когда ее получал ,подумал легкая и быстро справлюсь ...
На каникулах я про нее ,разумеется забыл :)
И вот через неделю мне нужно будет сдать написанный код ,а програмка то не получается ... выскакивает ошибка
Помогите пожалуйста , может я за каникулы отупел (вполне вероятно )
Вот сама задача :

Дано : а =1 b =1 y= 1
Условие : точность до семи цифр

вот мой код
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
Private Sub Command1_Click()
Dim a, b, y, s, z, n, exp1, exp2, m, mn As Single

Dim Cs, C As Single
a = Val(Text1)
b = Val(Text2)
y = Val(Text3)
s = 0
z = 0
pi = 3.14
Cs = 299792458
    For l = 0 To 100
        For k = 0 To 100
            
           s = s - (Sqr(((2 * l + 1) / a) ^ 2 + ((2 * k + 1) / b) ^ 2)) / ((2 * l + 1) ^ 2 * (2 * k + 1) ^ 2 * (Exp(pi * y * Sqr(((2 * l + 1) / a) ^ 2 + ((2 * k + 1) / b) ^ 2) - Exp((-1) * pi * y * Sqr(((2 * l + 1) / a) ^ 2 + ((2 * k + 1) / b) ^ 2)))) * (1 / 2))
'тут и выскакивает ошибка  : run-time error overflow
        Next k
    z = z + s
    Next l
C = 10 ^ 7 * (2 / pi) ^ 4 * a * b / Cs * z
Text4 = C
End Sub


Модератор: Учимся использовать тэги оформления кода - FAQ
на фото сам пример который и нужно решить , очень буду благодарен если исправите ошибку ,а лучше еще и обьясните ... мне оно еще 100 % понадобиться

Если ошибка глупая то не сердитесь , я еще только учусь :)
Заранее благодарен за помощь
...
Рейтинг: 0 / 0
07.02.2015, 18:23
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38873967
Pingvinu4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pingvinu4
Гость
Pingvinu4,

мне нужен пример тот что сверху
...
Рейтинг: 0 / 0
07.02.2015, 18:24
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38873969
Pingvinu4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pingvinu4
Гость
те переменные что лишние ,Я забыл удалить , я использовал когда разбивал этот большой пример на несколько поменьше (может это и бессмысленно , но я пробовал )
...
Рейтинг: 0 / 0
07.02.2015, 18:26
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38873971
Pingvinu4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pingvinu4
Гость
еще (забыл простите ) там давалось
с(маленькое) = 299 792 458
...
Рейтинг: 0 / 0
07.02.2015, 18:29
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38873994
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Pingvinu4я использовал когда разбивал этот большой пример на несколько поменьше
Может и стоило бы разбить? А то длинную эту линию читать нет желания. Например, из примера видно что "хрень" в виде суммы квадратов в скобках и всё из под корня, повторяются. Оформить, например в виде функции, и "упростить" пример

Код: vbnet
1.
2.
3.
Function Func2Sqr(ByVal L As Double, ByVal K As Double, ByVal Alpha As Double, ByVal Beta As Double) As Double
    Func2Sqr = Sqr(((2* L + 1) / Alpha)^2 + ((2* K + 1) / Beta))^2)
End Function
...
Рейтинг: 0 / 0
07.02.2015, 19:31
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38874041
Казанский
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Казанский
Гость
Pingvinu4Условие : точность до семи цифр

pi = 3.14Нестыковка однако :)
...
Рейтинг: 0 / 0
07.02.2015, 22:18
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38874146
Pingvinu4
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pingvinu4
Гость
Казанский,

согласен , ошибка , но проблема то не в этом ...
...
Рейтинг: 0 / 0
08.02.2015, 13:33
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38874414
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
авторDim a, b, y, s, z, n, exp1, exp2, m, mn As Single
Попробуйте объявить переменные нормально (не variant), особенно в какой тип у Вас поместится переменная s.
...
Рейтинг: 0 / 0
09.02.2015, 08:43
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38875215
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
автормне нужен пример тот что сверху
Это тот где суммируются значения от 0 до 00?
...
Рейтинг: 0 / 0
09.02.2015, 22:05
| Ответить | Цитировать | Написать  
Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
    #38875218
Фотография alex77755
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
alex77755
Участник
И ещё я бы вынес общий блок в отдельную функцию
Так и ошибку переполнения найти будет проще
...
Рейтинг: 0 / 0
09.02.2015, 22:11
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Возникла проблема в vb , облазил кучу сайтов ,перепробовал много вариантов ,но никак ...
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38874146&tid=2156042]:
 0ms
get settings:
 7ms
get forum list:
 16ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 301ms
total:  440ms
созд. / загр.: 440ms
x
x
Закрыть


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