Решение уравнения 6-ой степени

@Pachakistan · Регистрация: 15.11.2017

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

Доброго времени суток дорогие друзья!
Пожалуйста подскажите что не так в проге? !
Тут программа должна решить уравнение в степени 6 ---> x ^ 6 - 14 * x ^ 4 + 49 * x ^ 2 - 36
Заранее СПАСИБОООО)))

QBasic/QuickBASIC
INPUT N, H, E
DIM A(N)
FOR I = 0 TO N
    40 PRINT I; "ый коэффициент" 
    50 INPUT A(I)
NEXT I
DEFFNY(x) = x ^ 6 - 14 * x ^ 4 + 49 * x ^ 2 - 36
MX = ABS(A(0))
FOR I = 2 TO N
    100 IF MX < ABS(A(I)) THEN MX = ABS(A(I))
NEXT I
N = 1 + MX / ABS(A(N))
x = -N: Y = FNY(x)
x = x + H
IF x > N THEN 200
Z = FNY(x)
IF Y * Z < 0 THEN 190
GOTO 140
PRINT "["; x - H; ";"; x; "]"
A = x - H: B = x
GOSUB 290
Y = Z: GOTO 140

END
C = (A + B) / 2
IF FNY(C) = 0 THEN 340
IF FNY(A) * FNY(C) < 0 THEN B = C ELSE A = C
IF ABS(A - B) < E THEN 330 ELSE GOTO 290
PRINT "x="; (A + B) / 2: GOTO 350
PRINT "x="; C: PRINT
RETURN

@vodav · 16.11.2017, 13:54

1. Превышена размерность массива:

QBasic/QuickBASIC
1
2
3
4
30 FOR I = 0 TO N
    40 PRINT I; "ый коэффициент" 
    50 INPUT A(I)
60 NEXT I

Д.б.:

QBasic/QuickBASIC
1
2
3
4
30 FOR I = 0 TO N-1
    40 PRINT I; "ый коэффициент" 
    50 INPUT A(I)
60 NEXT I

2. Непонятно какое объявление функции:

QBasic/QuickBASIC
1
70 DEFFNY(x) = x ^ 6 - 14 * x ^ 4 + 49 * x ^ 2 - 36

Д.б.:

QBasic/QuickBASIC
1
2
3
70 DEF FNY(x)
    71 FNY(x) = x ^ 6 - 14 * x ^ 4 + 49 * x ^ 2 - 36
72 END DEF

Ну, как-то так, пробуйте. Хотя там еще может быть достаточно косяков.

@SlavaRus · 19.11.2017, 18:01

Могу скинуть код решения на vba в экселе. Адаптировать на qb лень. В принципе Васёк тот же.

@Ли2 · 12.12.2017, 14:34

1) Данное алгебраическое уравнение есть четная функция,
то есть может иметь четное число действительных корней.
2) Интервал в котором находятся все корни есть (-50; 50)
3) В программе первый цикл осуществляет поиск интервалов
4) Обнаруживаются концы интервалов 1; 2; 3
5) их проверка выясняет, что это и есть искомые три корня
6) еще три корня (в силу четности) имеют те же значения со
знаком минус
7) итого 6 корней: -3; -2; -1; 1; 2; 3

QBasic/QuickBASIC
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
REM Корни находятся на интервале (-50; 50)
REM  x1 = 1; x2 = 2; x3 = 3
REM  x4 = -1; x5 = -2; x6 = -3
 
DECLARE FUNCTION f! (x!)
 
CLS
 
FOR x = 0 TO 50
   IF f(x) * f(x + 1) <= 0 THEN PRINT x;
NEXT
 
PRINT : PRINT
PRINT f(1)
PRINT f(2)
PRINT f(3)
END
 
FUNCTION f (x)
   f = x ^ 6 - 14 * x ^ 4 + 49 * x ^ 2 - 36
END FUNCTION

@Quiet Snow · 13.12.2017, 18:47

Ли2, гех тебе бесполезно менять ники и создавать клоны аккаунтов, манера
рудиментарного написания кода - легко палится.

Новые блоги и статьи Все статьи Все блоги /
Установка Emscripten SDK (emsdk) и CMake на Windows для сборки C и C++ приложений в WebAssembly (Wasm) 8Observer8 30.01.2026 Чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. Система контроля версиями Git. . .	Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .
Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .

@SlavaRus 1124 / 237 / 37 Регистрация: 15.03.2010 Сообщений: 728
	19.11.2017, 18:01
	Могу скинуть код решения на vba в экселе. Адаптировать на qb лень. В принципе Васёк тот же. 0

@Quiet Snow Кормпилятор 5044 / 1718 / 409 Регистрация: 25.04.2010 Сообщений: 4,827 Записей в блоге: 2
	13.12.2017, 18:47
	Ли2, гех тебе бесполезно менять ники и создавать клоны аккаунтов, манера рудиментарного написания кода - легко палится. 0