Форум программистов, компьютерный форум, киберфорум
Наши страницы
QBasic
Войти
Регистрация
Восстановить пароль
 
alena93
0 / 0 / 1
Регистрация: 24.08.2015
Сообщений: 12
#1

Ошибка C++ compilation failed - QBasic

04.06.2016, 12:30. Просмотров 490. Ответов 4
Метки нет (Все метки)

При попытке запуска программа выдает ошибку C++ compilation failed
Что это значит?
Текст программы
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
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
CLS
omega = 2.206
gamma = 0.01 'koeffizient zatuhaniya kolebanii
q0 = 100 'raspredelennaya nagruzka
bb = 100
hh = 100
E = 360000
c00 = 35.35
c10 = 25.85
nu = 0.034
L0 = 2000 'dlina balki
mas = 200 'massa
g = 1000 'vert masshtab
g1 = 1000
g2 = 0.0001
q = 500 / LL ' goriz masshtab
h = 0.001 'shag
LL = 300000 'kol-vo shagov
w0 = 0 'nachalnii progib
n = 2 'kolichestvo uravnenii
b1 = 2000
b = L0 / b1 'shag integrirovaniya
EI = E * bb * hh * hh * hh / 12
c0 = c00 * bb
c1 = c10 * bb
CONST pi = 3.141592653589793
DIM A(L0, L0) AS DOUBLE, Iv(L0) AS DOUBLE, k1(2 * n, 5) AS DOUBLE, z(2 * n) AS DOUBLE, z0(2 * n) AS DOUBLE, x0(2 * n) AS DOUBLE, x(2 * n) AS DOUBLE
DIM Jp(n, n) AS DOUBLE, Ip(n, n) AS DOUBLE, s1(L0), m1(L0), s(99), p(L0)
q = 500 / LL
FOR i = 1 TO 2 * n
    x0(i) = 0
NEXT i
FOR i = 1 TO n
    FOR j = 1 TO n
        FOR s = 1 TO b1 - 1
            FOR m = 1 TO b1 - 1
                s1(s) = b * s
                m1(m) = b * m
                A(s, m) = EXP(-nu * ABS(s1(s) - m1(m))) * SIN(i * pi / L0 * s1(s)) * SIN(j * pi / L0 * m1(m))
            NEXT m
        NEXT s
        FOR m = 1 TO b1 - 1
            Iv(m) = 0
            FOR s = 1 TO b1 - 1
                Iv(m) = (Iv(m) + A(m, s))
            NEXT s
            Iv(m) = Iv(m) * b
        NEXT m
        Ip(i, j) = 0
        FOR m = 1 TO b1 - 1
            Ip(i, j) = (Ip(i, j) + Iv(m))
            ' Ip = b * (Ip - (Iv(0) + Iv(L0 - 1)) * 0.5)
        NEXT m
        Jp(i, j) = Ip(i, j) * b
        Jp(i, j) = Jp(i, j) * nu / 2
        'PRINT Jp(i, j);
    NEXT j
    'PRINT
NEXT i
OPEN "w(t)" FOR OUTPUT AS #1
COLOR 9
SCREEN 12
LINE (10, 0)-(10, 400), 12
LINE (0, 200)-(500, 200), 12
LOCATE 12, 1: PRINT "0"
LOCATE 12, 79: PRINT "t"
LOCATE 1, 1: PRINT "f1"
FOR L = 1 TO LL
    FOR i = 1 TO 2 * n
        FOR j = 1 TO 5
            k1(i, j) = 0
        NEXT j
    NEXT i
    FOR k = 1 TO 4
        d = 0.5
        IF k = 1 THEN d = 0
        IF k = 4 THEN d = 1
        FOR i = 1 TO 2 * n
            z(i) = x0(i) + k1(i, k) * d
        NEXT i
        FOR i = 1 TO n
            k1(i, k + 1) = z(i + n) * h
            f = (2 * gamma * omega * z(i + n) + EI / mas * (i * pi / L0) ^ 4 * z(i) + c0 / mas * z(i))
            y = 0
            FOR j = 1 TO n
                y = y + Jp(i, j) * z(j)
            NEXT j
            k1(i + n, k + 1) = -(f - y * c1 / mas * 2 / L0 - q0 * 2 / pi / i / mas * (COS(i * pi) - 1)) * h
        NEXT i
    NEXT k
    FOR i = 1 TO 2 * n
        x(i) = x0(i) + (k1(i, 2) + 2 * k1(i, 3) + 2 * k1(i, 4) + k1(i, 5)) / 6
    NEXT i
    w = 0
    FOR i = 1 TO n
        ww(i) = ((EXP(i * pi) + EXP(-i * pi)) / 2 - COS(i * pi)) * ((EXP(i * pi / 2) - EXP(-i * pi / 2)) / 2 + SIN(i * pi / 2))
        dd(i) = ((EXP(i * pi) - EXP(-i * pi)) / 2 - SIN(i * pi)) * ((EXP(i * pi / 2) + EXP(-i * pi / 2)) / 2 + COS(i * pi / 2))[/COLOR]
        w = w + x(i) * (ww(i) - dd(i))
    NEXT i
    LINE (10 + (L - 1) * q, w0 * g + 200)-(10 + L * q, w * g + 200), 12
    FOR i = 1 TO 2 * n
        x0(i) = x(i)
    NEXT i
    w0 = w
    PRINT #1, w
