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

1. Найти значение функции для любого аргумента
y=ctg(2x+x*x) если a>2
y=корень(а+4) если -2<=a<=2
y=Ln(4+a) в ост. случаях

2. Значения функции y=x*x*x+2 представить в виде таблиц в отрезке [0; 150] шагом 0.03

3.Найти среднеарифметическое значение следующих выражений:
a=tg(2x+z*z) b=sum(i=0, N) (4x+1)^2


Спасибо
...
Рейтинг: 0 / 0
19.03.2012, 10:33
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711350
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
ну а в чем проблема?
Где код на Паскале?
...
Рейтинг: 0 / 0
19.03.2012, 10:53
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711355
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Shocker.Proну а в чем проблема?
Где код на Паскале?

Предположим:
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
Program myprog;

var y, a, x:real
Begin
read (a, x);
if a>2 then y:=ctg(2x+x*x)
else if (a<=2)and (а>=-2) then y:=sqrt(а+4)
  else y:=Ln(4+a);
write(y);
end.
...
Рейтинг: 0 / 0
19.03.2012, 10:57
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711397
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
Fine,

Ну тогда так:
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
a = InputBox("Введите a", "Ввод параметра", 0)
x = InputBox("Введите x", "Ввод аргумента", 0)
If a > 2 Then
y = (2 * x + x ^ 2)
ElseIf a >= -2 And a <= 2 Then
y = Sqr(а + 4)
Else
y = Log(4 + a) / Log(10#)
End If
MsgBox "y=" & y
...
Рейтинг: 0 / 0
19.03.2012, 11:14
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711411
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Спасибо TpaBka,
Но функции InputBox и MsgBox видимо относятся к Visual Basic....
Еще выражение
Код: vbnet
1.
 y = Log(4 + a) / Log(10#)

не понял :(
Может просто
Код: vbnet
1.
y = Log(4 + a)

?
...
Рейтинг: 0 / 0
19.03.2012, 11:26
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711415
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
FineНо функции InputBox и MsgBox видимо относятся к Visual Basic....а надо просто на Basic? тогда Input и Print
...
Рейтинг: 0 / 0
19.03.2012, 11:30
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711421
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
В задаче просят найти ведь натуральный логарифм?
тогда:
Код: vbnet
1.
Ln(x)=Log(x) / Log(10#)

InputBox - окно в котором пользавтель с клавиатуры вводит значения
MsgBox - результат выводится в виде обычного сообщения Windows
...
Рейтинг: 0 / 0
19.03.2012, 11:35
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711426
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Shocker.Pro,
Окончательный код правильно ?

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Print ("Введите a")
Input (a)

Print ("Введите x")
Input (x)

If a > 2 Then
y = (2 * x + x ^ 2)
ElseIf a >= -2 And a <= 2 Then
y = Sqr(а + 4)
Else
y = Log(4 + a)
End If
Print (y)
...
Рейтинг: 0 / 0
19.03.2012, 11:37
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711430
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
нет
...
Рейтинг: 0 / 0
19.03.2012, 11:40
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711432
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One,
На счет логарифма я понял: должен быть Ln(x)=Log(x) / Log(10#)
Где еще ошибка ?
...
Рейтинг: 0 / 0
19.03.2012, 11:42
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711433
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
я никогда не работал с логарифмами, и уже забыл о них, так что могу и ошибаться на счет
Y = Log(4 + a) / Log(10#)
Пусть меня поправят, если я ошибся
...
Рейтинг: 0 / 0
19.03.2012, 11:43
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711437
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
FineОкончательный код правильно ?у меня под рукой нет обычного бейсивка, посмотрите самостоятельно хелп по этим командам
...
Рейтинг: 0 / 0
19.03.2012, 11:44
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711442
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
Input (a)


здесь нет никакого присвоения переменной
...
Рейтинг: 0 / 0
19.03.2012, 11:46
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711462
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One
Код: vbnet
1.
Input (a)


здесь нет никакого присвоения переменной
Присвоение не надо здесь, a - аргумент, вводит пользователь ...
...
Рейтинг: 0 / 0
19.03.2012, 11:56
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711470
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
может вы хотели так:

Код: vbnet
1.
2.
3.
Dim a as Integer
a = 0
a = VBA.InputBox("Введите значение a","Ввод значения",a)
...
Рейтинг: 0 / 0
19.03.2012, 12:02
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711481
Фотография AndreTM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreTM
Участник
Konst_One , ему же (студенту) надо обычный бэйсик. Что-то типа gwbasic или как бы не qbasic ..
...
Рейтинг: 0 / 0
19.03.2012, 12:07
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711485
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_One,

должен был написать просто
Код: vbnet
1.
input a
...
Рейтинг: 0 / 0
19.03.2012, 12:08
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711509
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
AndreTM Konst_One , ему же (студенту) надо обычный бэйсик. Что-то типа gwbasic или как бы не qbasic ..

а, понятно.
то-то, я смотрю, странные какие-то операторы =)
...
Рейтинг: 0 / 0
19.03.2012, 12:18
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711543
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Может быть Ln (4+a)= Log(4 + a) / Log(exp(1)) ?????
...
Рейтинг: 0 / 0
19.03.2012, 12:34
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711569
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Fine,

Все товарищи, нашел компилятор, на самом деле
Ln (4+a)= Log(4 + a) / Log(exp(1)) или
Ln (4+a)= Log(4 + a) / Log(2.71))

Спасибо всем
...
Рейтинг: 0 / 0
19.03.2012, 12:45
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711609
TpaBka
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TpaBka
Участник
FineFine,
Ln (4+a)= Log(4 + a) / Log(exp(1)) или

Согласен
Википедия помогла вспомнить про Ln
...
Рейтинг: 0 / 0
19.03.2012, 13:04
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711848
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
2-ая моя задача:
Значения функции y=x*x*x+2 представить в виде таблиц в отрезке [0; 150] шагом 0.03

Код: vbnet
1.
2.
3.
4.
5.
x=0
for x=0 to 150 step 0.03
y=x^3+2
print "x="; x; " y="; y
next x



Все нормально работает, но начиная с какого то шага (x=0.54) для следующего х-а вместо значения x=0.57 появляется какое то значение
Вот результаты
Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
x= 0  y= 2
x= .03  y= 2.000027
x= .06  y= 2.000216
x= .09  y= 2.000729
x= .12  y= 2.001728
x= .15  y= 2.003375
x= .18  y= 2.005832
x= .21  y= 2.009261
x= .24  y= 2.013824
x= .27  y= 2.019683
x= .3  y= 2.027
x= .33  y= 2.035937
x= .36  y= 2.046656
x= .39  y= 2.059319
x= .42  y= 2.074088
x= .45  y= 2.091125
x= .48  y= 2.110592
x= .51  y= 2.132651
x= .54  y= 2.157464
x= .5699999  y= 2.185193
x= .5999999  y= 2.216
x= .6299999  y= 2.250047
x= .6599998  y= 2.287496

Press any key to continue
...
Рейтинг: 0 / 0
19.03.2012, 15:11
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711897
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
x у вас какого типа?
...
Рейтинг: 0 / 0
19.03.2012, 15:33
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711950
Fine
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Fine
Участник
Konst_Onex у вас какого типа?
не объявляю. сначала попробовал как double но тот же самый результат
...
Рейтинг: 0 / 0
19.03.2012, 16:01
| Ответить | Цитировать | Написать  
Помогите написать код на basic
    #37711951
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
double как раз и не надо. вам нужен точный тип, а не с плавающей точкой. или юзайте округление до требуемого знака
...
Рейтинг: 0 / 0
19.03.2012, 16:02
| Ответить | Цитировать | Написать  
25 сообщений из 50, страница 1 из 2
  1  все
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Помогите написать код на basic
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=37711433&tid=2157967]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 98ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 14ms
total:  206ms
созд. / загр.: 206ms
x
x
Закрыть


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