Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > .NET Frameworks (точка нет фреймворки) > C# (си шарп)
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 25.05.2015, 20:25   #1
denpop
Новичок
Джуниор
 
Регистрация: 25.05.2015
Сообщений: 1
По умолчанию Помогите перевести код c VB в С#

Нужно Конвертировать код с VB в С#, в интернете наткнулся на вот такой вот ресурс http://kbyte.ru/ru/Services/Converter.aspx но при попытке конвертации выдаёт ошибку: Error. -- line 5 col 5: invalid EmbeddedStatement, так как в VB не силён, прошу вашей помощи...
Сама код для приближенного вычисления интегралов разными способами:
Код:
e = 2.718281828459045# 
pi = 3.141592653589793#
DEF fny# (x#) = e^x# ^2
DEF fncoef# (i#) = (i# MOD 2) * 2 + 2
DEF fnxi# (i#) = a# + i# * h#
DEF fnxis# (i#) = a# + i# * h# / 2
DEF fnxic# (i#) = a# + i# * h# + h# / 2
DEF fnxir# (i#) = a# + i# * h# + h# / 2
INPUT "Введіть нижню межу інтегрування" a# 
INPUT "Введіть верхню межу інтегрування " b# 
INPUT "Введіть кількість проміжків " n#
h# = (b# - a#) / n# 
integ# = 0 
FOR i# = 1 TO ((2 * n#) - 1) 
integ# = integ# + fncoef#(i#) * fny#(fnxis#(i#))
NEXT
integ# = integ# + fny#(a#) + fny#(b#)
integ# = integ# * (h# / 6)
PRINT "Simpson     = " integ#
integ# = 0 
FOR i# = 1 TO (n# - 1)
integ# = integ# + fny#(fnxi#(i#))
NEXT
integ# = integ# + (fny#(a#) + fny#(b#)) / 2
integ# = integ# * h#
PRINT "Trapeze   =  " integ#
integ# = 0 
FOR i# = 0 TO (n# - 1) 
integ# = integ# + fny#(fnxi#(i#))
NEXT
integ# = integ# * h#
PRINT "L Rectangle = " integ#
integ# = 0 
FOR i# = 0 TO n# 
integ# = integ# + fny#(fnxic#(i#))
NEXT
integ# = integ# * h#
PRINT "C Rectangle = " integ#
integ# = 0 
FOR i# = 1 TO n# 
integ# = integ# + fny#(fnxir#(i#))
NEXT
integ# = integ# * h#
PRINT "R Rectangle = " integ#
denpop вне форума Ответить с цитированием
Старый 25.05.2015, 20:26   #2
Alex11223
Старожил
 
Аватар для Alex11223
 
Регистрация: 12.01.2011
Сообщений: 19,500
По умолчанию

Сами пишите с нуля, вам ж для этого и дали это задание.
Ушел с форума, https://www.programmersforum.rocks, alex.pantec@gmail.com, https://github.com/AlexP11223
ЛС отключены Аларом.
Alex11223 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
помогите перевести код Pascal в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 13 22.05.2014 17:19
помогите перевести код с VB в код Lazarus Ляйсан9517 Lazarus, Free Pascal, CodeTyphon 2 22.04.2014 19:31