NEXT L
PRINT w
w0 = 0
FOR i = 1 TO 99
    s(i) = L0 / 100 * i
    w = 0
    FOR j = 1 TO n
        ww(j) = ((EXP(j * pi) + EXP(-j * pi)) / 2 - COS(j * pi)) * ((EXP(j * pi * s(i) / L0) - EXP(-j * pi * s(i) / L0)) / 2 + SIN(j * pi * s(i) / L0))
        dd(j) = ((EXP(j * pi) - EXP(-j * pi)) / 2 - SIN(j * pi)) * ((EXP(j * pi * s(i) / L0) + EXP(-j * pi * s(i) / L0)) / 2 + COS(j * pi * s(i) / L0))
        w = w + x(j) * (ww(j) - dd(j))
    NEXT j
    LINE (10 + s(i - 1) * 500 / L0, w0 * g1 + 200)-(10 + s(i) * 500 / L0, w * g1 + 200), 9
    w0 = w
NEXT i
END
Добавлено через 1 минуту
Причем программа работала нормально до того, как я изменила формулу для ww(i) и dd(i), возможно там что-то не так, но я не могу найти ошибку
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.06.2016, 12:30
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Ошибка C++ compilation failed (QBasic):

При попытке скомпилировать программу выходит ошибка "C++ Compilation failed"
Проблема в следующем, когда пытаюсь скомпилировать программу, выдает ошибку C++ Compilation failed (стоит Win7, QB64, специально для...

при преобразовании строки получаю Warning:preg_replace(): Compilation failed: nothing to repeat at offset 0
//Например, слово «МИНИМУМ» надо преобразовать в «МИНИ.У.» т.е. взять первый символ строки а после все его вхождения в строку заменить на...

Warning: preg_replace() [function.preg-replace]: Compilation failed: nothing to repeat at offset 0 in C:WWWApache2htdocsindex.php on line 10
делаю замену с помощью регулярного выражения а он че то странное выдает.. вот код: $str = 'регулярное выражение'; // просто строка ...

Ошибка file_get_contents failed to open stream: HTTP request failed
Внимание! В этом коде нет смысла и нет морали, поэтому если вы этого не ожидали читаем ниже: <?php $url = 'РСС'; //адрес RSS...

Не устанавливается ни один плагин ошибка Installation failed: Download failed. No working transports found
Здраствуйте! Помогите пофиксить ошибку, при попытке установки нового плагина(любого), в админке вордпреса пишет ошибку Installation failed:...

Ошибка файла conio.h: No such file or directory compilation terminated
Добрый вечер! Пытаюсь запустить код, но выдает ошибку "main.c:2:19: fatal error: conio.h: No such file or directory compilation...

4
кот Бегемот
Платежеспособный зверь
8447 / 3886 / 1511
Регистрация: 28.10.2009
Сообщений: 10,062
04.06.2016, 14:23 #2
Во-первых,
Цитата Сообщение от alena93 Посмотреть сообщение
q = 500 / LL ' goriz masshtab
у Вас записано до присвоения значения LL, то есть уже идёт деление на ноль, строки 16 и 18 надо местами поменять. Во-вторых, имя файла w(t) какое-то кривое, а чем вам обычный output.txt не понравился? В-третьих, двумерный массив 2000 на 2000 да ещё по 8 байт на число - это круто... Это только так, на первый взгляд. Чего уж тут удивляться, что прога не идёт...
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
04.06.2016, 15:05 #3
кот Бегемот
1.Да, верно деление на нуль.
2. А вот массив просто не пройдет. Бейсик должен
выдать ошибку. Нет столько памяти.
3. Строки 30-32. Зачем вам лишний код? Это бейсик
и без вас сделал раньше. Еще при объявлении массива.
4. Строка 51 и 83. Зачем вам лишняя пара скобок.
5. Посмотрите еще раз строки 113-114. Там у вас развернутая
запись гиперболических функций. Что-то не то. Функции
надо было оформить отдельно. Ведь именно там проблемы?
0
alena93
0 / 0 / 1
Регистрация: 24.08.2015
Сообщений: 12
07.07.2016, 10:38  [ТС] #4
Массив этот же у меня в нескольких программах, и никаких проблем с ним не было до добавления строк 113-114
Как их правильно оформить?
Насчет q это да, деление на нуль по идее, но эта переменная пока не использовалась, не в этом дело
0
echs
Регистрация: 23.10.2013
Сообщений: 5,076
Записей в блоге: 8
07.07.2016, 12:14 #5
alena93
Вы пытаетесь использовать в программе не объявленные
Массивы ww() и dd() - этого достаточно, чтобы программа не работала.
примечание
Строка 97. Что у вас в конце этой строки?
0
07.07.2016, 12:14
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
07.07.2016, 12:14
Привет! Вот еще темы с решениями:

Ошибка java.lang.Error: Unresolved compilation problem
Помогите, что я сделал не так? package pp; interface MyIF { // This is a "normal" interface method declaration. //...

Devel Studio. Ошибка "failed to open stream: HTTP request failed!" при использовании file_get_contents()
Начал писать в девел студио фейк и возникает проблемма со скриптом, я без понятия что не так, гляньте возможно кто то знает ...

Что за ошибка? Microsoft VBScript compilation (0x800A0414) Cannot use parentheses when calling a Sub /Functions.asp, line 127
Ктo-нибудь мoжет мне oбяснить чтo этa зa oшибкa: Error Type: Microsoft VBScript compilation (0x800A0414) Cannot use parentheses...

Upload и Write to file failed. Ошибка: ADODB.Stream error '800a0bbc' Write to file failed.
Проблема вот в чем. Есть 3 компонента, и в админе каждого есть возможность загрузки файлов. Используют они экземпляры одного и того же...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
5
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru