ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать код на basic
25 сообщений из 50, страница 2 из 2
  2  все
Помогите написать код на basic
    #37711992
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One,

все типы попробовал. остается вариант округления, round вроде не работает, может не правильно вызываю...
...
Рейтинг: 0 / 0
19.03.2012, 16:25
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711995
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
я не знаю, что у вас за диалект и такого компилятора у меня нет, но обычно юзают тип DECIMAL(?,?)
...
Рейтинг: 0 / 0
19.03.2012, 16:26
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712040
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One,

на счет decimal:
Type Not Defined
...
Рейтинг: 0 / 0
19.03.2012, 16:47
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712049
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Fine,

если есть то - Currency
...
Рейтинг: 0 / 0
19.03.2012, 16:52
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712067
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
TpaBka,

нет, тоже нет
...
Рейтинг: 0 / 0
19.03.2012, 16:58
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712186
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
> Fine
> y=ctg(2x+x*x) если a>2

В уравнении параметр/переменная 'a' отсутствует.


> y=Ln(4+a) в ост. случаях

То есть, при a < -2.
При а ==> -4 получим минус бесконечность,
при a <= -4 функция не определена на множестве действительных чисел.

Может всё не так, как на самом деле? (с)
...
Рейтинг: 0 / 0
19.03.2012, 17:46
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712218
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
скукотища,

Спасибо. Я тоже все это заметил, но задача выглядит именно так
...
Рейтинг: 0 / 0
19.03.2012, 18:00
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712302
скукотища
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
скукотища
Гость
FineKonst_One,

все типы попробовал. остается вариант округления, round вроде не работает, может не правильно вызываю...
А если так ?

Код: vbnet
1.
2.
3.
4.
5.
6.
Dim x As Long, y As Double

For x = 0 to 15000 step 3
  y = x * x * x / 1e6
  Print "x= "; x / 100, "y= "; y
Next x
...
Рейтинг: 0 / 0
19.03.2012, 18:53
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37712793
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
скукотищаFineKonst_One,

все типы попробовал. остается вариант округления, round вроде не работает, может не правильно вызываю...
А если так ?

Код: vbnet
1.
2.
3.
4.
5.
6.
Dim x As Long, y As Double

For x = 0 to 15000 step 3
  y = x * x * x / 1e6
  Print "x= "; x / 100, "y= "; y
Next x


Выдается "Overflow"
И еще такие фокусы думаю не желательно, трудно сказать как к этому будет относится преподаватель.
...
Рейтинг: 0 / 0
20.03.2012, 09:12
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713121
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Пытаюсь решить след. задачу:
3.Найти среднеарифметическое значение следующих выражений:
a=tg(2x+z*z) b=sum(i=0, N) (4x+1)^2

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
INPUT "Input x"; x
INPUT "Input z"; z
INPUT "Input N"; N

a = TAN(2 * x + z ^ 2)
b = 0
FOR i = 1 TO N STEP 1
b = b + (4 * x + 1) ^ 2
NEXT i
PRINT (a + b) / 2



Ввожу данные x=2, z=2, N=2
Виводит 77.60014

А при помощи калькулятора получается 81.14054

Где моя ошибка ?
...
Рейтинг: 0 / 0
20.03.2012, 11:58
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713704
Фотография Игорь Горбонос
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Игорь Горбонос
Участник
> Автор: Fine
> Где моя ошибка ?

Согласно условия sum(i=0, а ты начинаешь с:
> FOR i = 1

И этим теряешь одну итерацию.

Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
20.03.2012, 15:45
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713766
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Игорь Горбонос> Автор: Fine
> Где моя ошибка ?

Согласно условия sum(i=0, а ты начинаешь с:
> FOR i = 1

И этим теряешь одну итерацию.


Сорри, на самом деле i начинается от 1
a=tg(2x+z*z) b=sum(i=1, N) (4x+1)^2
...
Рейтинг: 0 / 0
20.03.2012, 16:08
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713773
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
b=sum(i=1, N) (4x+1)^2

вы уверены , что правильно интерпретируете формулу?
...
Рейтинг: 0 / 0
20.03.2012, 16:10
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713821
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_Oneb=sum(i=1, N) (4x+1)^2

вы уверены , что правильно интерпретируете формулу?
Да да, именно так и написано у меня. Согласен так как i не участвует, можно без цикла написать:
b=N*(4x+1)^2

Но пример у меня такой.
...
Рейтинг: 0 / 0
20.03.2012, 16:24
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713837
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
у меня на калькуляторе при ваших исходных данных и формулах совсем другое число
...
Рейтинг: 0 / 0
20.03.2012, 16:29
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713875
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
sum(i=1, N) = i*(N+1)/2
...
Рейтинг: 0 / 0
20.03.2012, 16:41
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713886
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
N*(N+1)/2



В вашем случае , когда N = 2: sum(i=1,N=2) = (2*(2+1))/2 = 3
...
Рейтинг: 0 / 0
20.03.2012, 16:44
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713904
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One
Код: vbnet
1.
N*(N+1)/2



В вашем случае , когда N = 2: sum(i=1,N=2) = (2*(2+1))/2 = 3
Почему то я по другому считаю:
b=2*(4x+1)^2=2*(4*2+1)^2=2*81=162
a = TAN(2 * x + z ^ 2)=Tan (2*2+2^2)=tan(8)=0.14 (калькулятор)
...
Рейтинг: 0 / 0
20.03.2012, 16:50
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713914
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
поэтому у вас и неправильно.

в математике , обозначение sum(i=1, N) - это сумма ряда целых чисел до N-большого числа.
и вычисляется оно по простой формуле:

sum(i=1,N) = N*(N+1)/2
...
Рейтинг: 0 / 0
20.03.2012, 16:54
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713930
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_Oneпоэтому у вас и неправильно.

в математике , обозначение sum(i=1, N) - это сумма ряда целых чисел до N-большого числа.
и вычисляется оно по простой формуле:

sum(i=1,N) = N*(N+1)/2

Я согласен, сумма 1,2,3,4.....N чисел это N*(N+1)/2.
Но sum(i=1,N) я имел ввиду изменения индекса i.
Представьте там знак суммирования, внизу i=0, на верху N и в скобках выражение (4x+1)^2
...
Рейтинг: 0 / 0
20.03.2012, 17:00
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713977
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
авторПредставьте там знак суммирования, внизу i=0, на верху N и в скобках выражение (4x+1)^2 Тогда у Вас вообще непонятно что получается. Либо сумма N одинаковых чисел, либо x=i ?
...
Рейтинг: 0 / 0
20.03.2012, 17:13
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713985
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Представьте сумма одинаковых чисел.
...
Рейтинг: 0 / 0
20.03.2012, 17:15
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37713993
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
b получаю правильно, проблема с ТАН()-ом !
...
Рейтинг: 0 / 0
20.03.2012, 17:16
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37714024
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Какая проблема? Может в единицах измерения?
...
Рейтинг: 0 / 0
20.03.2012, 17:27
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37714025
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Ладно все в порядке, всем спасибо
...
Рейтинг: 0 / 0
20.03.2012, 17:27
| Ответить | Цитировать | Написать  
25 сообщений из 50, страница 2 из 2
  2  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать код на basic
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&gotonew=1&tid=2157967]:
 0ms
get settings:
 9ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 31ms
get topic data:
 9ms
get first new msg:
 6ms
get forum data:
 2ms
get page messages:
 54ms
get tp. blocked users:
 1ms
others: 315ms
total:  447ms
созд. / загр.: 447ms
x
x
Закрыть


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