Subscript out of range

@DmitryM5 · Регистрация: 27.08.2013

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

Доброй ночи! Подскажите пожалуйста в чем проблема? Задание состоит из нахождении функции U равной двум суммам

QBasic/QuickBASIC
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
CALL Lab7
 
 
 
SUB Lab7 ()
FOR X = 1 TO 3
    U = SUM1(X) + SUM2(X)
    PRINT "X="; X, "U"; U
NEXT X
END SUB
 
FUNCTION SUM1 (X)
S = 0
FOR K = 1 TO 10
    S = S + SQRT(2 + K * X) / SIN(K * X)
NEXT K
SUM1 = S
END FUNCTION
 
FUNCTION SUM2 (X)
S = 0
FOR K = 0 TO 5
    S = S + (X ^ 3 + SQRT(K + X ^ 3)) / (K + EXP(K * X))
NEXT K
SUM2 = S
END FUNCTION

@Ли2 · 19.12.2017, 10:47

Это не QBASIC. В нём отсутствует такая функция как SQRT(),
а есть функция SQR()...

@DmitryM5 · 19.12.2017, 10:51 **[ТС]**

Сообщение от Ли2

Это не QBASIC.

А что это тогда?

@Ли2 · 19.12.2017, 10:59

Я посмотрел на картинку. Там написано QB64.
Знаете, попробуйте после вызова процедуры поставить
оператор END (так должно быть в qbasic)... может это
и вам поможет.

@Сосна15 · 19.12.2017, 11:50

А не мешает ли обнулить счётчик перед циклом? Сдается мне он выкидывает прогу на втором шаге Х. После первого шага К уже равно 10, вот он и пишет "субскрипт вне рамок".
Ведь сумму мы обнуляем и счётчик надо-бы обнулить...

@DmitryM5 · 19.12.2017, 18:11 **[ТС]**

Сообщение от Сосна15

А не мешает ли обнулить счётчик перед циклом? Сдается мне он выкидывает прогу на втором шаге Х. После первого шага К уже равно 10, вот он и пишет "субскрипт вне рамок".
Ведь сумму мы обнуляем и счётчик надо-бы обнулить...

Какой счетчик???

Заменил на SQR вроде работает..

Добавлено через 31 секунду

Сообщение от Ли2

Я посмотрел на картинку. Там написано QB64.
Знаете, попробуйте после вызова процедуры поставить
оператор END (так должно быть в qbasic)... может это
и вам поможет.

Ну Q Basic это как я понимаю... просто для 64 битной системы..

@Quiet Snow · 23.12.2017, 00:04

Ну Q Basic это как я понимаю... просто для 64 битной системы..

Тут не может быть "просто", это не QBasic и всё там... Много чего различается.
В данном разделе лучше использовать оригинал. А с QB64 в корневой раздел BASIC.
Тысячи раз эти разговоры уже были. К тому же настроить DOSBox не так сложно.

@DmitryM5 · 23.12.2017, 09:59 **[ТС]**

Quiet Snow, Так, подскажите тогда как получить чистый Q-Basic?

@Quiet Snow · 23.12.2017, 19:53

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

Так, подскажите тогда как получить чистый Q-Basic?

Простейший вариант:
Качаем DOSBox, устанавливаем.
Качаем MS-DOS QBasic.zip(QBasic.exe, QBasic.hlp, QBasic.ini), перетаскиваем exe-шник на иконку DOSBox-a

Посложнее:
Качаем DOSBox, устанавливаем.
Качаем MS-DOS QBasic.zip(QBasic.exe, QBasic.hlp, QBasic.ini)
Создаём директорию DOS например C:\DOS , закидываем в неё файлы: QBasic.exe, QBasic.hlp, QBasic.ini
Идём в файл настроек DOSBox(ПУСК-->Программы-->DOSBox 0.74-->Options-->DOSBox 0.74 Options)
Листаем текстовый файл в самый низ, видим секцию [autoexec]

Пишем туда примерно так:

Code
1
2
3
4
5
6
[autoexec]
# Lines in this section will be run at startup.
# You can put your MOUNT lines here.
MOUNT C: C:\DOS
C:
QBASIC

Сохраняем файл. Теперь после запуска DOSBox у нас будет каждый раз запускаться QBasic.
Файлы с кодом, которые сохраняются в QBasic ищем в C:\DOS

На самом деле вопрос уже обсуждался чёрт знает сколько раз и каждому(а их много) кто путает QB64
с QBasic приходится рассказывать это. Хотелось бы чтобы администрация уже закрепила где-нибудь в шапке
раздела этот пост, чтобы я мог ссылаться на него, потому что откровенно задрало каждый раз настукивать эту
банальщину на клаве.

@DmitryM5 · 23.12.2017, 20:14 **[ТС]**

Quiet Snow, Извините, но не приходилось работать с бейсик.

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	19.12.2017, 10:47
	Это не QBASIC. В нём отсутствует такая функция как SQRT(), а есть функция SQR()... 1

@Ли2 11 / 11 / 24 Регистрация: 12.12.2017 Сообщений: 131 Записей в блоге: 2
	19.12.2017, 10:59
	Я посмотрел на картинку. Там написано QB64. Знаете, попробуйте после вызова процедуры поставить оператор END (так должно быть в qbasic)... может это и вам поможет. 0

@Сосна15 13 / 12 / 1 Регистрация: 02.10.2017 Сообщений: 22
	19.12.2017, 11:50
	А не мешает ли обнулить счётчик перед циклом? Сдается мне он выкидывает прогу на втором шаге Х. После первого шага К уже равно 10, вот он и пишет "субскрипт вне рамок". Ведь сумму мы обнуляем и счётчик надо-бы обнулить... 0

@DmitryM5 Консультант Витте 106 / 86 / 45 Регистрация: 27.08.2013 Сообщений: 1,356 Записей в блоге: 1
	23.12.2017, 09:59 [ТС]
	Quiet Snow, Так, подскажите тогда как получить чистый Q-Basic? 0

@DmitryM5 Консультант Витте 106 / 86 / 45 Регистрация: 27.08.2013 Сообщений: 1,356 Записей в блоге: 1
	23.12.2017, 20:14 [ТС]
	Quiet Snow, Извините, но не приходилось работать с бейсик. 0