Откоректируйте код

@vombat · Регистрация: 27.03.2014

Студворк — интернет-сервис помощи студентам

Пожалуйста помогите сделать курсовую!

Visual Basic
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
26
27
28
REM  *****  BASIC  *****
Sub Prl4
x = -1
m = 11
n = 7
 
kfact = 1
FOR j = 1 TO m
    kfact = kfact * j
NEXT j
 
ifact = 1
FOR j = 4 TO n
    ifact = ifact * j
NEXT j
 
A = 0
FOR k = 1 TO m
    A = A + kfact / (k ^ 2 + 2)
NEXT k
 
B = 1
FOR i = 4 TO n
    B = B * (ifact + x)
NEXT i
 
Msgbox &((x / (1 + x)) * A - B)&
END SUB

Спасибо!

@Pro_grammer · 28.03.2014, 06:17

Во-первых, в чем помочь, в чем суть вопроса?
Во-вторых, Вы уверены, что вам нужен VisualBasic 6.0? Глядя на REM, это скорее Qbasic!

@Антихакер32 · 28.03.2014, 07:30

Сообщение от Pro_grammer

Глядя на REM, это скорее Qbasic!

REM в VBasic - 6 так-же работает
и означает только ключевое слово для размещения коментария в строке редактора
тоесть тоже самое если поставить символ < ' >

непонятным остаётся вопрос, что там корректировать
код выложен без всяких пояснений что должно получиться

Сообщение от vombat

Пожалуйста помогите сделать курсовую!

вот есть полезное чтение по вашему вопросу

@Pro_grammer · 28.03.2014, 07:49

Сообщение от FelixMacintosh

REM в VBasic - 6 так-же работает

Это сомнений не вызывает, если бы не остальные признаки.
Операторы на VB6 не ПИШУТ КАПСОМ. Если бы этот код хотя бы раз побывал в редакторе VB6, то он бы выглядел так:

Visual Basic
1
2
3
4
Rem ****
For j = 1 To m
    kfact = kfact * j
Next j

@Антихакер32 · 28.03.2014, 07:55

не понятно что-же тот товарищ хочет
код однозначно будет работать и в VB6

правда я терпеть не могу когда в коде нет объявления переменных

@Pro_grammer · 28.03.2014, 07:58

Сообщение от FelixMacintosh

код однозначно будет работать и в VB6

Не будет.
Там x = -1, а потом вычисление x / (1 + x) - ошибка деления на 0

И не верно вызван Msgbox &((x / (1 + x)) * A - B)& - это видно единственное, что реально принадлежит VB6.
Надо так
MsgBox ((x / (1 + x)) * A - B)

@Антихакер32 · 28.03.2014, 08:03

Сообщение от Pro_grammer

Не будет.
Там x = -1, а потом вычисление x / (1 + x) - ошибка деления на 0

ну это вызовет ошибку в любом ЯП

тогда ему надо определиться с входными значениями
и исправить вывод, и курсовая готова )

@Апострофф · 28.03.2014, 08:33

Сообщение от Pro_grammer

Глядя на REM, это скорее Qbasic

а я глядя на

Сообщение от vombat

END SUB

заглавными буквами тоже подумал, что ТС пишет на чем угодно, только не на VB.

Добавлено через 1 минуту

Не по теме:

:-[ об этом уже говорили, оказывается

Новые блоги и статьи Все статьи Все блоги /
Программный отбор значения справочника Maks 21.03.2026 Процедура ВодителиНачалоВыбора(Элемент, ДанныеВыбора, ВыборДобавлением, СтандартнаяОбработка) / / Отключаем стандартную обработку (стандартное открытие формы выбора без фильтров) . . .	Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip
Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	28.03.2014, 06:17
	Во-первых, в чем помочь, в чем суть вопроса? Во-вторых, Вы уверены, что вам нужен VisualBasic 6.0? Глядя на REM, это скорее Qbasic! 0

@Антихакер32 1201 / 473 / 46 Регистрация: 06.01.2014 Сообщений: 1,797 Записей в блоге: 19
	28.03.2014, 07:55
	не понятно что-же тот товарищ хочет код однозначно будет работать и в VB6 правда я терпеть не могу когда в коде нет объявления переменных 0